VBAでアクティブシート以外を削除する

1 VBAでアクティブシート以外を削除するには
- 1.1 アクティブシート以外を削除するサンプルコード
- 1.2 共有:

この記事を書いた人
最新の記事

taka

あることがキッカケでVBAを独学で勉強しました、今ではブログを通してVBAでできることを解説しつつ、VBAや他の言語の勉強、ブログ運営の勉強をしています(^^♪

VBAでアクティブシート以外を削除するには

アクティブシート以外のシートを削除するには

アクティブシートの名前を取得する
現存シートとアクティブシートの名前を比較して同じ名前でなければ現存シートを削除する

この２つをプログラムにして書いていきます！

アクティブシート以外を削除するサンプルコード

今回のサンプルコードでは「警告の非表示」や「For Eachステートメント」を使っています。

上記の二つについてはそれぞれの記事を参照にしてください(^.^)

Sub Sample()
Dim mySht As Worksheet
With Application
'警告/確認のメッセージを非表示
.DisplayAlerts = False
'シート名をチェックして、アクティブシートでなければ削除
For Each mySht In Worksheets
If mySht.Name <> ActiveSheet.Name Then
mySht.Delete
End If
Next
'警告/確認のメッセージの設定を元に戻す
.DisplayAlerts = True
End With
End Sub