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

Предположим, у вас есть книга с несколькими листами, и вам нужно проверить, существует ли конкретное имя листа. Если листа нет, создайте его; если он существует, отобразите подсказку, уведомляющую вас о том, что лист уже существует. Как можно выполнить эту задачу в Excel?

Создание листа, если его нет в книге, с помощью кода VBA

Создание листа, если его нет в книге, с помощью кода VBA

Следующий код VBA поможет вам проверить, существует ли конкретное имя листа в книге. Если его нет, код создаст лист по мере необходимости.

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

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. Затем нажмите кнопку ОК:

(1.) Если лист существует, появится диалоговое окно с напоминанием, как показано на следующем скриншоте:

(2.) Если лист не существует, он будет создан сразу, см. скриншот: