末尾シートの削除

別に末尾シートに限ったことじゃないが、シートを削除するマクロを。
Sheets(Sheets.Count).Delete
基本的にはこの一文で済む話だが、シート削除する際に警告画面がでる。
この画面が面倒くさい場合は、
Sub シート削除()
 Application.DisplayAlerts = False
  Sheets(Sheets.Count).Delete
 Application.DisplayAlerts = True
End Sub

この様にApplication.DisplayAlertsを使用するとよい。
ここでは、Sheetsを使用したが、Worksheetsでも良いと思う。
(SheetsとWorksheetsでは微妙だが・・・)
[PR]
by slayer0210 | 2006-01-08 17:16 | マクロ


<< 任意数だけシートを追加 表から検索し表示する(VLOO... >>