2022.8.15 

エクセルマクロ(EXCEL VBA) その19 文字列の検索(Find)



舞台・演劇の制作業務はなるべく自動化してパソコンにやってもらおう企画

 

文字列の検索

 

今回は文字列の検索についてご紹介します。
例えばこんな表があったとします。

作品リスト

「リア王」を検索して見つけてみましょう。
検索は Find というのを使います。

Cells.Find("リア王").Select

と打ち込んでください。

Findの書き方

ここで、赤線の部分は「検索対象の範囲」で、Cells は このシート全体を検索対象にしています。
青線の部分は文字列を探すメインの部分。そして緑線の部分は、見つかったセルを選択するということです。

これを実行すると、

リア王が選択された

Selectの部分を、Copyに変えることもできます。

コピーに変える

これを実行すると、

リア王がコピーされた

お察しの通り、コピーすることができます。

 
さらに変形して、

lear = Cells.Find("リア王").Row

とすると、変数learの中に、検索結果のセルの行番号を入れることができます。
これを実行しても何も変化がないので、B4に入れてみましょう。

lear = Cells.Find("リア王").Row
Cells(4, 2) = lear

行番号をB4に入れる

これを実行すると、

行番号が取得できていた

結果は 4 となって、正しく「リア王」の行番号を取得できていました。
行番号がわかったということは、その検索結果の行に対して操作ができるということです。

例えば、「リア王」がある行だけ削除したいと思ったら、

lear = Cells.Find("リア王").Row
Rows(lear).Delete

と書けば、消すことができそうです。
実行すると、

リア王のある行を削除できた

リア王のある行を削除できました。
.Rowのところを、.Column にすれば列番号が取得できるので、列を消すのにも使えそうですね。

 
Findの注意点

Find はとても便利なのですが、注意すべき点があります。

注意点1
まず、表の中に検索対象が2つ以上あると、最初の方が検索に引っかかることになります。

リストがもしこうなっていて、

リア王が2つある

検索結果をコピーするマクロを書いて、実行すると

上にある方が選ばれる

このように、上にある方が検索結果として選ばれます。

もし、こうだったら、

リア王が5つ

どこが選ばれるんでしょうか?
実行してみると、

D1が選ばれた

どうやら、まず1行目をA列から順番に右へ検索していって、
その次に2行目を検索しているようですね。

 
注意点2

検索結果が無い場合、エラーになります。

エラーになる

しょうがないので、Ifを使って「もし、検索結果が無かったときは、メッセージボックスを出す」ということにしましょう。
検索結果が無かったらというのは、このように書きます。

If Cells.Find("十二夜") Is Nothing Then
    MsgBox ("十二夜はありません")
Else
    Cells.Find("十二夜").Copy
End If

検索結果が無かったら

これを実行すると、

無かったときにメッセージボックス

メッセージボックスを出すことができました。

 
今回の最終的なコード

Sub juniya_copy()
If Cells.Find("十二夜") Is Nothing Then
    MsgBox ("十二夜はありません")
Else
    Cells.Find("十二夜").Copy
End If
End Sub

 

宿題-19
先程の表を別シートにコピーし、「ハムレット」と「真夏の夜の夢」を削除した表を作ってください。

▼ クリックで解説を表示

 



もくじ(エクセルマクロ EXCEL VBA)

  

演劇の制作さんへ

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

 
(文:森脇孝/エントレ)

 

最近の記事

