Как создать лист, если его нет в книге?
Предположим, у вас есть книга, содержащая несколько листов, теперь вам нужно определить, существует ли конкретное имя рабочего листа. Если имя рабочего листа не существует, создайте его. Если он существует, сообщите, что он существует. Как бы вы могли решить эту задачу в Excel?
Создайте лист, если его нет в книге с кодом VBA
Создайте лист, если его нет в книге с кодом VBA
Следующий код VBA может помочь вам проверить конкретное имя рабочего листа, если оно существует в книге, в противном случае код может создать лист по мере необходимости.
1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.
Код VBA: создайте лист, если его нет в книге:
Sub TestSheetCreate()
'Updateby Extendoffice
Dim newSheetName As String
Dim checkSheetName As String
newSheetName = Application.InputBox("Input Sheet Name:", "Kutools for Excel", _
"sheet4", , , , , 2)
On Error Resume Next
checkSheetName = Worksheets(newSheetName).Name
If checkSheetName = "" Then
Worksheets.Add.Name = newSheetName
MsgBox "The sheet named ''" & newSheetName & _
"'' does not exist in this workbook but it has been created now.", _
vbInformation, "Kutools for Excel"
Else
MsgBox "The sheet named ''" & newSheetName & _
"''exist in this workbook.", vbInformation, "Kutools for Excel"
End If
End Sub
3, Затем нажмите F5 нажмите клавишу для запуска этого кода, появится диалоговое окно с напоминанием о вводе имени листа, которое вы хотите проверить, см. снимок экрана:
4. Затем нажмите OK Кнопка:
(1.) Если лист существует, появится всплывающее окно с напоминанием, как показано на следующем снимке экрана:
(2.) Если лист не существует, он будет создан сразу, см. Снимок экрана:
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!