2022.7.25  4

エクセルマクロ(EXCEL VBA) その5 繰り返し作業(For Next)



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

 

For Nextを使って作業を繰り返す

 

『指示した内容を忠実に繰り返してくれる』というのがエクセルマクロを作る醍醐味です。
前回、Cellsでセルの指定ができるようになったので、いよいよ繰り返し作業をやってみましょう。

 
氏名に様をつけるプログラム

例えば、こういう氏名のリストがあったとします。

氏名リスト

B2には、「様」をつけて、織田信長様にしたいと思った場合、どうすればよいでしょうか?
A列の全てをコピーしてB列に貼り付けてから一つずつ開いて「様」と打ち込んでいけばできますが、とても面倒です。

ということで、マクロで書けるようにしたいと思います。

まず、開発→Visual Basicを開き、
挿入→標準モジュールをクリックして空のウィンドウを出してください。
(このやり方は、その2で説明していますので、ご参照ください。)

そこに、

sub add_sama

と打ち込んでエンターを押しましょう。

add_samaを打ちこむ

そうすると、勝手にEnd Subが入ります。
このSubと、End Subの間に命令を打ち込んでいきましょう。

add_samaのプロシージャ

B2を狙いたいので、Cellsで言うと
cells(2,2)ですね。

なので、まずは

cells(2,2) = "様"

と打ち込んでみましょう。

B2に様を表示させる

これで、左上にある再生ボタンを押して実行してみてください。

実行する

エクセルの画面で、うまくB2に「様」が入りましたでしょうか?

様が入った

でも、本当にやりたいのは、B2に「織田信長様」としたいわけなので、ここで【文字列の結合】を使って実現してみます。

マクロ作成画面に戻って、

Cells(2,2) = Cells(2,1) + "様"

と修正してみましょう。

マクロを修正

これで実行すると、エクセルのB2が今度は「織田信長様」になったはずです。
うまく行きましたか?

織田信長様

無事にマクロで「様」を付けられました!
あとの二人も同じようにしたいときに、どうすればいいでしょうか?
豊臣秀吉のセルはCells(3, 1)ですし、徳川家康のセルはCells(4, 1)なので

 
根性で繰り返すと

こうやると良さそうですね。
ただこれだと、コピペするとの変わらないくらい、めちゃくちゃ手間がかかります・・・。

そこで、繰り返し作業の呪文の登場です。
こう打ち込んでください。

For i = 2 To 4
    Cells(i, 2) = Cells(i, 1) + "様"
Next

For Nextを打ち込む

先程、2, 3, 4と数字が増えていた箇所を「i」に置き換えて、
その前に、For i = 2 To 4
後ろにNextと付けました。

これで実行してみましょう。

様を付けた結果

うまく行きましたでしょうか。

これは、
For と、Nextで挟まれた処理を、i = 2 の時、i = 3 の時、i = 4 の時という風に、マクロちゃんが繰り返してくれたのです。

ちなみにもし、For i = 2 To 100 と書いていたら、100行目までマクロちゃんは「様」をつける作業をやってくれます。
試してみてください。

次回も、もう少しFor Nextに慣れるために練習してみましょう。

 
今回の最終的なコード

Sub add_sama()
For i = 2 To 4
    Cells(i, 2) = Cells(i, 1) + "様"
Next
End Sub

 

宿題-5
氏名のリストと、For Nextを使って、B列に「こんにちは!○○様」と入るようにしてください。

▼ クリックで解説を表示

 



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

  

演劇の制作さんへ

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

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

 

最近の記事