GANMI×宝塚歌劇OG DANCE LIVE『2STEP』
客席も立って騒いで GANMI×宝塚歌劇OG DANCE LIVE『2STEP』に沸き立つ会場/東京公演が開幕
公演中 05月26日(金) 〜 06月04日(日)
東京芸術劇場 Presents 木ノ下歌舞伎『勧進帳』
人気演目 5年振りの再演 東京芸術劇場 Presents 木ノ下歌舞伎『勧進帳』9月1日から東京芸術劇場 シアターイーストほか各地で上演
公演日程 09月01日(金) 〜 11月05日(日)
『俺たちのBANG!!! ~大劇場を占拠せよ~』
芝居と迫力のパフォーマンスで劇場を席巻!少年忍者・初単独公演『俺たちのBANG!!! ~大劇場を占拠せよ~』観劇レビュー
公演中 05月06日(土) 〜 06月17日(土)
『BACKBEAT』撮影:岡千里
戸塚祥太、加藤和樹らが出演 ビートルズ創成期の青春物語を描いた『BACKBEAT』東京公演が5月24日(水)に東京建物 Brillia HALLで開幕
公演中 04月23日(日) 〜 05月31日(水)
ゲキ×シネ『薔薇とサムライ2 -海賊女王の帰還-』8月4日(金)から映画館で全国公開
古田新太・天海祐希 ゲキ×シネ『薔薇とサムライ2−海賊女王の帰還−』8月4日(金)から映画館で全国公開/この冬 Blu-rayが発売
演劇グッズ専門店「観劇三昧ラボ」
演劇グッズ専門店『観劇三昧ラボ』が5月13日(土)から下北沢でオープン
骸骨ストリッパー『RAIKA』
【予告動画あり】脚本・NON STYLE 石田明 歌とダンスとアクション満載の超古代マンガ活劇! 骸骨ストリッパー『RAIKA』5月25日(木)から新宿・スペース・ゼロで上演
公演終了 05月25日(木) 〜 05月28日(日)
CCCreation Presents舞台『桜姫東文章』
欲望と裏切り、悪意と偶然が狂い咲く! 三浦涼介、鳥越裕貴、平野良らの出演舞台『桜姫東文章』が5月3日にスペース・ゼロで開幕/上演は5月10日まで
公演終了 05月03日(水) 〜 05月10日(水)
KOKAMI@network vol.19 『ウィングレス(wingless)ー翼を持たぬ天使ー』
翼を捨てた元天使が人間を救う戦いに挑む 福田悠太主演 KOKAMI@network vol.19 『ウィングレス(wingless)ー翼を持たぬ天使ー』がサザンシアターで開幕
公演終了 05月01日(月) 〜 05月28日(日)
パフォーマンスユニットTWT『SANADA XI』
真田十勇士を描いた青春群像時代劇に荒井敦史、黒澤美澪奈、水原ゆき、丸山敦史らが参加 パフォーマンスユニットTWT『SANADA XI』6月9日から吉祥寺シアターで上演
公演日程 06月09日(金) 〜 06月18日(日)
劇団チャリT企画「Wの非劇」チラシ画像
スキャンダルに揺れる芸能事務所を舞台に複雑な人間模様を描いた痛快悲喜劇 劇団チャリT企画『Wの非劇』下北沢 駅前劇場にて5月17日から上演
公演終了 05月17日(水) 〜 05月21日(日)
せたがやこどもプロジェクト2023『メルセデス・アイス MERCEDES ICE』
「子どもたちに劇場空間を存分に感じてほしい」18歳以下の観客を無料招待/せたがやこどもプロジェクト2023『メルセデス・アイス MERCEDES ICE』8月11日から世田谷パブリックシアターで上演
公演日程 08月11日(金) 〜 08月20日(日)
左から演出・丸尾丸一郎(劇団鹿殺し)、鳥越裕貴、井坂郁巳
脚本・加納幸和(花組芝居)、演出・丸尾丸一郎(劇団鹿殺し) 原作・鶴屋南北 舞台『桜姫東文章』 丸尾丸一郎・鳥越裕貴・井坂郁巳インタビュー
公演終了 05月03日(水) 〜 05月10日(水)
キノG-7公演no.5『満ちる』
映画監督の父と娘の愛憎を描く 竹内銃一郎の演劇企画 キノG-7公演no.5『満ちる』5月11日からTHEATRE E9 KYOTOにて上演
公演終了 05月11日(木) 〜 05月15日(月)
舞台『GISKE-ギスケ-』
日産コンツェルン総帥・鮎川義介の激動の生涯を描く 舞台『GISKE-ギスケ- アルプス山脈の見果てぬ夢』5月18日から恵比寿・シアター・アルファ東京で上演
公演終了 05月18日(木) 〜 05月22日(月)
『エンジェルス・イン・アメリカ』撮影: 宮川舞子
舞台『エンジェルス・イン・アメリカ』第一部「ミレニアム迫る」が新国立劇場 小劇場で開幕
公演中 04月18日(火) 〜 06月10日(土)
『関西演劇祭2023』
11月に大阪で開催される つながる演劇祭『関西演劇祭2023』 出演団体の二次募集が開始/締め切りは5月8日
帝国劇場『Endless SHOCK Eternal』
世界でも類を見ない2作同時上演に挑む 作・構成・演出・主演 堂本光一『Endless SHOCK』『Endless SHOCK -Eternal-』が帝国劇場で上演中
公演中 04月09日(日) 〜 05月31日(水)
『滝沢歌舞伎ZERO FINAL』
18年間の集大成!Snow Man主演・演出の舞台『滝沢歌舞伎ZERO FINAL』観劇レビュー
公演終了 04月08日(土) 〜 04月30日(日)
リーディング音楽劇『ジャングル大帝』
福田悠太、辰巳雄大、越岡裕貴、松崎祐介がレオ役で出演 リーディング音楽劇『ジャングル大帝』6月4日、5日に東京建物 Brillia HALLで上演
もうすぐ 06月04日(日) 〜 06月05日(月)
『ドクター皆川~手術成功5秒前~』
皆川猿時×荒川良々の最強タッグ! 生と死の重みがまったくない医療コメディ『ドクター皆川~手術成功5秒前~』10月12日(木)から本多劇場で上演
公演日程 10月12日(木) 〜 10月29日(日)
『滝沢歌舞伎ZERO FINAL』
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日(日)
ミュージカル『サンキュー・ベリー・ストロベリー』撮影:SCOPE/齋藤清貴
真弓孟之 舞台初主演ミュージカル『サンキュー・ベリー・ストロベリー』4月5日に東京芸術劇場シアターイーストで開幕
公演終了 04月05日(水) 〜 04月30日(日)
歌舞伎町劇場が2023年10月にオープン
次世代型の大衆演劇場・歌舞伎町劇場が2023年10月にオープン 豪華劇団がそろい踏み公演ラインナップが明らかに
オペラ「アイーダ」(c)田中亜紀
数々の舞台衣裳を目の前で楽しめる 初台アート・ロフト『時空をこえて-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日(金)

 ≫もっと見る
 

編集部ピックアップ!

エントレがおすすめする他の舞台



Copyright 2023 Village Inc.