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
とそれぞれの列に入れてください。
 

▼ クリックで解説を表示

 


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

  

演劇の制作さんへ

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

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

 

最近の記事

『MEAN GIRLS』会見より
演出家とのディスカッションを重ね 生田絵梨花主演『MEAN GIRLS』開幕
0
公演中 01月30日(月) 〜 02月27日(月)
マグマ∞「南四局は終わらない」
青年座のベテラン俳優たちが集結して新ユニットを結成! マグマ∞『南四局は終わらない』浅草九劇で2月1日(水)に開幕/上演は12日(日)まで
10
公演中 02月01日(水) 〜 02月12日(日)
『舞台・エヴァンゲリオン ビヨンド』出演者
窪田正孝、石橋静河らの出演でエヴァを舞台化 『舞台・エヴァンゲリオン ビヨンド』5月6日(土)からTHEATER MILANO-Zaで上演
7
公演日程 05月06日(土) 〜 06月19日(月)
三浦涼介、鳥越裕貴、平野良らが豪華共演! CCCreation Presents 舞台『桜姫東文章』5月3日(水)から新宿スペース・ゼロで上演
37
公演日程 05月03日(水) 〜 05月10日(水)
月影番外地その7『暮らしなずむばかりで』 撮影:田中亜紀
素通り出来ない台詞だらけ! 高田聖子の月影番外地その7『暮らしなずむばかりで』下北沢ザ・スズナリで上演中/1月29日まで
4
公演終了 01月18日(水) 〜 01月29日(日)
劇団☆新感線『ミナト町純情オセロ~月がとっても慕情篇~』製作発表より 撮影:田中亜紀
三宅健、松井玲奈、寺西拓人ら 新たな挑戦に意欲 劇団☆新感線『ミナト町純情オセロ~月がとっても慕情篇~』製作発表レポート
182
公演日程 03月10日(金) 〜 05月01日(月)
『Dear Me!』出演者インタビュー
川崎のとある夜間保育園で繰り広げられる、ドタバ タな親たちと、それに振り回され続ける保育士たちの物語。青春事情・大野ユウジ氏 の珠玉作『Dear Me!』出演者インタビュー ラゾーナ川崎プラザソルで1月22日から上演!
22
公演終了 01月21日(土) 〜 01月29日(日)
青春事情『キレナイ』初演
川崎のとある美容院で繰り広げられる、何かと“キレナイ”思いを抱える人たちを描く 青春事情・大野ユウジ氏の珠玉作『キレナイ』出演者インタビュー ラゾーナ川崎プラザソルで1月21日から上演!
20
公演終了 01月21日(土) 〜 01月29日(日)
骸骨ストリッパー calavera box vol.7 美女と池袋の怪異譚 『フクロウとネコ』
カフェ公演ならではの空気感を味わおう 骸骨ストリッパー calavera box vol.7 美女と池袋の怪異譚 『フクロウとネコ』1月27日(金)から池袋Honey Beat Studioで上演
1
公演終了 01月27日(金) 〜 01月30日(月)
青年座『時をちぎれ』
土田英生書き下ろし新作 室町幕府を偏愛する社長とその会社を描いたコメディ! 青年座『時をちぎれ』1月20日(金)から東京芸術劇場シアターウエストで上演
13
公演終了 01月20日(金) 〜 01月29日(日)
ミュージカル『スクルージ』
クリスマスを嫌う男が起こす最高な奇跡 ミュージカル『スクルージ~クリスマス・キャロル~』観劇レビュー
4
公演終了 12月07日(水) 〜 12月25日(日)
ゲキ×シネ「神州無頼街」ポスター
【全国生中継あり】ゲキ×シネ『神州無頼街』福士蒼汰、宮野真守が登壇する舞台挨拶が1月14日(土)に新宿バルト9で開催/ゲキ×シネ『髑髏城の七人』Season月の特別上映も
108
公演終了 01月13日(金) 〜 02月02日(木)
秋吉織栄・松村彩永・結瀬ことり
秋吉織栄・松村彩永・結瀬ことりの女優3人組ユニット・おごチャン企画第1弾『戦隊!鷺ノ宮元子』1月19日から下北沢シアター711で上演
6
公演終了 01月17日(火) 〜 01月22日(日)
月影番外地その7『暮らしなずむばかりで』
明日を想えば、死がちらつく! そんな五十路の逆噴火物語! 高田聖子の月影番外地その7『暮らしなずむばかりで』1月18日(水)から下北沢ザ・スズナリで上演
5
公演終了 01月18日(水) 〜 01月29日(日)
劇団佐賀さわげが「九州若手劇団アワード!2022」を受賞
劇団佐賀さわげが「九州若手劇団アワード!2022」を受賞/寄付金を引き続き募集中
2
Ring-Bong第10回公演「さなぎになりたい子どもたち」
中学校の保健室に集う子供たちとその事情を描く Ring-Bong第10回公演『さなぎになりたい子どもたち』 1月18日(水)から座・高円寺1で上演
7
公演終了 01月18日(水) 〜 01月22日(日)
CEDAR×僕たち私たち『The Birthday Party』
大鶴義丹、​藤田朋子、​大森博史らが不条理でミステリアスなハロルド・ピンター作品に挑む CEDAR×僕たち私たち『The Birthday Party』12月17日 (土) から新宿シアターモリエールで上演
13
公演終了 12月17日(土) 〜 12月25日(土)
古田新太、天海祐希らの熱演で完走した劇団☆新感線『薔薇とサムライ2−海賊女王の帰還−』12月13日(火)にディレイビューイングを開催
80
公演終了 12月13日(火) 〜 12月13日(火)
八王子ユースシアター2022全舞台一斉上演会『TAMARIBA』
コンセプトは「つくる、タマリバ。」 八王子ユースシアター『全舞台一斉上演会“TAMARIBA”』12月16日(金)~18日(日)に八王子市文化会館で開催
20
公演終了 12月16日(金) 〜 12月18日(日)
製作委員会第13回公演 『メイン通りの妖怪』
60代からの「自分との折り合いのつけ方」をテーマにしたコメディ 製作委員会 第13回公演 『メイン通りの妖怪』が12月2日に新宿シアター・ミラクルで開幕
10
公演終了 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館の映画館で上映
160
公演日程 02月24日(金) 〜 (木)
『守銭奴 ザ・マネー・クレイジー』 撮影:田中亜紀
虚飾の城の裸の王様のものがたり『守銭奴 ザ・マネー・クレイジー』観劇レビュー
23
公演終了 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日(金) 〜 (木)
音楽劇『ジェイド・バイン』
アンドロイドの世界、人間の熱で今伝えたいメッセージ 音楽劇『ジェイド・バイン』観劇レビュー
25
公演終了 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日(日)

 ≫もっと見る
 

編集部ピックアップ!

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



Copyright 2023 Village Inc.