2022.8.8  3

エクセルマクロ(EXCEL VBA) その15 行や列の挿入と削除(Insert Delete)



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

 

行(Row)の挿入

 

前回使ったこの整理シートの、帝劇と本多劇場の間に、マクロで新国立劇場のデータを入れたいとします。

ここに新国立劇場を

まずは行(Row)を挿入しましょう。

帝劇と本多の間、つまり4行目に空行を入れれば良さそうです。

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

Sub gyoire()
Rows(4).Insert
End Sub

と打ち込んでください。

4行目に空行を挿入

これを実行すると

4行目に空行を挿入できた

見事、4行目に空行を挿入できました。
本多劇場の行も消えてたりしないですね。

 

行(Row)の削除

 

この表のオーブの行を消したいとします。
行を削除するには、Deleteを使います。

Sub gyoire()
Rows(4).Insert
Rows(2).Delete
End Sub

デリートを追加

さっき、空行を追加していましたが、一度その空行を削除してから、これを実行してください。
そうしないと、ヘンなことになります。

最初のデータに戻してから実行すると、

帝劇と本多の間、つまり4行目に空行を入れて、
オーブのある2行目を消す。

というマクロが実行されたわけですね。

 

列(Column)の挿入

 

続いて、「場所」と「キャパ」の間に列を挿入してみましょう。
列はColumnと言いまして、これを3列目に、Insertするので

Sub gyoire()
Rows(4).Insert
Rows(2).Delete
Columns(3).Insert
End Sub

としてみましょう。
ややこしいので、一旦、行を挿入と削除の命令はやめておきます。
一旦やめておくときは、
行の最初に ’ を入れるとその行の命令だけマクロは無視してくれます。
これをコメントアウトと言います。

これを実行すると

3列目に挿入できた

3列目(C列)に空の列を挿入することができました。

 

列(Column)の削除

ということは、「劇場」のある1列目を削除するには、

Columns(1).Delete

とすれば良さそうですね。

1列目を削除

これを実行すると

1列目が消せた

3列目に空行を挿入して、
1列目を削除。
という命令が実行できました。

 

複数の行(Row)の挿入

 

ちなみに、複数の行を挿入したい場合もあると思います。

最初のこの状態から、

整理用のシートができた

4行目から6行目まで空行を入れたいとした場合には、

Rows("4:6").Insert

と、コロンでつないで書くと実現できます。
ダブルクォーテーションではさんでいることに注意してください。

コロンでつなぐ

これを実行すると、

4行目から6行目に空行を入れることができました。

 
なお、マクロで行った削除に関しては、Ctrl+Zなどで戻ることができません。
とても危険ですので、大事なデータを扱う時には、必ずバックアップしてから試してください。
さらに、その14でやったように、シートをコピーしてから、元データは非破壊で行うのがおすすめです。

 
今回の最終的なコード

Sub gyoire()
Rows(4).Insert
Rows(2).Delete

Columns(3).Insert
Columns(1).Delete

Rows("4:6").Insert
End Sub

 

宿題-15
一番最初の表の、帝国劇場と本多劇場の間に、一行挿入して、
新国立劇場中劇場、初台、1010
とそれぞれの列に入れてください。
 

宿題の答えについて

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

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

Protected Area

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

 


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

  

演劇の制作さんへ

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

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

 

最近の記事

