首页 > 其他分享 >【VBA】シートの削除方法まとめ【強制的に削除する、条件を指定する】

【VBA】シートの削除方法まとめ【強制的に削除する、条件を指定する】

时间:2024-10-02 20:13:54浏览次数:6  
标签:VBA End Sub Application DisplayAlerts 強制 削除

参考元:【VBA】シートの削除方法まとめ【強制的に削除する、条件を指定する】
https://daitaideit.com/vba-sheet-delete/

Sub TEST2()
  
  Application.DisplayAlerts = False 'メッセージを非表示
  ActiveSheet.Delete 'シートを削除
  Application.DisplayAlerts = True 'メッセージを表示
  
End Sub

条件に一致するシートを削除

シートの存在を確認してシートを削除
Sub TEST5()
  
  Dim A
  For Each A In Sheets
    'シートが存在する場合
    If A.Name = "Sheet2" Then
      Application.DisplayAlerts = False
      A.Delete 'シートを削除
      Application.DisplayAlerts = True
    End If
  Next
    
End Sub

部分一致したシートを削除

Sub TEST6()
  
  Dim A
  For Each A In Sheets
    'シート名に「2」を含む場合
    If InStr(A.Name, "2") > 0 Then
      Application.DisplayAlerts = False
      A.Delete 'シートを削除
      Application.DisplayAlerts = True
    End If
  Next
  
End Sub

标签:VBA,End,Sub,Application,DisplayAlerts,強制,削除
From: https://www.cnblogs.com/langQ/p/18445039

相关文章