2022.8.1  2

エクセルマクロ(EXCEL VBA) その10 複数のシートを使う方法



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

複数のシートを使う方法

 

これまでは一つのシートに限ってマクロを作ってきました。
今回は、複数のシートをまたいだ作業をマクロさんにやってもらいましょう。

こういう「劇場リスト」があったとします。

劇場リストのシート

リストは、「劇場リスト」というシートに書かれていて、もう一つある「整理」というリストはまだ白紙の状態です。
この「劇場リスト」を元にして、マクロを使って「整理」シートに情報をコピペしてみましょう。

まず、「整理」のA1セルを狙ってマクロを書き始めましょう。

A1を指定するには
Cells(1, 1)とすればよかったですよね。

開発→Visual Basic
挿入→標準モジュールとして枠を出してから、

Sub sheet_matagu()
Cells(1, 1) = "ここはA1"
End Sub

としましょう。
※マクロの始め方についてはその2で詳しく説明していますので、ご参照ください。

ここはA1

これを実行すると

整理のシートでA1を指定

と、なります。

ここで、「整理」のシートを開いていた方はこれで良かったんですが、たまたま「劇場リスト」のシートを開いて実行した方は、

劇場が変更されてしまった

A1に「劇場」と書いてあったものが「ここはA1」という文字に上書きされてしまっていると思います。
今は、実験用のデータだからまあいいとしても、大切なデータが上書きされてしまったら大変ですよね。
しかも、マクロで上書きされたデータはCtrl+Zや、やり直しコマンドで戻ることができません。ということで、とても危険なのでシートをちゃんと指定する方法を使いましょう。

どのシートのどのセル、というところまで指定すれば間違いがなくなるわけなので、

Sheets("整理").Cells(1, 1) = "ここはA1"

と、マクロを修正してください。

シートの指定

これで厳密に住所を指定できたので、「劇場リスト」を開いた状態でマクロを実行しても、ちゃんと「整理」のシートのA1に「ここはA1」という文字が入ると思います。
念のため試してみてください。

劇場リストを元に情報を整理する

では続いて、「整理」シートのA1には、帝国劇場と入るように指定してみましょう。
ここまで読んでこられた方はもうきっとできると思いますので、挑戦してみてください。

 
どうでしょう。

 

Sheets("整理").Cells(1, 1) = Sheets("劇場リスト").Cells(3, 1)

ですね。

シートをまたぐ式

これを実行すると、「整理」シートのA1に「帝国劇場」と入れることができました。

では、続いて
A2に「日比谷」
A3に「1897」
A4に「https://www.toho.co.jp/stage/teigeki/index.php」が入るように仕掛けてみてください。

今のマクロの命令をコピペして、少し書き換えるとできそうですね。

 
こういうことですね。

Sub sheet_matagu()
Sheets("整理").Cells(1, 1) = Sheets("劇場リスト").Cells(3, 1)
Sheets("整理").Cells(2, 1) = Sheets("劇場リスト").Cells(3, 2)
Sheets("整理").Cells(3, 1) = Sheets("劇場リスト").Cells(3, 3)
Sheets("整理").Cells(4, 1) = Sheets("劇場リスト").Cells(3, 4)
End Sub

リストを追加

これを実行すると

帝劇の情報が取り出せた

うまいこと、帝劇の情報を縦向けに取り出すことができました!

 
と、ここまで書いてくると、これって規則性があるな・・・、と思われたかもしれません。
そうです。For Nextを使うと、もうちょっとスッキリさせることができそうですね。

for nextでスッキリ

マクロの1, 2, 3, 4と続いているところを i で置き換えて、For Nextで繰り返してもらいました。
i が右辺にも左辺にも登場するのが、これまで無かったところですね。
これで実行してもちゃんと同じ結果になりました。

ということで今回はSheetを指定するやり方について説明しました。
2つ以上シートがある場合は指定しておくと安全です。

次は、変数についてご紹介します。

 
今回の最終的なコード

Sub sheet_matagu()
For i = 1 To 4
    Sheets("整理").Cells(i, 1) = Sheets("劇場リスト").Cells(3, i)
Next
End Sub

 

宿題-10

「演劇」「舞台」「芝居」「公演」という4つのシートを作って、芝居シートのC4に「劇団」と入れるマクロを作ってください。

 
宿題の答えについて

自分の書いたマクロで宿題の内容が実行できれば、答えを見る必要はないと思います。
・・・なのですが、一応 答えファイルを用意してみました。パスコードをご購入いただくことで続きが読めるようになります。ご検討ください。

パスコードの購入はこちら

Protected Area

パスコードを入力すると、続きが読めるようになります。

 



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

  

