Excel nie je iba nástrojom na uchovávanie firemných údajov a účtovníctva. Jeho sila spočíva v tom, že sa dá ľahko a rýchlo použiť na klasifikáciu a správu takmer všetkého. Môžeme vytvárať agendy, pracovné kvadranty, adresáre, šablóny faktúr, záznamy o dochádzke ... Excel nám však neumožňuje organizovať listy pracovných zošitov, čo je pri práci s dlhými knihami niečo veľmi užitočné. Karty programu Excel však môžeme automaticky triediť pomocou makra v kóde jazyka Visual Basic . Vysvetľujeme, ako na to krok za krokom.
Slová „makro v kóde jazyka Visual Basic“ môžu byť zastrašujúce, ale všetko je jednoduchšie, ako to znie. Makro je malý program, ktorý za nás vykonáva sériu akcií v programe Excel a slúži na automatizáciu opakujúcich sa úloh . Makrá sú napísané v kóde Visual Basic for Applications (alebo VBA), programovacom jazyku, ktorý umožňuje prístup a rozšírenie funkcií programu Excel.
Editor jazyka Visual Basic
Aby sme vytvorili naše makro, musíme otvoriť akýkoľvek zošit v programe Excel a čím viac má kariet, tým lepšie.
Na otvorenie editora VBA používame klávesovú skratku Alt + F11 . Po zobrazení okna editora vyhľadáme konkrétny zošit programu Excel s názvom Personal.xls . Táto kniha má tú vlastnosť, že čokoľvek v nej urobíme, ovplyvní všetky zošity . To znamená, že ak vytvoríme makro, môžeme ho použiť kedykoľvek chceme.
Ak nenájdete Osobnú knihu, nebojte sa. Ukončite editor, otvorte kartu Zobrazenie v programe Excel, rozbaľte ponuku Makrá a vyberte položku Záznam makra . Uložte makro do svojej Osobnej knihy makier a začnite nahrávať. Ďalej vyvolajte ponuku Makra znova a zastavte nahrávanie. Už máte svoju „špeciálnu“ knihu.
Teraz máme všetko pripravené na vytvorenie nového modulu . Otvoríme editor VBA pomocou Alt + F11 , vyberieme knihu Personal.xls a potom klikneme na Vložiť> Modul . Umiestnime kurzor do okna modulu a napíšeme nasledujúci kód:
Sub SortSheets_Ascendant ()
Pre a = 1 do listov.Počet
Pre s = a + 1 Do listov.Počet
Ak UCase (Tabuľky (a) .Name)> UCase (Tabuľky) .Name) Potom
Tabuľky. Presunúť predtým: = Tabuľky (a)
Koniec Ak
Ďalšia s
Vedľa
Koniec Sub
Zatvoríme okno a makro sa automaticky uloží. Zostáva len skontrolovať, či to funguje. Otvoríme knihu, ktorej karty si chceme objednať, prejdeme do View a klikneme na Macros , alebo stlačíme klávesovú skratku Alt + F8 . Dvakrát klikneme na SortSheets_Ascendant a záložky kníh sa v okamihu umiestnia v abecednom poradí .
Keď zatvoríme program Excel, program sa nás opýta, či chceme uložiť zmeny vykonané v makrách. Prijímame a naše makro bude uložené pre použitie s knihou, ktorú chceme.
Zoraďte listy v zostupnom poradí
S niekoľkými malými zmenami kódu môžeme dosiahnuť opačný efekt: zoradiť karty v zostupnom abecednom poradí . Opakujeme postup vytvárania makra a tentokrát vložíme nasledujúci kód:
Sub SortSheets_Descending ()
Pre a = 1 do listov.Počet
Pre s = a + 1 Do listov.Počet
If UCase (Sheets (a) .Name) <UCase (Sheets (s) .Name) Then
Tabuľky. Presunúť predtým: = Tabuľky (a)
Koniec Ak
Ďalšia s
Vedľa
Koniec Sub
Existujú iba dve variácie. Prvý je samozrejme názov makra. Druhým je zmena z> na <vo štvrtom riadku kódu. To znamená, že usporiadanie listov v knihe zmení smer . Keď teraz kliknete na Zobraziť> Makrá (alebo klávesová skratka Alt + F8 ), uvidíte dve novo vytvorené makrá. Dvakrát kliknite na SortSheets_Descending a s uspokojením skontrolujte jeho účinok.
Po uložení zmien pri ukončení programu Excel budeme mať tieto dve makrá kedykoľvek k dispozícii . Ušetria nám veľa času a úsilia pri manipulácii s obzvlášť objemnými záložkami zošita programu Excel.