2011年9月16日金曜日

VBAで指定のシートを削除する方法

VBAでシートを削除する方法です。

Worksheets("シート名を入力").Deleteで削除します。
ただし、存在しないシートを指定した場合はエラーになるので、
削除する前にシートが存在するかチェックする必要があります。

シートが存在するかのチェックはこちらから↓
VBAで対象のシートが存在するかチェックする方法

--------------------------------------------------------------
Sub Sheet_delete(sheetname As String)
'対象のシートが存在するかチェックを行う
'存在する場合は削除を実行
If Sheet_存在Check(sheetname) = True Then
Application.DisplayAlerts = False '確認メッセージを表示しない
Worksheets(sheetname).Delete
Application.DisplayAlerts = True '確認メッセージを表示する。
End If

End Sub
----------------------------------------------------------------

EXCEL VBA xls Excel2003

0 件のコメント:

コメントを投稿