2022.8.8 

エクセルマクロ(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
 

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

 

最近の記事

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.