観客参加型ミステリー 安楽椅子版 『切り裂きジャックを待ちながら2022』
原作・有栖川有栖 観客参加型ミステリー 安楽椅子版『切り裂きジャックを待ちながら2022』11月5日(土)から大阪・世界館で上演
14
公演日程 11月05日(土) 〜 11月06日(日)
音楽芝居「天満屋お初最期の一日」
役者は一人、共演者は音楽。 音楽芝居『天満屋お初最期の一日』10月11日(火)から吉祥寺STAR PINE’S CAFEで上演
6
もうすぐ 10月11日(火) 〜 10月12日(水)
令和座第4回公演『クリエイター偏差値35』
脚本家同士の価値観がぶつかり合う! 令和座第4回公演『クリエイター偏差値35』10月19日(水)からAPOCシアターで上演
7
公演日程 10月19日(水) 〜 10月23日(日)
桜餅総本舗プロデュース『クロミネンス・クロニクル2』
桜餅総本舗プロデュース 朗読劇『クロミネンス・クロニクル2』西日暮里キーノートシアターで開幕/上演は10月2日まで
24
公演終了 09月28日(水) 〜 10月02日(日)
永井大、大貫勇輔 Mayn、上田堪大 伊礼彼方、福井晶一 小西遼生、大貫勇輔 福井晶一 大貫勇輔 (c)武論尊・原哲夫/コアミックス 1983 版権許諾証GS-111
暴力に対して歌で抵抗する姿に心を打たれた! ミュージカル『フィスト・オブ・ノーススター~北斗の拳~』観劇レビュー
0
公演中 09月25日(日) 〜 10月10日(月)
ミュージカル『モダン・ミリー』写真提供:東宝演劇部
仕事も恋も”計画と違う”ことばかり! ミュージカル『モダン・ミリー』観劇レビュー
2
公演終了 09月07日(水) 〜 10月02日(日)
SHINKANSEN☆RX『薔薇とサムライ2 -海賊女王の帰還-』ライブビューイング 11月26日(土)に開催
古田新太、天海祐希らの出演で大ヒット上演中の新感線☆RX『薔薇とサムライ2−海賊女王の帰還−』ライブビューイングが11月26日(土)に開催
66
公演中 09月09日(金) 〜 12月06日(火)
演劇ユニットスターチス『絢爛とか爛漫とか~モダンガール版~』
多くのカンパニーで上演され続けた名作! 演劇ユニットスターチス『絢爛とか爛漫とか~モダンガール版~』10月15日(土)から東京・キーノート・シアターで上演
12
公演日程 10月15日(土) 〜 10月16日(日)
『コムサ de MANZAI!』
室龍太が気持ちいい程ツッコミまくる!『コムサdeMANZAI!』観劇レビュー
41
公演中 09月15日(木) 〜 10月08日(土)
昭和精吾事務所が寺山修司戯曲原作の歌と語りの音楽アルバム『仮面劇・犬神』を全国発売
昭和精吾事務所が寺山修司戯曲原作の歌と語りの音楽アルバム『仮面劇・犬神』を全国発売/9月23日に発売記念ライブ『天蓋境』を開催/11月に演劇公演
22
公演日程 11月11日(金) 〜 11月13日(日)
舞台『わたしがピアスをあけたLala...』
NGT48三村妃乃主演「親子」×「ラップ」×「コメディー」!? NBOpresent『わたしがピアスをあけたLala…』11月30日から東京・福島で上演
107
公演日程 11月30日(水) 〜 12月18日(日)
『歌妖曲〜中川大志之丞変化〜』製作発表 撮影:田中亜紀
【動画9分】中川大志、松井玲奈らが出演する音楽劇『歌妖曲〜中川大志之丞変化〜』製作発表レポート
50
公演日程 11月06日(日) 〜 12月25日(日)
『8人の女たち』
8人の真実が生む一つの結末とは『8人の女たち』観劇レビュー
64
公演終了 08月27日(土) 〜 09月12日(月)
SHINKANSEN☆RX『薔薇とサムライ2 -海賊女王の帰還-』古田新太・天海祐希 撮影:田中亜紀
【動画3分】古田新太の石川五右衛門&天海祐希の海賊女王アンヌのコンビがついに復活! 新感線☆RX『薔薇とサムライ2−海賊女王の帰還−』富山公演が開幕/前作のゲキ×シネ上映も
117
公演中 09月09日(金) 〜 12月06日(火)
妄烈キネマレコード2作品同時公演『真昼間の君にさようなら/真夜中のユートピア』
【名古屋】「昼」と「夜」、同じ場所で巻き起こる2つの物語 妄烈キネマレコード2作品同時公演『真昼間の君にさようなら/真夜中のユートピア』9月22日(木)からG/PITにて上演
16
公演終了 09月22日(木) 〜 09月25日(日)
鈴木裕美
【9/28締切】演出家 鈴木裕美による俳優のためのワークショップ参加者募集
5
「WORLD ~Run for the Sun~」
校條拳太朗、杉江大志、佐々木優佳里らが出演の舞台『WORLD ~Run for the Sun~』スペース・ゼロで開幕/9月11日(日)まで
6
公演終了 09月03日(土) 〜 09月11日(日)
劇団☆新感線「薔薇とサムライ」舞台写真 古田新太、天海祐希
劇団☆新感線『薔薇とサムライ2-女王の帰還-』の上演を記念して ゲキ×シネ『薔薇とサムライ』などが各地で上映!/9月12日(月)の富山上映から開始
19
公演終了 09月12日(月) 〜 (木)
100点un・チョイス!『誰かが彼女を知っている』
多田​直人、花奈澪、松村優、近江谷太朗らが出演 100点un・チョイス!『誰かが彼女を知っている』中野 ザ・ポケットで開幕/上演は9月4日(日)まで
27
公演終了 08月31日(水) 〜 09月04日(日)
舞台『蜘蛛巣城』
早乙女太一、倉科カナが
《戦乱の世に翻弄される若き夫婦役》で出演 赤堀雅秋 演出舞台『蜘蛛巣城』2023年2月25日からKAAT神奈川芸術劇場ほかで上演
59
公演日程 02月25日(土) 〜 03月12日(日)
『レオポルトシュタット』に出演の音月桂
浜中文一、音月桂らが出演の舞台『レオポルトシュタット』10月14日から新国立劇場中劇場で上演/音月桂のインタビューが到着
43
公演日程 10月14日(金) 〜 10月31日(月)
ミュージカル『ダディ・ロング・レッグズ』
“幸せの秘密は目の前にある” ミュージカル『ダディ・ロング・レッグズ』観劇レビュー
88
公演終了 08月14日(日) 〜 08月31日(水)
ミュージカル『キャッチ・ミー・イフ・ユー・キャン』撮影:伊藤智美
岩本照が軽やかに欺く!ミュージカル『キャッチ・ミー・イフ・ユー・キャン』観劇レビュー
296
公演終了 08月11日(木) 〜 09月15日(木)
音楽劇『スラムドッグ$ミリオネア』写真提供/東宝演劇部
人生を切り開くエネルギー溢れる 音楽劇『スラムドッグ$ミリオネア』観劇レビュー
58
公演終了 08月06日(土) 〜 09月11日(日)
『建築家とアッシリア皇帝』宣伝美術:秋澤一彰 宣伝写真:山崎伸康
岡本健一と成河による二人芝居『建築家とアッシリア皇帝』11月21日からシアタートラムで上演
3
公演日程 11月21日(月) 〜 12月11日(日)
寺で出来る演劇『クォンタム・アリアの碧い首』
東京・大阪の「寺」で演劇公演!「クォンタム・アリアの碧い首」作演出に架空畳の小野寺邦彦/8月26日開幕
9
公演終了 08月26日(金) 〜 08月28日(日)
ミュージカル『ダディ・ロング・レッグズ』写真提供:東宝演劇部
【動画3分】井上芳雄・上白石萌音によるミュージカル『ダディ・ロング・レッグズ』シアター1010で開幕/8月24日からはシアタークリエで上演
90
公演終了 08月14日(日) 〜 08月31日(水)
©音楽劇『刻』製作委員会/撮影:岩田えり
【動画2分】伊藤裕一、大沢健、大山真志、東山光明らの出演で《極限の愛》を描く 音楽劇『刻』浅草九劇で上演中/9月11日(日)まで
38
公演終了 08月04日(木) 〜 09月11日(日)
TEAM909 第7回公演『役役役役』
百花繚乱 人間模様の墓参りサスペンス! TEAM909 第7回公演『役役役役』8月20日、21日にひつじ座にて上演
8
公演終了 08月20日(土) 〜 08月21日(日)
浦井健治
ミュージカル『アルジャーノンに花束を』浦井健治の主演で2023年GWに上演
37

 ≫もっと見る
 

編集部ピックアップ!

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



Copyright 2022 Village Inc.