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つ以上シートがある場合は指定しておくと安全です。

宿題-10

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

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



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

  

演劇の制作さんへ

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

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

 

最近の記事

撮影:宮川舞子 ©ニッポン放送
音が人をつなぐヒューマンストーリー 室龍太主演『ONAIR~この音をキミに~』観劇レビュー
94
公演中 07月28日(木) 〜 08月14日(日)
『守銭奴 ザ・マネー・クレイジー』
佐々木蔵之介×プルカレーテのタッグが復活『守銭奴 ザ・マネー・クレイジー』11月23日から東京芸術劇場プレイハウスで上演
5
公演日程 11月23日(水) 〜 12月11日(日)
パルコ・プロデュース 2022『スルメが丘は花の匂い』 撮影:岡千里
シュールさとファンタジーの中にリアルのエッセンス『スルメが丘は花の匂い』観劇レビュー
22
公演中 07月22日(金) 〜 08月26日(金)
令和座第3回公演『宗教研究クラブ』
宗教研究をテーマに展開する静かで奇妙な一幕劇 令和座『宗教研究クラブ』がAPOCシアターで開幕/上演は7月31日(日)まで
19
公演終了 07月27日(水) 〜 07月31日(日)
たやのりょう一座『虚構の森でハローハロー』
一人の女の子が虚構に巻き込まれながら成長していく物語 たやのりょう一座『虚構の森でハローハロー』8月24日から六本木トリコロールシアターで上演
18
公演日程 08月24日(水) 〜 08月28日(日)
劇団☆新感線『狐晴明九尾狩』Blu-ray
中村倫也、吉岡里帆、向井理らが出演した劇団☆新感線『狐晴明九尾狩』Blu-ray 8月8日(月)から予約開始/発売は10月27日(木)
156
公演日程 10月27日(木) 〜 (木)
KERA・MAP#010 『しびれ雲』
ケラリーノ・サンドロヴィッチが架空の島“梟島”を舞台に新たな物語を描く KERA・MAP#010 『しびれ雲』11月6日から本多劇場ほか兵庫・北九州・新潟で上演
15
公演日程 11月06日(日) 〜 12月25日(日)
KAAT キッズ・プログラム 2022『ククノチ テクテク マナツノ ボウケン』 撮影:大洞博靖
北村明子 振付・演出のKAAT キッズ・プログラム 2022『ククノチ テクテク マナツノ ボウケン』KAATで開幕/上演は24日(日)まで
2
公演終了 07月20日(水) 〜 07月24日(日)
M&Oplays プロデュース 『鎌塚氏、羽を伸ばす』 撮影:宮川舞子
【告知動画あり】豪華列車の中で繰り広げられる難事件に鎌塚アカシが挑む M&Oplaysプロデュース『鎌塚氏、羽を伸ばす』本多劇場で開幕
7
公演中 07月17日(日) 〜 08月28日(日)
骸骨ストリッパー『ごみ溜めの中のジュリエッタ』
近未来、ロミオはアンドロイドと恋に落ちる!? 骸骨ストリッパー『ごみ溜めの中のジュリエッタ』8月26日から武蔵野芸能劇場で上演/9月1日から女性キャストのみの裏バージョンも
39
公演日程 08月26日(金) 〜 09月04日(日)
新感線☆RX『薔薇とサムライ2』製作発表より 天海祐希 撮影:田中亜紀
【動画5分】古田新太、天海祐希、石田ニコル、神尾楓珠らが登壇 新感線☆RX『薔薇とサムライ2−海賊女王の帰還−』製作発表レポート
308
公演日程 09月09日(金) 〜 12月06日(火)
犬儒派リーディングアクトの朗読公演 『この世界では、ラジオは肉で出来ている』
犬儒派リーディングアクトの朗読公演 『この世界では、ラジオは肉で出来ている』9月17日(土)からアトリエ三軒茶屋で上演
7
公演日程 09月17日(土) 〜 09月19日(月)
令和座第3回公演『宗教研究クラブ』
価値観のぶつかり合いの集大成 静かで奇妙な一幕劇 令和座『宗教研究クラブ』7月27日からAPOCシアターで上演
65
公演終了 07月27日(水) 〜 07月31日(日)
演劇集団ワンダーランド『沖縄の火種 -1947年のナツ子-』 撮影:田中亜紀
演劇集団ワンダーランド『沖縄の火種 -1947年のナツ子-』紀伊國屋ホールで開幕/上演は7月3日(日)まで
17
公演終了 07月01日(金) 〜 07月18日(月)
木下晴香、中村倫也、福士誠治
中村倫也の主演ミュージカルに木下晴香、福士誠治の出演が決定 『ルードヴィヒ ~Beethoven The Piano~』に10月から東京・大阪・金沢・仙台で上演
74
公演日程 10月29日(土) 〜 11月30日(水)
ゲキ×シネ『狐晴明九尾狩』舞台挨拶 左から吉岡里帆、中村倫也、向井理 撮影:田中亜紀
【動画5分】舞台挨拶に中村倫也、吉岡里帆、向井理が登壇! ゲキ×シネ『狐晴明九尾狩』が6月24日から全国公開
374
公演終了 06月24日(金) 〜 (木)
Enziru LifeTheater「しあわせの三角おにぎり」
長野県・地域市民と俳優で作り上げる舞台 Enziru LifeTheater 陽のあたる教室『しあわせの三角おにぎり』7月2日・3日に飯田市・かざこしホールで上演
38
公演終了 07月02日(土) 〜 07月03日(日)
井上芳雄 ほか
人生は賭けの連続。運命の女神が見せる、夢の先は。ミュージカル『ガイズ&ドールズ』観劇レビュー
155
公演終了 06月09日(木) 〜 07月29日(金)
ミュージカル『ガイズ&ドールズ』
【動画3分】井上芳雄ら和気あいあい、初日迎えた高揚感『ガイズ&ドールズ』が開幕/帝国劇場で7月9日まで
188
公演終了 06月09日(木) 〜 07月29日(金)
舞台『パンドラの鐘』撮影:引地信彦
成田凌&葵わかなW主演、古代から現代へ時空を超えた舞台『パンドラの鐘』シアターコクーンで上演中
23
公演終了 06月06日(月) 〜 07月05日(火)
舞台『ようこそ、ミナト先生』 撮影:田中亜紀
相葉雅紀12年ぶりの舞台『ようこそ、ミナト先生』/町民の機微に触れ動き出す人間関係
284
公演終了 06月04日(土) 〜 07月03日(日)
これは美しく残酷な物語。植物を前に露呈する人間のリアル『バイオーム』観劇レビュー
74
公演終了 06月08日(水) 〜 06月12日(日)
ミュージカル『The Fantasticks』出演者
岡宮来夢、豊原江理佳、今拓哉らが出演 ミュージカル『The Fantasticks』10月23日から日比谷シアタークリエで上演
10
公演日程 10月23日(日) 〜 11月14日(月)
ゲキ×シネ『狐晴明九尾狩』
中村倫也、吉岡里帆、向井理が登壇予定 ゲキ×シネ『狐晴明九尾狩』舞台挨拶が6月24日(金)に新宿バルト9で開催/全国の映画館にも生中継
39
公演終了 06月24日(金) 〜 (木)
AyK本公演vol.3『メフィストの瞳』
妃咲歩美・来栖梨紗のユニットAyK本公演vol.3 『メフィストの瞳』6月10日〜12日に遊空間がざびぃで上演/写真撮影可能な公演あり
21
公演終了 06月10日(金) 〜 06月12日(日)
ミュージカル『るろうに剣心 京都編』 撮影:引地信彦
小池徹平らが縦横無尽に走り、歌い、戦う! ミュージカル『るろうに剣心 京都編』観劇レビュー
79
公演終了 05月17日(火) 〜 06月24日(金)
LOVE in SMOKE
スラステ初のなんちゃってミュージカル!THE ROB CARTON 村角太洋が作・演出『Love in Smoke』7月1日~3日にABCホールで上演
11
公演終了 07月01日(金) 〜 07月03日(日)
新感線☆RX『薔薇とサムライ2−海賊女王の帰還−』
古田新太と天海祐希の圧巻のビジュアルが公開 新感線☆RX『薔薇とサムライ2−海賊女王の帰還−』9月9日から富山・新潟・大阪・東京で上演/6月10日からVAC先行開始
32
公演日程 09月09日(金) 〜 12月06日(火)
RENT (C)Tomoko-Hidaki
感謝しよう今日という日があることを。 胸を熱くさせる名曲揃い!ミュージカル「RENT」観劇レポート
12
公演終了 05月18日(水) 〜 05月29日(日)
歌妖曲〜中川大志之丞変化
中川大志が初舞台に挑戦! 倉持裕が作・演出する昭和歌謡版リチャード三世 『歌妖曲〜中川大志之丞変化〜』11月6日から東京・福岡・大阪で上演
22
公演日程 11月06日(日) 〜 12月25日(日)

 ≫もっと見る
 

編集部ピックアップ!

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



Copyright 2022 Village Inc.