2022.8.12  2

エクセルマクロ(EXCEL VBA) その18 文字列の置換(Replace)



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

 

文字列の置換

 

今回は文字列の置換についてご紹介します。
例えば、公演アンケートを取ったときにこんな結果だったとします。

アンケート結果

この表の数値を☆に置き換えてみましょう。
マクロで文字列を置換したいときには、Replaceという関数を使います。

まずは、シートをコピーして名前を付けた上で、
B4の 1 を ☆ に置き換えてみましょう。
B4はCells(4, 2)なので、

ActiveSheet.Copy after:=ActiveSheet
ActiveSheet.Name = "置き換え後"

Cells(4, 2) = Replace(Cells(4, 2), "1", "☆")

とします。

Replaceの書き方

ここで、青線で書いた部分が「検索対象の文字列」・・・今回は 1
オレンジ線の部分が「置き換え対象の文字列」・・・今回は 1
そして緑線の部分が「置き換え後の文字列」・・・今回は ☆

右辺が置き換わったので、それを元のセルに入れ直すことで、『置換』できるというわけです。

これを実行すると

☆に置換

1を☆に置換できました!

 
ということで、おなじみのForNextを使って、2行目から最終行まで置き換えを繰り返せばいいですね。
最終行をlastRowとすると、

lastRow = Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To lastRow
 Cells(i, 2) = Replace(Cells(i, 2), "1", "☆")
Next

これで、このアンケートの中に1があれば、☆に置き換えてくれるはずです。

 
ということで、2は☆☆、3は☆☆☆、4は☆☆☆☆、5は☆☆☆☆☆に置き換えましょう。

For i = 2 To lastRow
 Cells(i, 2) = Replace(Cells(i, 2), "1", "☆")
 Cells(i, 2) = Replace(Cells(i, 2), "2", "☆☆")
 Cells(i, 2) = Replace(Cells(i, 2), "3", "☆☆☆")
 Cells(i, 2) = Replace(Cells(i, 2), "4", "☆☆☆☆")
 Cells(i, 2) = Replace(Cells(i, 2), "5", "☆☆☆☆☆")
Next

なんかもうちょっとカッコよく書けるような気もしますが、わかりやすいの見逃してください。

星を入れる

これを実行すると、

☆に置き換えられた

これを使えば、☆を数字に置き換えることもできます。
 

今回の最終的なコード

Sub star_chikan()
ActiveSheet.Copy after:=ActiveSheet
ActiveSheet.Name = "置き換え後"

lastRow = Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To lastRow
  Cells(i, 2) = Replace(Cells(i, 2), "1", "☆")
  Cells(i, 2) = Replace(Cells(i, 2), "2", "☆☆")
  Cells(i, 2) = Replace(Cells(i, 2), "3", "☆☆☆")
  Cells(i, 2) = Replace(Cells(i, 2), "4", "☆☆☆☆")
  Cells(i, 2) = Replace(Cells(i, 2), "5", "☆☆☆☆☆")
Next

End Sub

 

 

宿題-18
氏名の列を参照して、「田」という感じを「★」に置換してください。
さらに、「野」と「松」を消してください。

 

▼ クリックで解説を表示

 


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

  

演劇の制作さんへ

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

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

 

最近の記事

『MEAN GIRLS』会見より
演出家とのディスカッションを重ね 生田絵梨花主演『MEAN GIRLS』開幕
12
公演中 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.