ちょっと前に行ったときはすでに閉店していたので、リベンジでした。
うなぎ屋さんは閉店が早いのでサラリーマンは時間がなかなか合わないですね。。
(;^_^A
お味の方は長年続いている老舗だけあって申し分無く、おかわりしたいくらいでした。
大将↓がかなりの話好きで、築地の歴史やら、このへんは親戚ばっかり話!?やら、いろいろ教えてくれました。
築地って、江戸時代に大火事で町のほとんどが焼失したときに、がれきを埋めて最後に築いた町だから「築地」っていうんですね。
へぇ~~(゜o゜)゚
関係ありませんが、ギリシャの総選挙、いよいよ明日ですね。
ユーロ離脱か、元サヤか…
遠くの国の話ですが、数年後の日本の姿を予習しておくにはいい参考事例でしょう。
ちなみに、先週金曜日のユーロ/円 日足はこんな感じでした。
6月に入ってちょっと戻していましたが、さてどうなるか…
(-"-;A
゚・*:.。..。.:*・゚゚・*:.。..。.:*・゚ ゚・*:.。..。.:*・゚゚・*:.。..。.:*・゚ ゚・*:.。..。.:*・゚
今日は使い捨てマクロの続き、
『開いているブックすべてのセルから「株式会社」という文字を探してきて、「(株)」に置き換える』
の後半戦でしたね。
前回、「一つのブックの中で置換えを実行するマクロ」を作成しましたし、その前には、「ブックの数だけ処理を繰り返すマクロ」を作成していたので、あとはこれを組合せるだけです。
復習しておくと、「開いているブックをすべて最小化するマクロ」はこう↓でした。
For i=1 To Workbooks.Count
Workbooks(i).Activate
ActiveWindow.WindowState = xlMinimized
Next i
これのボールド赤字部分が、「開いているブックの数だけ処理を繰り返すマクロ」に相当します。
「一つのブックの中で「株式会社」→「(株)」への置換えを実行するマクロ」はこう↓でしたので、これをガッチャンコします。
すると、
For i=1 To Workbooks.Count
Workbooks(i).Activate
Cells.Replace What:="株式会社", Replacement:="(株)", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next i
となり、これが完成形となります。
ブックをいくつか新規作成し、ランダムに「株式会社ABC」等、入力して上記コードをVBエディタにコピペして走らせてみてください。
すべて「(株)ABC」に置き換えられれば成功です!
♪(*^ ・^)ノ⌒☆