Hogyan hozzunk létre egy lapot, ha nem létezik a munkafüzetben?

Ha feltételezzük, hogy van egy munkafüzete, amely több munkalapot tartalmaz, most meg kell határoznia, hogy létezik-e konkrét munkalap-név. Ha a munkalap neve nem létezik, kérjük, hozza létre. Ha létezik, kérjük, küldjön egy gyors üzenetet a lap létezéséről. Hogyan oldhatná meg ezt a feladatot Excelben?

Hozzon létre egy lapot, ha még nem létezik VBA kódú munkafüzetben

---

Hozzon létre egy lapot, ha még nem létezik VBA kódú munkafüzetben

A következő VBA-kód segíthet egy adott munkalap nevének ellenőrzésében, ha létezik a munkafüzetben, ha nem, akkor a kód létrehozhatja a munkalapot, amire szüksége van.

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA-kód: Hozzon létre egy lapot, ha nem létezik a munkafüzetben:

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, megjelenik egy prompt doboz, amely emlékezteti Önt, hogy adja meg az ellenőrizni kívánt lap nevét, lásd a képernyőképet:

4. Ezután kattintson OK gomb:

(1.) Ha a lap létezik, megjelenik egy figyelmeztető mező, amely emlékezteti Önt a következő képernyőkép szerint:

(2.) Ha a lap nem létezik, akkor azonnal létrejön, lásd a képernyőképet: