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

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

Tweet

骸骨ストリッパー『RAIKA』5.25～スペース・ゼロ

前回、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
　

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

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

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

最近の記事

客席も立って騒いで　GANMI×宝塚歌劇OG DANCE LIVE『2STEP』に沸き立つ会場／東京公演が開幕

公演中 05月26日(金) 〜 06月04日(日)

人気演目 5年振りの再演　東京芸術劇場 Presents 木ノ下歌舞伎『勧進帳』9月1日から東京芸術劇場 シアターイーストほか各地で上演

公演日程 09月01日(金) 〜 11月05日(日)

芝居と迫力のパフォーマンスで劇場を席巻！少年忍者・初単独公演『俺たちのBANG!!! ～大劇場を占拠せよ～』観劇レビュー

公演中 05月06日(土) 〜 06月17日(土)

戸塚祥太、加藤和樹らが出演　ビートルズ創成期の青春物語を描いた『BACKBEAT』東京公演が5月24日(水)に東京建物 Brillia HALLで開幕

公演中 04月23日(日) 〜 05月31日(水)

古田新太・天海祐希　ゲキ×シネ『薔薇とサムライ２−海賊女王の帰還−』8月4日(金)から映画館で全国公開／この冬 Blu-rayが発売

演劇グッズ専門店『観劇三昧ラボ』が5月13日（土）から下北沢でオープン

【予告動画あり】脚本・NON STYLE 石田明　歌とダンスとアクション満載の超古代マンガ活劇！　骸骨ストリッパー『RAIKA』5月25日(木)から新宿・スペース・ゼロで上演

公演終了 05月25日(木) 〜 05月28日(日)

欲望と裏切り、悪意と偶然が狂い咲く！　三浦涼介、鳥越裕貴、平野良らの出演舞台『桜姫東文章』が5月3日にスペース・ゼロで開幕／上演は5月10日まで

公演終了 05月03日(水) 〜 05月10日(水)

翼を捨てた元天使が人間を救う戦いに挑む　福田悠太主演　KOKAMI＠network vol.19 『ウィングレス(wingless)ー翼を持たぬ天使ー』がサザンシアターで開幕

公演終了 05月01日(月) 〜 05月28日(日)

真田十勇士を描いた青春群像時代劇に荒井敦史、黒澤美澪奈、水原ゆき、丸山敦史らが参加　パフォーマンスユニットTWT『SANADA XI』6月9日から吉祥寺シアターで上演

公演日程 06月09日(金) 〜 06月18日(日)

スキャンダルに揺れる芸能事務所を舞台に複雑な人間模様を描いた痛快悲喜劇　劇団チャリT企画『Wの非劇』下北沢 駅前劇場にて5月17日から上演

公演終了 05月17日(水) 〜 05月21日(日)

「子どもたちに劇場空間を存分に感じてほしい」18歳以下の観客を無料招待／せたがやこどもプロジェクト2023『メルセデス・アイス　MERCEDES ICE』8月11日から世田谷パブリックシアターで上演

公演日程 08月11日(金) 〜 08月20日(日)

脚本・加納幸和（花組芝居）、演出・丸尾丸一郎（劇団鹿殺し） 原作・鶴屋南北　舞台『桜姫東文章』 丸尾丸一郎・鳥越裕貴・井坂郁巳インタビュー

公演終了 05月03日(水) 〜 05月10日(水)

映画監督の父と娘の愛憎を描く　竹内銃一郎の演劇企画　キノG-7公演no.5『満ちる』5月11日からTHEATRE E9 KYOTOにて上演

公演終了 05月11日(木) 〜 05月15日(月)

日産コンツェルン総帥・鮎川義介の激動の生涯を描く　舞台『GISKE-ギスケ-　アルプス山脈の見果てぬ夢』5月18日から恵比寿・シアター・アルファ東京で上演

公演終了 05月18日(木) 〜 05月22日(月)

舞台『エンジェルス・イン・アメリカ』第一部「ミレニアム迫る」が新国立劇場 小劇場で開幕

公演中 04月18日(火) 〜 06月10日(土)

11月に大阪で開催される つながる演劇祭『関西演劇祭2023』　出演団体の二次募集が開始／締め切りは5月8日

世界でも類を見ない2作同時上演に挑む　作・構成・演出・主演 堂本光一『Endless SHOCK』『Endless SHOCK -Eternal-』が帝国劇場で上演中

公演中 04月09日(日) 〜 05月31日(水)

18年間の集大成！Snow Man主演・演出の舞台『滝沢歌舞伎ZERO FINAL』観劇レビュー

公演終了 04月08日(土) 〜 04月30日(日)

福田悠太、辰巳雄大、越岡裕貴、松崎祐介がレオ役で出演　リーディング音楽劇『ジャングル大帝』6月4日、5日に東京建物 Brillia HALLで上演

もうすぐ 06月04日(日) 〜 06月05日(月)

皆川猿時×荒川良々の最強タッグ！　生と死の重みがまったくない医療コメディ『ドクター皆川～手術成功5秒前～』10月12日（木）から本多劇場で上演

公演日程 10月12日(木) 〜 10月29日(日)

9人の汗の結晶 ―　Snow Man初演出『滝沢歌舞伎ZERO FINAL』開幕／4月19日からはライブビューイングも

公演終了 04月08日(土) 〜 04月30日(日)

特典映像は三宅健らのキャスト座談会！　劇団☆新感線『ミナト町純情オセロ～月がとっても慕情篇～』Blu-rayが11月28日に発売／4月13日から予約受付スタート

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

俳優に“相手に反応する”ということを一番に求めたい　演出家・鈴木裕美による俳優のためのワークショップ／エントリーの締切は4月16日（日）

公演終了 05月06日(土) 〜 05月14日(日)

真弓孟之 舞台初主演ミュージカル『サンキュー・ベリー・ストロベリー』4月5日に東京芸術劇場シアターイーストで開幕

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

次世代型の大衆演劇場・歌舞伎町劇場が2023年10月にオープン　豪華劇団がそろい踏み公演ラインナップが明らかに

数々の舞台衣裳を目の前で楽しめる　初台アート・ロフト『時空をこえて-Across Time and Space-展』が4月5日から新国立劇場オープンスペースで無料開催

公演中 04月05日(水) 〜 08月31日(木)

亀田佳明、水田航生、岡本玲らが出演　稲葉賀恵 演出舞台『ブレイキング・ザ・コード』が4月1日(土)にシアタートラムで開幕／上演は23日(日)まで

公演終了 04月01日(土) 〜 04月23日(日)

日本三大怪談『東海道四谷怪談』を白倉裕二が新しく演出・脚色　4月19日からシアター風姿花伝にて上演

公演終了 04月19日(水) 〜 04月23日(日)

【動画5分】水谷豊×段田安則×高橋克実×堤真一が夢のヴォーカルグループに！　シス・カンパニー公演『帰ってきたマイ・ブラザー』が4月1日(土) に世田谷パブリックシアターで開幕

公演中 04月01日(土) 〜 06月30日(金)

　≫もっと見る