Jak pomocí makra VBA změnit nastavení Excelu 2016

Některá z nejužitečnějších maker jsou jednoduché postupy, které mění jedno nebo více nastavení aplikace Excel. Pokud například často navštěvujete dialogové okno Možnosti aplikace Excel za účelem změny nastavení, je to dobrý kandidát na jednoduché makro šetřící čas.

Zde jsou dva příklady, které ukazují, jak změnit nastavení v Excelu. Obecné principy uvedené v těchto příkladech můžete aplikovat na další operace, které mění nastavení.

Změna booleovských nastavení

Stejně jako spínač světla je booleovské nastavení buď zapnuto, nebo vypnuto. Můžete například chtít vytvořit makro, které zapíná a vypíná zobrazení konce stránky listu. Po vytištění nebo náhledu listu zobrazí Excel přerušované čáry označující konce stránek. Někomu jsou tyto přerušované čáry velmi nepříjemné.

Bohužel jediný způsob, jak se zbavit zobrazení konce stránek, je otevřít dialogové okno Možnosti aplikace Excel, kliknout na kartu Upřesnit a posouvat se dolů, dokud nenajdete zaškrtávací políčko Zobrazit konce stránek. Pokud při změně této možnosti zapnete záznam maker, Excel vygeneruje následující kód:

ActiveSheet.DisplayPageBreaks = False

Na druhou stranu, pokud při záznamu makra nejsou vidět konce stránek, Excel vygeneruje následující kód:

ActiveSheet.DisplayPageBreaks = True

To vás může vést k závěru, že potřebujete dvě makra: jedno pro zapnutí zobrazení konce stránky a druhé pro jeho vypnutí. Není pravda. Následující postup používá operátor Not, který změní hodnotu True na False a False na True. Provedení procedury TogglePageBreaks je jednoduchý způsob, jak přepnout zobrazení konce stránky z True na False az False na True:

Sub TogglePageBreaks()
  Při chybě pokračovat dále
  ActiveSheet.DisplayPageBreaks = Ne _
   ActiveSheet.DisplayPageBreaks
End Sub

Sub ToggleCalcMode()
  Vyberte Case Application.Calculation
    Pouzdro xlManual
      Application.Calculation = xlCalculationAutomatic
      MsgBox „Režim automatického výpočtu“
    Pouzdro xlAutomatic
      Application.Calculation = xlCalculationManual
      MsgBox „Režim ručního výpočtu“
  Konec Vyberte
End Sub