Jednou z najjednoduchších automatizácií súvisiacich s pracovným hárkom, ktorú môžete použiť pomocou makra v Exceli, je pridanie a pomenovanie nového pracovného hárka. Tu je návod, ako toto makro funguje a ako ho používať.
Ako funguje makro
Keď si prečítate riadky kódu, uvidíte, že toto makro je relatívne intuitívne:
Pod makro1()
„Krok 1: Povedzte Excelu, čo má robiť v prípade chyby
Pri chybe Prejsť na MyError
„Krok 2: Pridajte hárok a pomenujte ho
Sheets.Add
ActiveSheet.Name = _
WorksheetFunction.Text(Now(), "md-yyyy h_mm_ss
dopoludnia popoludní")
Ukončiť Sub
'Krok 3: Ak je tu, nastala chyba; povedať používateľovi
MyError:
MsgBox "Takto už existuje hárok."
End Sub
Musíte počítať s tým, že ak dáte novému hárku názov, ktorý už existuje, dôjde k chybe. Takže v kroku 1 makro povie Excelu, aby okamžite preskočil na riadok, ktorý hovorí MyError (v kroku 3), ak sa vyskytne chyba.
Krok 2 používa metódu Pridať na pridanie nového hárka. Štandardne sa hárok nazýva Hárok xx, kde xx predstavuje číslo hárku. Hárok pridelíte nový názov zmenou vlastnosti Name objektu ActiveSheet. V tomto prípade pomenujete pracovný hárok aktuálnym dátumom a časom.
Rovnako ako v prípade zošitov, zakaždým, keď použijete VBA na pridanie nového hárka, novo pridaný hárok sa automaticky stane aktívnym hárkom. Nakoniec si v kroku 2 všimnite, že makro ukončí postup. Musí to urobiť, aby sa náhodou nedostal do kroku 3 (ktorý prichádza do úvahy iba vtedy, ak sa vyskytne chyba).
Krok 3 upozorní používateľa, že názov hárka už existuje. Opäť platí, že tento krok by sa mal aktivovať iba vtedy, ak sa vyskytne chyba.
Ako používať makro
Ak chcete implementovať toto makro, môžete ho skopírovať a prilepiť do štandardného modulu:
Aktivujte Editor jazyka Visual Basic stlačením Alt+F11.
Kliknite pravým tlačidlom myši na názov projektu/zošita v okne projektu.
Vyberte Vložiť → Modul.
Zadajte alebo prilepte kód do novovytvoreného modulu.