2022.8.16
エクセルマクロ(EXCEL VBA) その20 検索結果の隣のセルを選択(FindとOffset)

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
(文:森脇孝/エントレ)
最近の記事
戸塚祥太、加藤和樹らが出演 ビートルズ創成期の青春物語を描いた『BACKBEAT』東京公演が5月24日(水)に東京建物 Brillia HALLで開幕
公演中 04月23日(日) 〜 05月31日(水)
【予告動画あり】脚本・NON STYLE 石田明 歌とダンスとアクション満載の超古代マンガ活劇! 骸骨ストリッパー『RAIKA』5月25日(木)から新宿・スペース・ゼロで上演
公演終了 05月25日(木) 〜 05月28日(日)
翼を捨てた元天使が人間を救う戦いに挑む 福田悠太主演 KOKAMI@network vol.19 『ウィングレス(wingless)ー翼を持たぬ天使ー』がサザンシアターで開幕
公演終了 05月01日(月) 〜 05月28日(日)
真田十勇士を描いた青春群像時代劇に荒井敦史、黒澤美澪奈、水原ゆき、丸山敦史らが参加 パフォーマンスユニットTWT『SANADA XI』6月9日から吉祥寺シアターで上演
公演日程 06月09日(金) 〜 06月18日(日)
「子どもたちに劇場空間を存分に感じてほしい」18歳以下の観客を無料招待/せたがやこどもプロジェクト2023『メルセデス・アイス MERCEDES ICE』8月11日から世田谷パブリックシアターで上演
公演日程 08月11日(金) 〜 08月20日(日)
日産コンツェルン総帥・鮎川義介の激動の生涯を描く 舞台『GISKE-ギスケ- アルプス山脈の見果てぬ夢』5月18日から恵比寿・シアター・アルファ東京で上演
公演終了 05月18日(木) 〜 05月22日(月)
世界でも類を見ない2作同時上演に挑む 作・構成・演出・主演 堂本光一『Endless SHOCK』『Endless SHOCK -Eternal-』が帝国劇場で上演中
公演中 04月09日(日) 〜 05月31日(水)
福田悠太、辰巳雄大、越岡裕貴、松崎祐介がレオ役で出演 リーディング音楽劇『ジャングル大帝』6月4日、5日に東京建物 Brillia HALLで上演
もうすぐ 06月04日(日) 〜 06月05日(月)
特典映像は三宅健らのキャスト座談会! 劇団☆新感線『ミナト町純情オセロ~月がとっても慕情篇~』Blu-rayが11月28日に発売/4月13日から予約受付スタート
公演終了 03月10日(金) 〜 05月01日(月)
数々の舞台衣裳を目の前で楽しめる 初台アート・ロフト『時空をこえて-Across Time and Space-展』が4月5日から新国立劇場オープンスペースで無料開催
公演中 04月05日(水) 〜 08月31日(木)
【動画5分】水谷豊×段田安則×高橋克実×堤真一が夢のヴォーカルグループに! シス・カンパニー公演『帰ってきたマイ・ブラザー』が4月1日(土) に世田谷パブリックシアターで開幕
公演中 04月01日(土) 〜 06月30日(金)
≫もっと見る
編集部ピックアップ!
エントレがおすすめする他の舞台