Jednou z nejjednodušších automatizací souvisejících s listy, které můžete použít pomocí makra v Excelu, je přidání a pojmenování nového listu. Zde je návod, jak toto makro funguje a jak jej používat.
Jak makro funguje
Když si přečtete řádky kódu, uvidíte, že toto makro je relativně intuitivní:
Dílčí makro1()
„Krok 1: Řekněte Excelu, co má dělat v případě chyby
On Error GoTo MyError
'Krok 2: Přidejte list a pojmenujte jej
Sheets.Add
ActiveSheet.Name = _
WorksheetFunction.Text(Now(), "md-yyyy h_mm_ss
dopoledne odpoledne")
Exit Sub
'Krok 3: Pokud zde, došlo k chybě; říct uživateli
MyError:
MsgBox "Takto již existuje list."
End Sub
Musíte počítat s tím, že pokud dáte novému listu název, který již existuje, dojde k chybě. Takže v kroku 1 makro řekne Excelu, aby okamžitě přeskočil na řádek, který říká MyError (v kroku 3), pokud dojde k chybě.
Krok 2 používá metodu Add k přidání nového listu. Standardně se list nazývá List xx, kde xx představuje číslo listu. Listu přidělíte nový název změnou vlastnosti Name objektu ActiveSheet. V tomto případě pojmenujete list aktuálním datem a časem.
Stejně jako u sešitů se pokaždé, když použijete VBA k přidání nového listu, nově přidaný list automaticky stane aktivním listem. Nakonec si v kroku 2 všimněte, že makro postup ukončí. Musí to udělat, aby náhodou nepřešel do kroku 3 (který přichází do hry pouze v případě, že dojde k chybě).
Krok 3 upozorní uživatele, že název listu již existuje. Opět platí, že tento krok by měl být aktivován pouze v případě, že dojde k chybě.
Jak používat makro
Chcete-li implementovat toto makro, můžete jej zkopírovat a vložit do standardního modulu:
Aktivujte Editor jazyka Visual Basic stisknutím Alt+F11.
Klepněte pravým tlačítkem myši na název projektu/sešitu v okně projektu.
Vyberte Vložit → Modul.
Zadejte nebo vložte kód do nově vytvořeného modulu.