【エクセル2010】開いているブックすべてで一気に「置換」（3）

おさかな2連発！
まずは渋谷の「道玄坂 漁（いさり）」というお店です。

マグロの「かま」。

で、デカい…(　 ﾟ ▽ ﾟ ;)

5人でなんとか食べきりましたが、おなかがすいてる前半に頼めば良かったです。。

f^_^;;

そしてこちら↓は、新宿の「浜の漁師居酒屋 こちら丸特漁業部 新宿靖国通り店」という長い名前のお店。

特に予約も無くフラッと入ったお店でしたが、良かったのでご紹介。

(*^ ^)ノ

刺身系はカンペキ！タイの口がまだパクパクしていて新鮮でした。

他の料理もうまくてリーズナブル。

おすすめ魚料理の店2連発でした。
(*^ー^)ノ

さて、ギリシャは元サヤでしたね。

まだ落ち着いた雰囲気は到底ありませんが、いったん一区切りということで。。

一応前回の流れがあるので、ユーロ／円載せておきます。

まぁ引き続き戻してきてる、ということですね。。

ﾟ･*:.｡..｡.:*･ﾟﾟ･*:.｡..｡.:*･ﾟ ﾟ･*:.｡..｡.:*･ﾟﾟ･*:.｡..｡.:*･ﾟ ﾟ･*:.｡..｡.:*･ﾟ

今回は、前回までの「使い捨てマクロ」をおさらいしておきましょう。

For i=1 To Workbooks.Count

… こちらは、繰り返しの構文「For ～ Next」の応用バージョンです。

たとえば、「For i=1 To 5」とすれば、変数iの値が、i=1，i=2，i=3，…と、i=5 まで変化します。

これを、「5 まで」というように固定せず、「開いているブックの数まで」と可変的に扱うために、「Workbooks.Count」を使っています。

覚えておくと便利です。

Workbooks(i).Activate

… こちらは、ブックをアクティブ（選択された状態）にするコマンドです。

i=1，i=2，…と、iの値が順番に、開いているブックの数だけ変化して入ってくるので、1つめのブックをアクティブにする，2つめのブックをアクティブにする，…というように、順番にブックがアクティブになっていきます。

Cells.Replace What:="株式会社", Replacement:="（株）", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

… こちらは、「株式会社」という文字を「（株）」に置き換えるマクロです。

覚える必要はなく、自動記述させて必要な部分だけコピペして持ってくるようにしましょう。

Next i

… こちらは、繰り返しの構文「For ～ Next」の一部ですね。

「For」を使うときは、必ずこの「Next」でシメる必要があります。

「For」と「Next」ではさまれた「 ～ 」の部分を繰り返す構文です。よく使うので、しっかり覚えておきましょう！

('-^*)/

【エクセル2010】開いているブックすべてで一気に「置換」（2）

うなぎ「丸静」
築地の老舗です！

ちょっと前に行ったときはすでに閉店していたので、リベンジでした。

うなぎ屋さんは閉店が早いのでサラリーマンは時間がなかなか合わないですね。。

(;^_^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

となり、これが完成形となります。

ブックをいくつか新規作成し、ランダムに「株式会社ＡＢＣ」等、入力して上記コードをVBエディタにコピペして走らせてみてください。

すべて「（株）ＡＢＣ」に置き換えられれば成功です！

♪(*^ ・^)ノ⌒☆

【エクセル2010】開いているブックすべてで一気に「置換」

レインボーブリッジのお散歩。。
会社の近くにレインボーブリッジがあるので、歩いて渡ってみました。

(°∀°)

そんな人はあんまりいないだろうと思っていたら、けっこうスレ違うものですね。

走ってる人が多かったので、ランニングコースにしているのでしょうかね…

(＾＾ゞ

歩いているうちに日が落ちてきて、美しい夜景が広がります。

デートコースにもいいかもしれませんね。

すぐ横を車がビュンビュン通らなければ、ですけどね。。

f^_^;

渡り終えた後はお台場たこ焼きミュージアムに直行。

「本場大阪から選抜されたたこ焼き職人たちが腕を競うたこ焼きのエンターテインメント・スタジアム。

正当派の元祖たこ焼きから進化した創作たこ焼きまで、大阪人お墨付きの名店５店が奇跡の集結！」

とまで謳われており、一度は行ってみたかったところでもあります。

こちらで全種類のたこ焼きと明石焼きを制覇。
適度に酔っぱらって満腹･満足で帰途についたのでした。

めでたし、 めでたし。。

もう当分の間、たこはいらないですね。。

(^o^;)

*:.｡..｡.:*･ﾟﾟ･*:.｡..｡.:*･ﾟ ﾟ･*:.｡..｡.:*･ﾟﾟ･*:.｡..｡.:*

さて、エクセルの方は「使い捨てマクロ」のお話。

コマンドを一つひとつ覚えなくても、自動でマクロを組んでくれる機能を利用して、必要なところだけコピペして使いましょう、というところからでしたね。

ここでは、「置き換え」のコマンドを確認します。

次の手順でマクロを記録していきましょう。

(1)[開発]タブ→「コード」グループ→[マクロの記録]

(2)マクロ名やショートカットキーを聞いてきますが、今回はそのまま「OK」としておきます。

(3)[ホーム]タブ→「編集」グループ→[検索と選択]→[置換(R)]

(4)「検索する文字列(N)」に「株式会社」，「置換後の文字列(E)」に「（株）」と入力
(5)[オプション(T) ]ボタンから、「検索場所(H)」を「ブック」として[すべて置換(A)]ボタンをクリック。

「株式会社」という文字は見つかりませんよ、というエラーが出ますが、無視してください。

ここまでで、[開発]タブ→「コード」グループ→[記録終了]

どんなプログラムが記述されたか、確認してみましょう。

[開発]タブ→「コード」グループ→[マクロ]から、今作成したマクロ「Macro1」を選択して、「編集(E)」をクリックしてみてください。

こんなふうになっていればOKです。

(b^-゜)