如何删除表没有确认提示使用VBA在Excel
有时我们不得不创建或添加工作表，后来发现我们没有使用该工作表，因此我们需要从工作簿中快速删除工作表。本文着重于节省时间，并提供了使用vba宏/代码在没有任何提示框的情况下删除工作表的代码。
可以是一张或几张。 excel会弹出一个警告，以确认工作表已删除。如果其一张纸，其可控。但是，如果您必须删除几张纸，则每张纸会弹出一个弹出窗口。
您经常使用VBA创建多个工作表。但是最后，您实际上并不需要它们。完成工作后，您想删除它们。它将使您的文件更轻，更快，更明智。
VBA代码删除工作表很简单
Sheets("SheetName").Delete
假设您有此代码来添加工作表，然后在工作完成后将其删除。
Sub AddAndDeleteSheet() Sheets.Add 'Adds a new sheet to the active workbook '---- '---- '---- 'some work on sheet done ActiveSheet.Delete 'deletes the active Activesheet End Sub
当您执行此代码时，Sheets.Add将在没有任何提示的情况下工作，但是当编译器进入ActiveSheet.Delete时，它将提示这样的消息。
由于要使用VBA删除工作表，因此您知道自己在做什么。
您想告诉Excel不要显示此警告并删除该死的表。
为此，我们将关闭Excel Application的显示警报按钮。
下面的代码将绕过该警报消息，并且该表将被删除而不会引起任何暗示。
Sub AddAndDeleteSheet() Application.DisplayAlerts = False 'switching off the alert button Sheets.Add '---- '---- '---- 'some work on sheet done ActiveSheet.Delete Application.DisplayAlerts = True 'switching on the alert button End Sub
在这里，我们使用VBA删除Activesheet。您可以使用VBA删除任何工作表。只需编写Sheets（“ Sheetname”）。delete。继续…
DisplayAlerts是VBA中Application对象的属性。在这里，我们在代码的开头将其关闭，并在代码的末尾将其打开。上面的代码将确认删除而没有任何暗示。
注意： * 以上代码将忽略excel引发的所有警告。如果只允许删除工作表而不是使用此行。
Application.DisplayAlerts = False 'switching off the alert button ActiveSheet.Delete Application.DisplayAlerts = True 'switching on the alert button
这只会忽略工作表删除警告。
Pro Tip：这行代码可提高您的VBA代码的效率。始终在宏的开头使用它们，然后在希望退出例程的代码处重新打开它们。_Warning _ * ：如果在退出子例程之前未打开它们。 ，您可能根本看不到任何警告。即使您的代码未运行。这可能会导致很多问题。如果要删除多个工作表并且正在使用循环，请尝试以下代码–
Option Explicit Sub macro2() Dim i As Long Application.DisplayAlerts = False For i = 1 to Worksheets.Count If Worksheets(i).Name Like "Test*" Then Worksheets(i).Delete Next i Application.DisplayAlerts = True End Sub
而已。完成。就像打开和关闭风扇一样简单。是不是
如果您喜欢我们的博客，请在Facebook上与您的朋友分享。您也可以在Twitter和Facebook上关注我们。
我们希望收到您的来信，请让我们知道我们如何改进，补充或创新我们的工作，并为您做得更好。写信给[email protected]_
相关文章：
link：/ general-topics-in-vba-off-warning-messages-using-vba-in-microsoft-excel [在Microsoft Excel 2016中使用VBA关闭警告消息]
在Excel VBA状态栏上显示消息 |||| 链接：/ general-topics-in-vba-insert-pictures-using-vba-in-microsoft-excel [在Microsoft Excel 2016中使用VBA插入图片]
热门文章：
`链接：/ keyboard-formula-shortcuts-50-excel-shortcuts可提高您的生产率[50 Excel快捷方式以提高生产率]]
link：/ formulas-and-functions-vlookup-function简介[如何在Excel中使用VLOOKUP函数]