Jak vytvořit list, pokud v sešitu neexistuje?
Předpokládejme, že máte sešit, který obsahuje více listů, nyní musíte určit, zda existuje konkrétní název listu. Pokud název listu neexistuje, vytvořte ho. Pokud existuje, dejte nám prosím rychlou zprávu, abyste zjistili, zda list existuje. Jak byste mohli vyřešit tento úkol v aplikaci Excel?
Pokud list neexistuje, vytvořte list s kódem VBA
Pokud list neexistuje, vytvořte list s kódem VBA
Následující kód VBA vám pomůže zkontrolovat konkrétní název listu, pokud v sešitu existuje, pokud ne, kód může vytvořit list podle potřeby.
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Vytvořte list, pokud v sešitu neexistuje:
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. A pak stiskněte F5 Po spuštění tohoto kódu se zobrazí výzva k připomenutí zadání názvu listu, který chcete zkontrolovat, viz screenshot:
4. Pak klikněte na tlačítko OK Tlačítko:
(1.) Pokud list existuje, zobrazí se okno s výzvou, které vám připomene následující obrázek obrazovky:
(2.) Pokud list neexistuje, bude vytvořen najednou, viz screenshot:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!