Як видалити певний аркуш, якщо він є у книзі?
Як можна видалити певний аркуш, якщо він існує в книзі? Зазвичай його потрібно знайти та перевірити, якщо він існує, а потім видалити вручну. Тут я розповім про простий спосіб безпосереднього видалення зазначеного аркуша, якщо він існує у файлі Excel.
Видаліть певний аркуш, якщо він існує у книзі з кодом VBA
Видаліть певний аркуш, якщо він існує у книзі з кодом VBA
Наступний код VBA може допомогти вам видалити вказаний аркуш, якщо він існує у книзі, зробіть так:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно
Код 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% та зменшує сотні клацань миші для вас щодня!
