Kako ustvariti list, če v delovnem zvezku ne obstaja?

Recimo, da imate delovni zvezek, ki vsebuje več delovnih listov, zdaj morate ugotoviti, ali obstaja določeno ime delovnega lista. Če ime delovnega lista ne obstaja, ga ustvarite. Če obstaja, vas takoj obvestite, da list obstaja. Kako lahko to nalogo rešite v Excelu?

Ustvarite list, če v delovnem zvezku ne obstaja s kodo VBA

---

Ustvarite list, če v delovnem zvezku ne obstaja s kodo VBA

Naslednja koda VBA vam lahko pomaga preveriti določeno ime delovnega lista, če obstaja v delovnem zvezku, v nasprotnem primeru lahko koda ustvari list, kot ga potrebujete.

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Ustvarite list, če v delovnem zvezku ne obstaja:

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. In nato pritisnite F5 tipko za zagon te kode, se prikaže pozivno polje, ki vas opomni, da vnesete ime lista, ki ga želite preveriti, glejte posnetek zaslona:

4. Nato kliknite OK gumb:

(1.) Če list obstaja, se prikaže pozivno okno, ki vas opomni na spodnjo sliko zaslona:

(2.) Če list ne obstaja, bo ustvarjen naenkrat, glejte posnetek zaslona: