2022.7.26  4

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



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

 

For Nextの練習

 

前回、For Nextを使って名前に「様」を付けるマクロを作りました。
For Nextでの繰り返し作業は、とても重要なのでもう少し練習してみましょう。

 
肩書と名前を結合するマクロ

演劇のスタッフには、作、演出、音楽、美術・・・などの肩書が付き物です。

そこで、こういうリストがあったとします。
このリストをCSVでダウンロード

肩書を付ける

このC2のところに、
【作】織田信長

と入るようにしてみましょう。
前回の記事を参考にマクロを作ってみてください。

 
まずは、A2とB2を結合して、C2に入るようにしてみましょう。

C2は、CellsでいうとCells(2, 3)でしたよね。
A2はCells(2, 1)で、B2はCells(2, 2)なので、

Cells(2, 3) = Cells(2, 1) + Cells(2, 2)

と書けば良さそうです。

文字列の結合

これを実行すると、

作と織田信長が結合された

うまくいきました。
C2に、作織田信長 と入れることができました!

でも、本当に入れたいのは【作】織田信長 でしたので、このマクロにさらに追記して行きましょう。
様を追加したときは、”様” というふうにダブルクォーテーションでくくって、「+」でつなげれば良かったわけなので、

Cells(2, 3) = "【" + Cells(2, 1) + "】" + Cells(2, 2)

こうしてみましょう。

肩書に【】を加える

これを実行すると、

【作】織田信長になった

うまく行きました!
あとは、9行目まで繰り返せばできそうですね。
For Nextを使って、繰り返し作業の指示を出してみてください。

 
僕はこう書きました。

 
繰り返し作業を仕込む

 
無事に、肩書に【】を付けて、氏名と結合されたものを、隣の列に書き入れることができました。

肩書を付けた結果

 
これで、たとえスタッフが100人いても同じ方法で肩書をくっつけることができます。

次回は、For Nextと同じくらいとても重要な If による条件分岐について書きます。

 
今回の最終的なコード

Sub add_katagaki()
For i = 2 To 9
    Cells(i, 3) = "【" + Cells(i, 1) + "】" + Cells(i, 2)
Next
End Sub

 
 

宿題-6
同じ肩書のスタッフが2人以上いる場合は、どうしたら良いでしょう。

例えば複数人いたら?

こうなるようにしてみてください。

複数人を肩書と結合

いろいろな解決方法が考えられると思うので、是非取り組んでみてください。

 

▼ クリックで解説を表示

 



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

  

演劇の制作さんへ

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

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

 

最近の記事

妄烈キネマレコード『カムバック・トゥ・ザ・フユちゃん!』フライヤー
【名古屋】過去と現在、そして未来を繋ぐ10周年記念公演 妄烈キネマレコード『カムバック・トゥ・ザ・フユちゃん!』4月8日(土)から名古屋市東文化小劇場にて上演
5
公演日程 04月08日(土) 〜 04月09日(日)
動物電気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日(土)
ブロードウェイ・ミュージカル『ドリームガールズ』
大納得のキャストで日本初演!望海風斗主演、ブロードウェイ・ミュージカル『ドリームガールズ』観劇レビュー
63
公演中 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.