Kako uporabiti makro VBA za spreminjanje nastavitev programa Excel 2016

Nekateri najbolj uporabni makri so preprosti postopki, ki spremenijo eno ali več Excelovih nastavitev. Če na primer pogosto obiskujete pogovorno okno Excelove možnosti, da spremenite nastavitev, je to dober kandidat za preprost makro, ki prihrani čas.

Tukaj sta dva primera, ki vam pokažeta, kako spremeniti nastavitve v Excelu. Splošna načela, prikazana v teh primerih, lahko uporabite za druge operacije, ki spreminjajo nastavitve.

Spreminjanje nastavitev Boolean

Tako kot stikalo za luč je tudi Boolean nastavitev vklopljena ali izklopljena. Na primer, morda boste želeli ustvariti makro, ki vklopi in izklopi prikaz preloma strani delovnega lista. Ko natisnete ali predogledate delovni list, Excel prikaže črtkane črte, ki označujejo prelome strani. Nekaterim se zdijo te črtkane črte zelo moteče.

Na žalost se edini način, da se znebite prikaza preloma strani, odprete pogovorno okno Excelove možnosti, kliknete zavihek Napredno in se pomaknete navzdol, dokler ne najdete potrditvenega polja Pokaži prelome strani. Če vklopite snemalnik makrov, ko spremenite to možnost, Excel ustvari naslednjo kodo:

ActiveSheet.DisplayPageBreaks = False

Po drugi strani pa, če prelomi strani niso vidni, ko posnamete makro, Excel ustvari naslednjo kodo:

ActiveSheet.DisplayPageBreaks = Res

To vas lahko pripelje do zaključka, da potrebujete dva makra: enega za vklop prikaza preloma strani in drugega za izklop. Ni res. Naslednji postopek uporablja operator Not, ki spremeni True v False in False v True. Izvajanje postopka TogglePageBreaks je preprost način za preklop prikaza preloma strani iz True v False in iz False v True:

Sub TogglePageBreaks()
  Ob napaki Nadaljuj naprej
  ActiveSheet.DisplayPageBreaks = Ni _
   ActiveSheet.DisplayPageBreaks
Končni sub

Sub ToggleCalcMode()
  Izberite Case Application.Calculation
    Case xlManual
      Application.Calculation = xlCalculationAutomatic
      MsgBox "Način samodejnega izračuna"
    Ohišje xlSamodejno
      Application.Calculation = xlCalculationManual
      MsgBox "Ročni način izračuna"
  Konec Izberite
Končni sub