Ako použiť makro VBA na zmenu nastavení Excelu 2016

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

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