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:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
