うんこ過ぎたので作り直しました。
小技VBA | VBAで新しいシートを追加挿入して名前をつけたり変更する
ExcelVBAを利用して、エクセルの新しいシートを追加挿入＆名前をつける方法です。①仮にSheet1シートのA列をシート名入力欄とします。②次に、プログラムを実行させるコマンドボタンを作ります。
kowaza.withinit.com
【VBA】指定したシート以外のシートをすべて削除する
ループ処理で１つずつシート名を比較し削除繰り返し処理の中で、１つずつ「処理中のワークシート名」と「指定したシート名」を比較し、名前が違う時に削除処理をおこないます。コード解説繰り返し処理(For Each)の中で、targetSheet.N
excel-toshokan.com
それぞれここらを参考に組みました。組み込んだ画面。
☟実装Excel画面
以下妄言…下手な説明とどーでもいい感想
当初、ループのところをもうちょい工夫してやれないかと思ってたんです。例えば、シートに転載先を入れ込むマクロを組んだり、そっからA列のコピーを取得して複製したり…その際雛形シートをなんとか閉じようとしたり、マクロ割り当てるボタンにフラグ立てたりもしました。エラー吐くので、エラーで処理を消しとばすものとか組んでみた。でも、できんかった。VBA馬鹿にしてたけど、馬鹿なのは自分でしたｗ。で、ひとつのシートから他のシートを追加できるように、あるいは雛形以外のシートを一括で削除できるシステムを作った方がまだまだ簡単だということに気が付いた。んで、実装。
＜糸冬＞