米吉&菊之助
一緒にパーティーメンバー気分で没入観劇体験!『新作歌舞伎 ファイナルファンタジーX』観劇レビュー
1
公演中 03月04日(土) 〜 04月12日(水)
動物電気30周年記念公演 観客に大笑いしてもらえるようにバカバカしさと人間臭さを突き詰める!『念力!山動く』6月3日(土)から東京・山梨で上演
13
公演日程 06月03日(土) 〜 06月17日(土)
犬儒派リーディングアクト『林檎とセーラー服』チラシ
犬儒派リーディングアクトの新作『林檎とセーラー服』 4月28日(金)からアトリエ三軒茶屋にて上演
5
公演日程 04月28日(金) 〜 04月30日(日)
ミュージカル『SPY×FAMILY』製作:東宝 ©遠藤達哉/集英社
スピード感のある演出とおしゃれな音楽が素敵! ミュージカル『SPY×FAMILY』観劇レビュー
5
公演中 03月08日(水) 〜 05月21日(日)
カミーユ・クローデル没後80年記念公演「ガラテイア」
カミーユ・クローデル没後80年記念公演 幻想芸術集団 Les Miroirsによる舞台『ガラテイア』5月6日(土)に静岡県立美術館にて無料公演
3
公演日程 05月06日(土) 〜 05月06日(土)
写真上段左から︓藤崎卓也、武田知大、咲山類/下段左から︓大薮丘、大野朋来、高田安男(川上和之)
「泣きすぎて、終演後すぐには立ち上がれなかった」と評される三ツ星キッチンの人気作『LOVE』6月14日からザ・ポケットで上演
11
公演日程 06月14日(水) 〜 06月18日(日)
劇団☆新感線『ミナト町純情オセロ~月がとっても慕情篇~』 撮影:田中亜紀
三宅健、松井玲奈、寺西拓人らと劇団員で作り上げる新境地 劇団☆新感線『ミナト町純情オセロ~月がとっても慕情篇~』が開幕/東京公演は3月28日まで
152
公演中 03月10日(金) 〜 05月01日(月)
ガラ劇『ファンタスマゴリ2』
2019年杉並演劇祭で大賞を受賞した劇団「ガラ劇」による珠玉の短編集『ファンタスマゴリ2』3月15日(水)より阿佐ヶ谷シアターシャインにて上演
11
公演終了 03月15日(水) 〜 03月19日(日)
KAAT神奈川芸術劇場プロデュース『掃除機』
岡田利規の話題作を本谷有希子が演出 舞台『掃除機』がKAAT神奈川芸術劇場<中スタジオ>で開幕/3月22日まで
4
公演終了 03月04日(土) 〜 03月22日(水)
ゲキ×シネ『神州無頼街』Blu-ray
福士蒼汰・宮野真守 特別対談など合計3時間におよぶ豪華特典付き! 劇団☆新感線『神州無頼街』Blu-ray 3月6日からイーオシバイで予約開始/5月19日発売
66
RISU PRODUCE『僕らが見た東京の空は』
様々な理由により東京で暮らし始めた若者達の「上京物語」 RISU PRODUCE『僕らが見た東京の空は』4月19日(水)から赤坂RED/THEATERで上演
11
公演日程 04月19日(水) 〜 04月23日(日)
『関西演劇祭 in Tokyo』
関西演劇祭で最優秀賞を受賞した「激団リジョロ」など6劇団が参加! 『関西演劇祭 in Tokyo』3月21日(火・祝)から新宿シアタートップスで開催
17
公演終了 03月21日(火) 〜 03月26日(日)
溺れた魚の水揚げ式 第伍回公演『ジョンソン』
THE ROB CARLTONの村角太洋の新作書下ろしのラブコメディ! 森光冬、鈴木ありさ出演 溺れた魚の水揚げ式『ジョンソン』3月4日、5日にシアターカフェ信天翁で上演
12
公演終了 03月04日(土) 〜 03月05日(日)
創像工房 in front of. 2月公演『プレイヤ』
これより学級裁判はじめます 創像工房 in front of. 2月公演『プレイヤ』2月23日(木・祝)から慶應義塾大学日吉キャンパスで上演
8
公演終了 02月23日(木) 〜 02月25日(土)
劇団壱劇屋『6人の悩める観客』
小劇場演劇を観劇する6人のお客を観るお芝居? 劇団壱劇屋「Re:play」01『6人の悩める観客』3月3日(金)から大阪・in→dependent theatre 2ndで上演
12
公演終了 03月03日(金) 〜 03月05日(日)
©オフ・ブロードウェイミュージカル『Ordinary Days』/撮影:真来こはる
相葉裕樹主演 失敗してもまたたぐり寄せる幸せ ミュージカル『Ordinary Days』
27
公演終了 02月08日(水) 〜 02月18日(土)
ブロードウェイ・ミュージカル『ドリームガールズ』
大納得のキャストで日本初演!望海風斗主演、ブロードウェイ・ミュージカル『ドリームガールズ』観劇レビュー
64
公演終了 02月05日(日) 〜 03月26日(日)
舞台『笑の大学』
内野聖陽×瀬戸康史 伝説の作品がついに復活! 舞台『笑の大学』2月8日(水)からPARCO劇場を始め合計8都市で上演
45
公演中 02月08日(水) 〜 04月21日(金)
舞台『ケンジトシ』
中村倫也・黒木華が舞台初共演で描く「宮沢賢治と妹トシ」の物語 『ケンジトシ』2月7日(火)にシアタートラムで開幕
269
公演終了 02月07日(火) 〜 03月10日(金)
舞台『トムラウシ』
和太鼓が鳴り響く!《トムラウシ監獄》で繰り広げる数々のエンターテイメント 舞台『トムラウシ』が自由劇場で開幕/2月12日(日)まで
23
公演終了 02月04日(土) 〜 02月12日(日)
『MEAN GIRLS』会見より
演出家とのディスカッションを重ね 生田絵梨花主演『MEAN GIRLS』開幕
38
公演終了 01月30日(月) 〜 02月27日(月)
マグマ∞「南四局は終わらない」
青年座のベテラン俳優たちが集結して新ユニットを結成! マグマ∞『南四局は終わらない』浅草九劇で2月1日(水)に開幕/上演は12日(日)まで
13
公演終了 02月01日(水) 〜 02月12日(日)
『舞台・エヴァンゲリオン ビヨンド』出演者
窪田正孝、石橋静河らの出演でエヴァを舞台化 『舞台・エヴァンゲリオン ビヨンド』5月6日(土)からTHEATER MILANO-Zaで上演
8
公演日程 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日(日)

 ≫もっと見る
 

編集部ピックアップ!

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



Copyright 2023 Village Inc.