2022.8.16 2
エクセルマクロ(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
(文:森脇孝/エントレ)
最近の記事
三浦涼介、鳥越裕貴、平野良らが豪華共演! CCCreation Presents 舞台『桜姫東文章』5月3日(水)から新宿スペース・ゼロで上演
37
37
公演日程 05月03日(水) 〜 05月10日(水)
川崎のとある夜間保育園で繰り広げられる、ドタバ タな親たちと、それに振り回され続ける保育士たちの物語。青春事情・大野ユウジ氏 の珠玉作『Dear Me!』出演者インタビュー ラゾーナ川崎プラザソルで1月22日から上演!
22
22
公演終了 01月21日(土) 〜 01月29日(日)
川崎のとある美容院で繰り広げられる、何かと“キレナイ”思いを抱える人たちを描く 青春事情・大野ユウジ氏の珠玉作『キレナイ』出演者インタビュー ラゾーナ川崎プラザソルで1月21日から上演!
20
20
公演終了 01月21日(土) 〜 01月29日(日)
カフェ公演ならではの空気感を味わおう 骸骨ストリッパー calavera box vol.7 美女と池袋の怪異譚 『フクロウとネコ』1月27日(金)から池袋Honey Beat Studioで上演
1
1
公演終了 01月27日(金) 〜 01月30日(月)
土田英生書き下ろし新作 室町幕府を偏愛する社長とその会社を描いたコメディ! 青年座『時をちぎれ』1月20日(金)から東京芸術劇場シアターウエストで上演
13
13
公演終了 01月20日(金) 〜 01月29日(日)
【全国生中継あり】ゲキ×シネ『神州無頼街』福士蒼汰、宮野真守が登壇する舞台挨拶が1月14日(土)に新宿バルト9で開催/ゲキ×シネ『髑髏城の七人』Season月の特別上映も
108
108
公演終了 01月13日(金) 〜 02月02日(木)
明日を想えば、死がちらつく! そんな五十路の逆噴火物語! 高田聖子の月影番外地その7『暮らしなずむばかりで』1月18日(水)から下北沢ザ・スズナリで上演
5
5
公演終了 01月18日(水) 〜 01月29日(日)
中学校の保健室に集う子供たちとその事情を描く Ring-Bong第10回公演『さなぎになりたい子どもたち』 1月18日(水)から座・高円寺1で上演
7
7
公演終了 01月18日(水) 〜 01月22日(日)
大鶴義丹、藤田朋子、大森博史らが不条理でミステリアスなハロルド・ピンター作品に挑む CEDAR×僕たち私たち『The Birthday Party』12月17日 (土) から新宿シアターモリエールで上演
13
13
公演終了 12月17日(土) 〜 12月25日(土)
コンセプトは「つくる、タマリバ。」 八王子ユースシアター『全舞台一斉上演会“TAMARIBA”』12月16日(金)~18日(日)に八王子市文化会館で開催
20
20
公演終了 12月16日(金) 〜 12月18日(日)
60代からの「自分との折り合いのつけ方」をテーマにしたコメディ 製作委員会 第13回公演 『メイン通りの妖怪』が12月2日に新宿シアター・ミラクルで開幕
10
10
公演終了 12月02日(金) 〜 12月08日(木)
劇団B-Stageが初のオリジナル作品に挑戦! 舞台『どうか私と黄泉の果てまで』12月9日(金)~11日(日)に北翔大学札幌円山キャンパス多目的ホールにて上演
5
5
公演終了 12月09日(金) 〜 12月11日(日)
劇場の区域一帯までを作品の背景に仕立てようと画策する 令和座 第5回公演『バビロンに死す』12月7日(水)からシアターバビロンの流れのほとりにて で上演
21
21
公演終了 12月07日(水) 〜 12月11日(日)
≫もっと見る
編集部ピックアップ!
エントレがおすすめする他の舞台