Hur skapar jag ett ark om det inte finns i arbetsboken?

Om du antar att du har en arbetsbok som innehåller flera kalkylblad, måste du nu avgöra om ett specifikt kalkylbladsnamn finns. Om kalkylbladets namn inte finns, skapa det. Om det finns, vänligen ge ett snabbt meddelande för att berätta att arket finns. Hur kunde du lösa denna uppgift i Excel?

Skapa ett ark om det inte finns i arbetsboken med VBA-kod

Skapa ett ark om det inte finns i arbetsboken med VBA-kod

Följande VBA-kod kan hjälpa dig att kontrollera ett specifikt kalkylbladsnamn om det finns i arbetsboken, om inte kan koden skapa bladet efter behov.

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Skapa ett ark om det inte finns i arbetsboken:

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. Och tryck sedan på F5 för att köra den här koden, visas en uppmaningsruta för att påminna dig om att ange arknamnet som du vill kontrollera, se skärmdump:

4. Klicka sedan OK knapp:

(1.) Om arket finns kommer en uppmaningsruta att dyka upp för att påminna dig om följande skärmdump:

(2.) Om arket inte finns skapas det på en gång, se skärmdump: