2022.8.5  4

エクセルマクロ(EXCEL VBA) その14 シートの複製(Sheets Copy)



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

 

シートを複製する

 

ここまでで、結構色々なことをご紹介してきたので、かなり、いろんなことができるようになってきた・・・はずです。
今回はシートの複製についてご紹介します。

マクロでエクセルのデータを扱うときに、とても危険なことがあります。
それは、思ってもみないセルを指定してしまっていて、ヘンな文字や数字を書き込んでしまうことです。

実は僕もセルの指定をよく間違うので、いちいち「ここかな?」と探りながらやっているのですが、マクロでヘンな数字を書き込んでしまうと、「Ctrl+Z」や「やり直しボタン」で戻れないのでとても危険です。

ということで、大事なデータを扱うときは、一旦シートを丸ごとコピーしてから作業すると安全です。
なにしろ、元のデータはいじらないわけなので。

 
まず、こういう表があったとします。

表があったとして

このSheet1をコピーしてみます。

開発→Visual Basic
挿入→標準モジュールを押して、

Sub sheet_copy()
Sheets("sheet1").Copy
End Sub

と、打ち込んでください。

シートをコピー

これを実行すると新規ブックが作成されて、そこに今のSheet1がコピーされました。
もう一つブック(エクセルファイル)が生成されてもいい場合はいいんですが、そうじゃなくて、シートだけをコピーしたいので、もう少し書き込みます。

Sheets("sheet1").Copy after:=Sheets("sheet1")

と書き足してください。

afterを書き足す

これを実行すると

シートがコピーされた

このように、sheet1の後に、Sheet1(2)という名前でコピーすることができました!
ちゃんと数値はそのままななので大丈夫そうです。

ちなみに、先程 after と書いたところを Before とすると、sheet1の前にSheet1(2)が入ります。

 
ところで、名前が Sheet1(2)だと意味が分かりにくいというときがあるかもしれません。
「整理用」というシート名にしたいと思ったら、どうすればよいでしょうか?

 
シートをコピーし終わったとき、そのコピー先のシート(ここではSheet1(2))がアクティブになっています。
なので、続けてアクティブシートの名前を変えるという命令を出します。

ActiveSheet.Name = "整理用"

と、追記してください。

整理用を追加

これを実行すると

整理用のシートができた

うまくシートをコピーして、整理用という名前を付けることができました。

次回は、実際にこのシートの内容を整理してみます。

 
今回の最終的なコード

Sub sheet_copy()
Sheets("sheet1").Copy after:=Sheets("sheet1")
ActiveSheet.Name = "整理用"
End Sub

 

宿題-14
整理用シートをコピーして、Sheet1の前に「劇場リスト」という名前のシートを作ってください。

 

▼ クリックで解説を表示

 



もくじ(エクセルマクロ 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.