演劇の制作さんへ

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

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

 

最近の記事

八王子ユースシアター2022全舞台一斉上演会『TAMARIBA』
コンセプトは「つくる、タマリバ。」 八王子ユースシアター『全舞台一斉上演会“TAMARIBA”』12月16日(金)~18日(日)に八王子市文化会館で開催
9
公演日程 12月16日(金) 〜 12月18日(日)
製作委員会第13回公演 『メイン通りの妖怪』
60代からの「自分との折り合いのつけ方」をテーマにしたコメディ 製作委員会 第13回公演 『メイン通りの妖怪』が12月2日に新宿シアター・ミラクルで開幕
9
本日初日 12月02日(金) 〜 12月08日(木)
劇団チャリT企画『アベベのベ 2』撮影:鈴木 淳
風刺か? 冒涜か? 4者にムチ打つ茶番コメディ! 劇団チャリT企画『アベベのベ 2』が下北沢・駅前劇場で開幕/上演は12月4日(日)まで!
8
公演中 11月30日(水) 〜 12月04日(日)
中村倫也主演ミュージカル『ルードヴィヒ~Beethoven The Piano~』
【予告動画あり】中村倫也主演ミュージカル『ルードヴィヒ~Beethoven The Piano~』2023年2月24日から全国11館の映画館で上映
159
公演日程 02月24日(金) 〜 (木)
『守銭奴 ザ・マネー・クレイジー』 撮影:田中亜紀
虚飾の城の裸の王様のものがたり『守銭奴 ザ・マネー・クレイジー』観劇レビュー
18
公演中 11月23日(水) 〜 12月11日(日)
『ルーシーフェス/大盤振舞』
楽劇座10周年記念公演をオンラインで開催! 公演映像2本+生配信6回の『ルーシーフェス/大盤振舞』12月10日から1ヶ月にわたり開催
17
公演日程 12月10日(土) 〜 01月10日(火)
お座敷コブラ『TRIANGLE』
チームTartaglia 出演者インタビュー 『非対面芝居』がさらに進化! 濃密な会話サスペンス リモート取材の裏に隠された17年前の未解決事件。衝撃のラストは必見! お座敷コブラ『TRIANGLE』2022年11月30日から溝ノ口劇場で上演
37
公演中 11月30日(水) 〜 12月04日(日)
劇団B-Stage『どうか私と黄泉の果てまで』
劇団B-Stageが初のオリジナル作品に挑戦! 舞台『どうか私と黄泉の果てまで』12月9日(金)~11日(日)に北翔大学札幌円山キャンパス多目的ホールにて上演
5
もうすぐ 12月09日(金) 〜 12月11日(日)
ゲキ×シネ「神州無頼街」ポスター
【予告編動画あり】福士蒼汰・宮野真守の最強バディに映画館でまた会える! ゲキ×シネ『神州無頼街』2023年1月13日から全国上映
86
公演日程 01月13日(金) 〜 (木)
音楽劇『ジェイド・バイン』
アンドロイドの世界、人間の熱で今伝えたいメッセージ 音楽劇『ジェイド・バイン』観劇レビュー
24
公演終了 11月17日(木) 〜 11月23日(水)
made by nakice
モノと生息し、身体を含む物質が持つ現象と形跡を表出させる nakice『ABITA@京都芸術センター』12月16日~18日に開催
9
公演日程 12月16日(金) 〜 12月18日(日)
令和座 第5回公演『バビロンに死す』
劇場の区域一帯までを作品の背景に仕立てようと画策する 令和座 第5回公演『バビロンに死す』12月7日(水)からシアターバビロンの流れのほとりにて で上演
21
もうすぐ 12月07日(水) 〜 12月11日(日)
T-works#5『三文姉妹』左から久馬歩、丹下真寿美
【動画7分】そわそわしてドキドキする展開に期待大! 丹下真寿美と久馬歩インタビュー T-works #5『三文姉妹』2023年1月24日から東京・愛知・大阪・福岡で上演
11
公演日程 01月24日(火) 〜 02月23日(木)
劇団チャリT企画『アベベのベ2』
風刺か? 冒涜か? 4者にムチ打つ茶番コメディ! 劇団チャリT企画『アベベのベ 2』11月30日(水)から東京・下北沢・駅前劇場で上演
10
公演中 11月30日(水) 〜 12月04日(日)
製作委員会第13回公演 『メイン通りの妖怪』
60代からの「自分との折り合いのつけ方」をテーマにしたコメディ 製作委員会 第13回公演 『メイン通りの妖怪』12月2日から新宿シアター・ミラクル、12月8日に座・高円寺2にて上演
9
本日初日 12月02日(金) 〜 12月08日(木)
『歌妖曲〜中川大志之丞変化〜』
【動画2分】中川大志が昭和歌謡版リチャード三世を縦横無尽に演じる! 音楽劇『歌妖曲〜中川大志之丞変化〜』が明治座で開幕/東京公演は11月30日まで
27
公演中 11月06日(日) 〜 12月25日(日)
受け継がれる物語 2グループの成長の過程 舞台『少年たち あの空を見上げて』観劇レビュー
2
公演終了 09月11日(日) 〜 11月06日(日)
ミュージカル『ルートヴィヒ~Beethoven The Piano~』
静寂の中で聞こえた、苦悩と希望。中村倫也主演 ミュージカル『ルードヴィヒ~Beethoven The Piano~』観劇レビュー
285
公演終了 10月29日(土) 〜 11月30日(水)
MousePiece-ree『あの日あの時の、嘘』
MousePiece-reeがメンバー3人だけで挑む「6人芝居」?!それぞれが男女二役を演じて、かつ異なる視点で2バージョン上演!インディペンデントシアター1stにて11月13日まで!
8
公演終了 11月03日(木) 〜 11月13日(日)
村井秀清の音楽を味わいながら旅人気分に『世界ふれあい街歩き フィルムコンサート』上演中
4
公演終了 11月03日(木) 〜 11月04日(金)
左から戸次重幸、竹財輝之助
戸次重幸、竹財輝之助がナビゲーターとして出演 NHK『世界ふれあい街歩きフィルムコンサートvol.2』いよいよ11月3日(木・祝)、4日(金)に有楽町・ヒューリックホール東京で上演
22
公演終了 11月03日(木) 〜 11月04日(金)
ノサカラボ 『罠』
誰もが飲み込まれる舞台 ノサカラボ 『罠』の世界観/大阪公演が開幕
14
公演終了 10月22日(土) 〜 11月03日(木)
犬儒派リーディングアクト『犬の舌』
犬儒派リーディングアクトのクリスマス特別興行 朗読公演『犬の舌』12月24日・25日にアトリエ三軒茶屋で上演
14
公演日程 12月24日(土) 〜 12月25日(日)
SHINKANSEN☆RX『薔薇とサムライ2-海賊女王の帰還-』 撮影:田中亜紀
古田新太・天海祐希らが出演の新感線☆RX『薔薇とサムライ2−海賊女王の帰還−』東京公演が開幕/11月26日にはライブビューイングが開催
62
公演中 09月09日(金) 〜 12月06日(火)
演劇ユニット黒虹サンゴ『優しさ、その先、或いは手前』
「優しい嘘」と「距離感」を描いた会話劇 演劇ユニット黒虹サンゴ『優しさ、その先、或いは手前』12月1日からコフレリオ新宿シアターで上演
14
公演中 12月01日(木) 〜 12月05日(月)
堀越涼(あやめ十八番)脚本・演出 舞台『沈丁花』 堀越涼・山田真歩・松島庄汰・大沢健インタビュー
堀越涼(あやめ十八番)脚本・演出 舞台『沈丁花』 堀越涼・山田真歩・松島庄汰・大沢健インタビュー
63
公演日程 12月16日(金) 〜 12月20日(火)
望海風斗『Look at Me』 撮影:岩田えり
望海風斗がノンストップで歌い踊る90分間 20th Anniversary ドラマティックコンサート『Look at Me』観劇レビュー
58
公演終了 10月27日(木) 〜 11月24日(木)
『妖精大図鑑ASAKUSA THUNDER GATE』
浅草×宇宙×推し 遠い遠い星から地球という観光地にやってくる女の子の物語 妖精大図鑑『ASAKUSA THUNDER GATE』11月25日から浅草九劇で上演
8
公演終了 11月25日(金) 〜 11月27日(日)
劇団美咲帝國の旗揚げ公演『はいびすかす ─ 珈琲城 ─alternative』
平均年齢20.5歳!若手カンパニー劇団美咲帝國の旗揚げ公演『はいびすかす ─ 珈琲城 ─alternative』12月3日、4日に三崎商店街内の雑貨屋 HAPPENINGで上演
9
もうすぐ 12月03日(土) 〜 12月04日(日)
ゲキ×シネ『神州無頼街』
【特報動画あり】福士蒼汰・宮野真守の最強バディがスクリーンに帰ってくる! ゲキ×シネ『神州無頼街』2023年1月13日から上映開始/夏にはBlu-rayが発売
51
公演日程 01月13日(金) 〜 (木)

 ≫もっと見る
 

編集部ピックアップ!

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



Copyright 2022 Village Inc.