Как создать лист, если его нет в книге?

Предположим, у вас есть книга, содержащая несколько листов, теперь вам нужно определить, существует ли конкретное имя рабочего листа. Если имя рабочего листа не существует, создайте его. Если он существует, сообщите, что он существует. Как бы вы могли решить эту задачу в 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.) Если лист не существует, он будет создан сразу, см. Снимок экрана: