Niektoré z najužitočnejších makier sú jednoduché postupy, ktoré menia jedno alebo viacero nastavení Excelu. Ak sa vám napríklad stáva, že často chodíte do dialógového okna Možnosti programu Excel, aby ste zmenili nastavenie, je to dobrý kandidát na jednoduché makro šetriace čas.
Tu sú dva príklady, ktoré vám ukážu, ako zmeniť nastavenia v Exceli. Všeobecné princípy uvedené v týchto príkladoch môžete použiť na iné operácie, ktoré menia nastavenia.
Zmena boolovských nastavení
Podobne ako vypínač svetiel, aj boolovské nastavenie je zapnuté alebo vypnuté. Môžete napríklad chcieť vytvoriť makro, ktoré zapína a vypína zobrazenie konca strany pracovného hárka. Po vytlačení alebo ukážke pracovného hárka Excel zobrazí prerušované čiary, ktoré označujú zlomy strán. Niektorí ľudia považujú tieto prerušované čiary za veľmi nepríjemné.
Bohužiaľ, jediný spôsob, ako sa zbaviť zobrazenia zlomov strán, je otvoriť dialógové okno Možnosti programu Excel, kliknúť na kartu Rozšírené a posúvať sa nadol, kým nenájdete začiarkavacie políčko Zobraziť zlomy strán. Ak pri zmene tejto možnosti zapnete záznam makier, Excel vygeneruje nasledujúci kód:
ActiveSheet.DisplayPageBreaks = False
Na druhej strane, ak pri zázname makra nie sú viditeľné zlomy strán, Excel vygeneruje nasledujúci kód:
ActiveSheet.DisplayPageBreaks = True
To vás môže viesť k záveru, že potrebujete dve makrá: jedno na zapnutie zobrazenia zlomu strany a druhé na jeho vypnutie. Nepravda. Nasledujúci postup používa operátor Not, ktorý zmení hodnotu True na False a False na True. Vykonanie procedúry TogglePageBreaks je jednoduchý spôsob, ako prepnúť zobrazenie konca strany z True na False az False na True:
Sub TogglePageBreaks()
Pri chybe Pokračujte ďalej
ActiveSheet.DisplayPageBreaks = Nie _
ActiveSheet.DisplayPageBreaks
End Sub
Prvý príkaz hovorí programu Excel, aby ignoroval všetky chyby. Hárok s grafom napríklad nezobrazuje zlomy strán, takže ak spustíte makro, keď je hárok s grafom aktívny, neuvidíte chybové hlásenie.
Túto techniku môžete použiť na prepínanie akýchkoľvek nastavení, ktoré majú boolovské hodnoty (pravda alebo nepravda).
Zmena nelogických nastavení
Pre nelogické nastavenia môžete použiť štruktúru Select Case. Tento príklad prepína režim výpočtu medzi manuálnym a automatickým a zobrazuje správu označujúcu aktuálny režim:
Sub ToggleCalcMode()
Zvoľte Case Application.Calculation
Puzdro xlManual
Application.Calculation = xlCalculationAutomatic
MsgBox „Režim automatického výpočtu“
Puzdro xlAutomatic
Application.Calculation = xlCalculationManual
MsgBox „Režim manuálneho výpočtu“
Koniec Vyberte
End Sub
Túto techniku môžete prispôsobiť na zmenu iných nelogických nastavení.