エントレ｜演劇動画ニュース

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

Tweet

前回、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枚目には「良かった公演リスト」があるとします。
「良かった公演リスト」にあるタイトルを参照して、元の「観劇リスト」のタイトルの右側に「☆」を付けてください。

エクセルファイルをダウンロード

Sheets("観劇リスト").Cells.Find("真夏の夜の夢").Select

Sheets("観劇リスト").Cells.Find("真夏の夜の夢").Offset(0, 1) = "☆"

yokatta = Sheets("良かった公演").Cells(2, 1)

yokatta = Sheets("良かった公演").Cells(2, 1)
Sheets("観劇リスト").Cells.Find(yokatta).Offset(0, 1) = "☆"

For i = 2 To 4
    yokatta = Sheets("良かった公演").Cells(i, 1)
    Sheets("観劇リスト").Cells.Find(yokatta).Offset(0, 1) = "☆"
Next

Sub kensaku_hoshi()

lastRow = Sheets("良かった公演").Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastRow
    yokatta = Sheets("良かった公演").Cells(i, 1)
    Sheets("観劇リスト").Cells.Find(yokatta).Offset(0, 1) = "☆"
Next

End Sub

→ 他にどんな作業ができたら便利か思いついたらぜひ教えてください！（うまく実現できるかわからないけど・・・。）
http://entre-news.jp/contact
　

　
（文：森脇孝／エントレ）

広告 エントレに公演情報を載せてみませんか？

制作コラム、映像制作コラムなどの読み物もあります！

最近の記事

演出家とのディスカッションを重ね　生田絵梨花主演『MEAN GIRLS』開幕
12

公演中 01月30日(月) 〜 02月27日(月)

青年座のベテラン俳優たちが集結して新ユニットを結成！　マグマ∞『南四局は終わらない』浅草九劇で2月1日(水)に開幕／上演は12日(日)まで
10

公演中 02月01日(水) 〜 02月12日(日)

窪田正孝、石橋静河らの出演でエヴァを舞台化　『舞台・エヴァンゲリオン ビヨンド』5月6日(土)からTHEATER MILANO-Zaで上演
7

公演日程 05月06日(土) 〜 06月19日(月)

三浦涼介、鳥越裕貴、平野良らが豪華共演！　CCCreation Presents 舞台『桜姫東文章』5月3日(水)から新宿スペース・ゼロで上演
37

公演日程 05月03日(水) 〜 05月10日(水)

素通り出来ない台詞だらけ！　高田聖子の月影番外地その７『暮らしなずむばかりで』下北沢ザ・スズナリで上演中／1月29日まで
4

公演終了 01月18日(水) 〜 01月29日(日)

三宅健、松井玲奈、寺西拓人ら　新たな挑戦に意欲　劇団☆新感線『ミナト町純情オセロ～月がとっても慕情篇～』製作発表レポート
182

公演日程 03月10日(金) 〜 05月01日(月)

川崎のとある夜間保育園で繰り広げられる、ドタバ タな親たちと、それに振り回され続ける保育士たちの物語。青春事情・大野ユウジ氏 の珠玉作『Dear Me！』出演者インタビュー　ラゾーナ川崎プラザソルで1月22日から上演！
22

公演終了 01月21日(土) 〜 01月29日(日)

川崎のとある美容院で繰り広げられる、何かと“キレナイ”思いを抱える人たちを描く 青春事情・大野ユウジ氏の珠玉作『キレナイ』出演者インタビュー　ラゾーナ川崎プラザソルで1月21日から上演！
20

公演終了 01月21日(土) 〜 01月29日(日)

カフェ公演ならではの空気感を味わおう　骸骨ストリッパー calavera box vol.7 美女と池袋の怪異譚 『フクロウとネコ』1月27日(金)から池袋Honey Beat Studioで上演
1

公演終了 01月27日(金) 〜 01月30日(月)

土田英生書き下ろし新作　室町幕府を偏愛する社長とその会社を描いたコメディ！　青年座『時をちぎれ』1月20日(金)から東京芸術劇場シアターウエストで上演
13

公演終了 01月20日(金) 〜 01月29日(日)

クリスマスを嫌う男が起こす最高な奇跡　ミュージカル『スクルージ～クリスマス・キャロル～』観劇レビュー
4

公演終了 12月07日(水) 〜 12月25日(日)

【全国生中継あり】ゲキ×シネ『神州無頼街』福士蒼汰、宮野真守が登壇する舞台挨拶が1月14日(土)に新宿バルト9で開催／ゲキ×シネ『髑髏城の七人』Season月の特別上映も
108

