エクセルマクロ(EXCEL VBA) その20 検索結果の隣のセルを選択(FindとOffset)
前回、Findを使って文字列を検索し、検索結果のセルを選択できるようになりました。
今回は、その選択したセルの右隣とかを選択できるようになるOffsetについてご紹介します。
こちらの作品リストがあったとします。
マクベスと書いてあるセルを選択するには、
Cells.Find("マクベス").Selectとすればいいんでした。
これを実行すると、
マクベスのあるセル（A5）を選択できました。
この右隣（B5）を選択するために、マクロを少し修正します。
Cells.Find("マクベス").Offset(0, 1).Select
Offset(0, 1)を間に追加したということですね。
これを実行すると、
このように、一つ右のセルを選択できました。
一方で、Offset(1, 0)に修正すると、
Cells.Find("マクベス").Offset(1, 0).Select
一つ下のセルを選択することができました。
同じように、
Cells.Find("マクベス").Offset(-1, 0).Selectとすると、一つ上のセルが選択できます。
Findで見つけたセルの隣に文字列を入力する
隣のセルが選択できるようになったので、Findで見つけたセルの隣に「◎」を入れてみましょう。
Cells.Find("マクベス").Offset(0, 1) = "◎"と書いてください。
これを実行すると、
マクベスの右隣に◎を入れられました。
例えば「住所録の名前で検索して、その10個右のセルにあるメールアドレスをコピーする」みたいなこともできるので便利に使えますね。
今回の最終的なコード
Sub tonari()
Cells.Find("マクベス").Offset(0, 1) = "◎"
End Sub
宿題-20
以下のファイルのように、1枚目のシートには「観劇リスト」、2枚目には「良かった公演リスト」があるとします。
「良かった公演リスト」にあるタイトルを参照して、元の「観劇リスト」のタイトルの右側に「☆」を付けてください。
宿題の答えについて
・・・なのですが、一応 答えファイルを用意してみました。パスコードをご購入いただくことで続きが読めるようになります。ご検討ください。
もくじ（エクセルマクロ EXCEL VBA）
→ 他にどんな作業ができたら便利か思いついたらぜひ教えてください！（うまく実現できるかわからないけど・・・。）
http://entre-news.jp/contact
（文：森脇孝／エントレ）
最近の記事
3
22
107
117
16
27
59
≫もっと見る
編集部ピックアップ！
エントレがおすすめする他の舞台
