VBA再入門
シートをコピー・挿入・削除する（Worksheets,Copy,Add,Delete）

シート名を右クリックすると、

ここで、「移動またはコピー」

このダイアログ画面での指定方法により、
色々なシートのコピーが出来ます。

新しいブックにコピー

同一ブック内にコピー

新規シートを挿入する場合は、
Worksheets.Add
これだけ書けば、シートが挿入されます。
アクティブシートの直前に新規シートが挿入されます。
新規シートを挿入して、名前を「新規シート」にします。

挿入されたシートは必ずアクティブシートになります。
Worksheets.Add
このAddは、Worksheetオブジェクトのメソッドで、
戻り値として、挿入されたシートのオブジェクトを戻します。
そこで、Setで変数に入れる事が出来ます。

このように、挿入したシートをSetで直ぐに変数に入れておけば、
後々でシート指定で困ることが無くなります。
以下のように、
Addの戻り値のオブジェクトをWithに指定することもできます。

End Withの下でも使う可能性がありそうなら、Setで変数に入れておいたほうが良いでしょう。

シートを削除する場合は、
Worksheets("Sheet1").Delete
しかし、シートを削除しようとすると、

このメッセージが表示されます。
これはマクロVBAで削除した場合も同じです。
1つくらいのシートなら、「削除」を押せばよいとも言えますが、
多数のシートを削除する場合は困ります。
何より、メッセ－ジでマクロが中断してしまっては、自動化の妨げになります。
このメッセージが表示されずにシートが削除されるようにするには、
削除の前（マクロVBAの先頭で良い）に、
Application.DisplayAlerts = False
とだけ書いておくことで、
上記のメッセージが表示されることなくシートが削除されます。

上記では、Addの結果をSetで変数に入れたり、Withに指定したりしました。
しかし、Copyではそのような書き方ができませんでした。
それは、Addは戻り値として追加したシートを戻しますが、Copyは戻り値が無いからです。
VBEで以下のように、
AddやCopyの後に、半角スペースを入力すると、その構文がヒント表示されます。


Addの最後は、
As Object
となっていますが、Copyにはこれがありません。
このAs Objectが、戻り値を意味します。
As Objectの意味まで理解しなくても構いません。
戻り値があるメソッドかどうかを確認する時の材料として見てください。
メソッドには、戻り値を返すメソッドと返さないメソッドがあります。
戻り値があり、実行した結果作成されたオブジェクトを戻すメソッドの場合は、
Set 変数 = オブジェクト.メソッド
または、
With オブジェクト.メソッド
このように書くことで、作成されたオブジェクトを簡単に特定できるようになります。

第65回.シートの挿入、名前の変更（Add,Name）
第66回.シートのコピー・移動・削除Copy,Move,Delete）

同じテーマの記事
新着記事
アクセスランク