Ena najpreprostejših avtomatizacij, povezanih z delovnim listom, ki jih lahko uporabite z makrom v Excelu, je dodajanje in poimenovanje novega delovnega lista. Tukaj je opisano, kako ta makro deluje in kako ga uporabiti.
Kako deluje makro
Ko preberete vrstice kode, boste videli, da je ta makro relativno intuitiven:
Podmakro1()
1. korak: Povejte Excelu, kaj naj stori, če pride do napake
Ob napaki Pojdi na MyError
2. korak: dodajte list in ga poimenujte
Listi.Dodaj
ActiveSheet.Name = _
WorksheetFunction.Text(Now(), "md-yyyy h_mm_ss
dopoldne Popoldne")
Izhod Sub
3. korak: Če je tukaj, je prišlo do napake; povej uporabniku
moja napaka:
MsgBox "Tako že obstaja list."
Končni sub
Predvideti morate, da bo prišlo do napake, če novemu listu date ime, ki že obstaja. Torej v 1. koraku makro pove Excelu, naj takoj preskoči na vrstico z napisom MyError (v 3. koraku), če pride do napake.
2. korak uporablja metodo Dodaj za dodajanje novega lista. Privzeto se list imenuje List xx, kjer xx predstavlja številko lista. Listu date novo ime tako, da spremenite lastnost Name predmeta ActiveSheet. V tem primeru delovni list poimenujete s trenutnim datumom in uro.
Kot pri delovnih zvezkih, vsakič, ko uporabite VBA za dodajanje novega lista, novo dodan list samodejno postane aktiven list. Nazadnje, v koraku 2, upoštevajte, da makro zapusti postopek. To mora storiti, da slučajno ne gre v korak 3 (ki pride v poštev le, če pride do napake).
3. korak obvesti uporabnika, da ime lista že obstaja. Ponovno je treba ta korak aktivirati le, če pride do napake.
Kako uporabljati makro
Če želite implementirati ta makro, ga lahko kopirate in prilepite v standardni modul:
Aktivirajte urejevalnik Visual Basic s pritiskom na Alt+F11.
Z desno tipko miške kliknite ime projekta/delovnega zvezka v oknu projekta.
Izberite Vstavi → Modul.
V novo ustvarjeni modul vnesite ali prilepite kodo.