公演終了 01月13日(金) 〜 02月02日(木)

秋吉織栄・松村彩永・結瀬ことりの女優3人組ユニット・おごチャン企画第１弾『戦隊！鷺ノ宮元子』1月19日から下北沢シアター711で上演
6

公演終了 01月17日(火) 〜 01月22日(日)

明日を想えば、死がちらつく！ そんな五十路の逆噴火物語！　高田聖子の月影番外地その７『暮らしなずむばかりで』1月18日(水)から下北沢ザ・スズナリで上演
5

公演終了 01月18日(水) 〜 01月29日(日)

劇団佐賀さわげが「九州若手劇団アワード！2022」を受賞／寄付金を引き続き募集中
2

中学校の保健室に集う子供たちとその事情を描く　Ring-Bong第10回公演『さなぎになりたい子どもたち』 1月18日(水)から座・高円寺1で上演
7

公演終了 01月18日(水) 〜 01月22日(日)

大鶴義丹、​藤田朋子、​大森博史らが不条理でミステリアスなハロルド・ピンター作品に挑む　CEDAR×僕たち私たち『The Birthday Party』12月17日 (土) から新宿シアターモリエールで上演
13

公演終了 12月17日(土) 〜 12月25日(土)

古田新太、天海祐希らの熱演で完走した劇団☆新感線『薔薇とサムライ２−海賊女王の帰還−』12月13日(火)にディレイビューイングを開催
80

公演終了 12月13日(火) 〜 12月13日(火)

コンセプトは「つくる、タマリバ。」　八王子ユースシアター『全舞台一斉上演会“TAMARIBA”』12月16日（金）～18日（日）に八王子市文化会館で開催
20

公演終了 12月16日(金) 〜 12月18日(日)

60代からの「自分との折り合いのつけ方」をテーマにしたコメディ　製作委員会 第13回公演 『メイン通りの妖怪』が12月2日に新宿シアター・ミラクルで開幕
10

公演終了 12月02日(金) 〜 12月08日(木)

風刺か？ 冒涜か？ ４者にムチ打つ茶番コメディ！　劇団チャリT企画『アベベのベ ２』が下北沢・駅前劇場で開幕／上演は12月4日（日）まで！
8

公演終了 11月30日(水) 〜 12月04日(日)

【予告動画あり】中村倫也主演ミュージカル『ルードヴィヒ～Beethoven The Piano～』2023年2月24日から全国11館の映画館で上映
160

公演日程 02月24日(金) 〜 (木)

虚飾の城の裸の王様のものがたり『守銭奴　ザ・マネー・クレイジー』観劇レビュー
23

公演終了 11月23日(水) 〜 12月11日(日)

楽劇座10周年記念公演をオンラインで開催！　公演映像2本＋生配信6回の『ルーシーフェス／大盤振舞』12月10日から1ヶ月にわたり開催
17

公演終了 12月10日(土) 〜 01月10日(火)

チームTartaglia 出演者インタビュー　『非対面芝居』がさらに進化！　濃密な会話サスペンス　リモート取材の裏に隠された17年前の未解決事件。衝撃のラストは必見！ お座敷コブラ『TRIANGLE』2022年11月30日から溝ノ口劇場で上演
37

公演終了 11月30日(水) 〜 12月04日(日)

劇団B-Stageが初のオリジナル作品に挑戦！　舞台『どうか私と黄泉の果てまで』12月9日(金)～11日(日)に北翔大学札幌円山キャンパス多目的ホールにて上演
5

公演終了 12月09日(金) 〜 12月11日(日)

【予告編動画あり】福士蒼汰・宮野真守の最強バディに映画館でまた会える！　ゲキ×シネ『神州無頼街』2023年1月13日から全国上映
86

公演終了 01月13日(金) 〜 (木)

アンドロイドの世界、人間の熱で今伝えたいメッセージ　音楽劇『ジェイド・バイン』観劇レビュー
25

公演終了 11月17日(木) 〜 11月23日(水)

モノと生息し、身体を含む物質が持つ現象と形跡を表出させる　nakice『ABITA＠京都芸術センター』12月16日～18日に開催
9

公演終了 12月16日(金) 〜 12月18日(日)

劇場の区域一帯までを作品の背景に仕立てようと画策する　令和座 第5回公演『バビロンに死す』12月7日(水)からシアターバビロンの流れのほとりにて で上演
21

公演終了 12月07日(水) 〜 12月11日(日)

　≫もっと見る