Kako koristiti VBA makronaredbu za promjenu postavki programa Excel 2016

Neke od najkorisnijih makronaredbi jednostavni su postupci koji mijenjaju jednu ili više postavki programa Excel. Na primjer, ako zateknete česte posjete dijaloškom okviru Mogućnosti programa Excel kako biste promijenili postavku, to je dobar kandidat za jednostavnu makronaredbu koja štedi vrijeme.

Evo dva primjera koji vam pokazuju kako promijeniti postavke u Excelu. Opća načela prikazana u ovim primjerima možete primijeniti na druge operacije koje mijenjaju postavke.

Promjena Booleovih postavki

Poput prekidača za svjetlo, Booleova postavka je ili uključena ili isključena. Na primjer, možda želite stvoriti makronaredbu koja uključuje i isključuje prikaz prijeloma stranice radnog lista. Nakon što ispišete ili pregledate radni list, Excel prikazuje isprekidane linije koje označavaju prijelome stranice. Neki ljudi smatraju ove isprekidane linije vrlo neugodnim.

Nažalost, jedini način da se riješite prikaza prijeloma stranice je otvaranje dijaloškog okvira Mogućnosti programa Excel, kliknite karticu Napredno i pomaknite se prema dolje dok ne pronađete potvrdni okvir Prikaži prijelome stranice. Ako uključite snimač makronaredbi kada promijenite tu opciju, Excel generira sljedeći kod:

ActiveSheet.DisplayPageBreaks = Netočno

S druge strane, ako prijelomi stranica nisu vidljivi kada snimite makronaredbu, Excel generira sljedeći kod:

ActiveSheet.DisplayPageBreaks = Točno

To vas može dovesti do zaključka da su vam potrebne dvije makronaredbe: jedna za uključivanje prikaza prijeloma stranice i jedna za isključivanje. Nije istina. Sljedeći postupak koristi operator Not, koji pretvara True u False i False u True. Izvođenje procedure TogglePageBreaks jednostavan je način za prebacivanje prikaza prijeloma stranice s True na False i s False na True:

Sub TogglePageBreaks()
  U slučaju pogreške Nastavi dalje
  ActiveSheet.DisplayPageBreaks = Nije _
   ActiveSheet.DisplayPageBreaks
Kraj Sub

Sub ToggleCalcMode()
  Odaberite Primjena slučaja.Izračun
    Slučaj xlPriručnik
      Aplikacija.Izračun = xlCalculationAutomatic
      MsgBox "Automatski način izračunavanja"
    Slučaj xlAutomatski
      Application.Calculation = xlCalculationManual
      MsgBox "Način ručnog izračuna"
  Kraj Odaberite
Kraj Sub