Как да изтрия конкретен лист, ако съществува в работната книга?
Как можете да изтриете конкретен работен лист, ако той съществува в работна книга? Обикновено трябва да го намерите и проверите, ако съществува, и след това да го изтриете ръчно. Тук ще говоря за лесен начин за директно изтриване на посочения работен лист, ако той съществува във файла на Excel.
Изтрийте конкретен работен лист, ако съществува в работна книга с VBA код
Изтрийте конкретен работен лист, ако съществува в работна книга с VBA код
Следният VBA код може да ви помогне да изтриете посочения работен лист, ако съществува в работната книга, моля, направете следното:
1. Задръжте надолу ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Модули Window.
VBA код: Изтрийте конкретен работен лист, ако съществува в работната книга
Sub Test()
'Updateby Extendoffice
Dim xWs As Worksheet
Dim sheetName As String
sheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _
"sheet1", , , , , 2)
Application.DisplayAlerts = False
Err.Clear
On Error Resume Next
Set xWs = Sheets(sheetName)
If Err <> 0 Then
MsgBox "The'" & sheetName & "'" & "does not exist!", vbInformation, "Kutools for Excel"
Exit Sub
Else
xWs.Delete
MsgBox "The'" & sheetName & "'" & "has been deleted!", vbInformation, "Kutools for Excel"
End If
Application.DisplayAlerts = True
End Sub
3. След това натиснете F5 за да изпълните този код, се показва поле за подкана, за да ви напомни да въведете името на листа, което искате да проверите дали съществува, вижте екранна снимка:
4, И после щракнете върху OK бутон:
(1.) Ако листът съществува, той ще бъде изтрит веднага, вижте екранна снимка:
(2.) Ако листът не съществува, ще се появи поле за подкана, за да ви напомни, както е показано на следната екранна снимка:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!