Üks lihtsamaid töölehtedega seotud automatiseerimisi, mida saate Excelis makroga rakendada, on uue töölehe lisamine ja nimetamine. Siit saate teada, kuidas see makro töötab ja kuidas seda kasutada.
Kuidas makro töötab
Kui loete koodi ridu läbi, näete, et see makro on suhteliselt intuitiivne:
Alammakro1()
1. samm: öelge Excelile, mida vea korral teha
Viga Mine MinuError
2. samm: lisage leht ja pange sellele nimi
Lehed. Lisa
ActiveSheet.Name = _
WorksheetFunction.Text(Now(), "md-yyyy h_mm_ss
am/pm")
Välju Sub
3. samm: kui siin, siis ilmnes viga; ütle kasutajale
Minu viga:
MsgBox "Selline leht on juba olemas."
Lõpeta alam
Peate arvestama, et kui annate uuele lehele juba olemasoleva nime, tekib tõrge. Nii et 1. toimingus käsib makro Excelil vea ilmnemisel viivitamatult hüpata reale MyError (3. sammus).
2. samm kasutab uue lehe lisamiseks lisamismeetodit. Vaikimisi on lehe nimi Sheet xx, kus xx tähistab lehe numbrit. Saate anda lehele uue nime, muutes ActiveSheet objekti atribuuti Name. Sel juhul annate töölehel praeguse kuupäeva ja kellaaja nime.
Nagu töövihikute puhul, muutub iga kord, kui kasutate uue lehe lisamiseks VBA-d, äsja lisatud leht automaatselt aktiivseks leheks. Lõpuks pange 2. sammus tähele, et makro väljub protseduurist. Seda tuleb teha nii, et see ei satuks kogemata 3. sammu (mis hakkab tööle ainult vea ilmnemisel).
Samm 3 teavitab kasutajat, et lehe nimi on juba olemas. Jällegi tuleks see samm aktiveerida ainult vea ilmnemisel.
Kuidas makrot kasutada
Selle makro rakendamiseks saate selle kopeerida ja kleepida standardmoodulisse:
Aktiveerige Visual Basic Editor, vajutades Alt+F11.
Paremklõpsake projekti aknas projekti/töövihiku nimel.
Valige Lisa → Moodul.
Tippige või kleepige kood vastloodud moodulisse.