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:
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!