Mõned kõige kasulikumad makrod on lihtsad protseduurid, mis muudavad ühte või mitut Exceli seadet. Näiteks kui avastate end sageli sätte muutmiseks Exceli suvandite dialoogiboksi külastamas, on see hea kandidaat lihtsaks aega säästvaks makroks.
Siin on kaks näidet, mis näitavad, kuidas Excelis sätteid muuta. Nendes näidetes näidatud üldpõhimõtteid saate rakendada ka muudele seadeid muutvatele toimingutele.
Boole'i sätete muutmine
Sarnaselt valguslülitiga on Boole'i seadistus sisse või välja lülitatud. Näiteks võite soovida luua makro, mis lülitab töölehe leheküljepausi kuva sisse ja välja. Pärast töölehe printimist või eelvaate vaatamist kuvab Excel katkendlikud jooned, mis näitavad lehekülje vahesid. Mõned inimesed peavad neid katkendlikke jooni väga tüütuks.
Kahjuks on ainus viis leheküljepiiride kuvast vabanemiseks avada Exceli suvandite dialoogiboks, klõpsata vahekaarti Täpsemalt ja kerida allapoole, kuni leiate märkeruudu Kuva lehevahed. Kui lülitate selle suvandi muutmisel makrosalvesti sisse, genereerib Excel järgmise koodi.
ActiveSheet.DisplayPageBreaks = Vale
Teisest küljest, kui makro salvestamisel lehevahed pole nähtavad, genereerib Excel järgmise koodi:
ActiveSheet.DisplayPageBreaks = Tõene
See võib viia järeldusele, et vajate kahte makrot: ühte lehepausi kuva sisselülitamiseks ja teist selle väljalülitamiseks. Pole tõsi. Järgmine protseduur kasutab operaatorit Not, mis muudab väärtuse True väärtuseks Väär ja Väär väärtuseks Tõene. Protseduuri TogglePageBreaks käivitamine on lihtne viis lülitada lehepausi kuva väärtuselt Tõene valele ja valest tõesele:
Sub TogglePageBreaks()
Vea korral Jätka järgmisena
ActiveSheet.DisplayPageBreaks = Ei _
ActiveSheet.DisplayPageBreaks
Lõpeta alam
Esimene väide käsib Excelil kõiki vigu ignoreerida. Näiteks diagrammilehel ei kuvata leheküljevahesid, nii et kui käivitate makro, kui diagrammileht on aktiivne, siis veateadet ei kuvata.
Seda tehnikat saate kasutada mis tahes seadete vahetamiseks, millel on tõeväärtus (tõene või väär).
Mittetõveväärtuste sätete muutmine
Mittetõve seadete jaoks saate kasutada struktuuri Select Case. See näide lülitab arvutusrežiimi käsitsi ja automaatse vahel ning kuvab teate, mis näitab praegust režiimi:
Sub ToggleCalcMode()
Valige Case Application.Calculation
Case xlManual
Application.Calculation = xlCalculationAutomatic
MsgBox "Automaatne arvutusrežiim"
Case xlAutomatic
Application.Calculation = xlCalculationManual
MsgBox "Käsitsi arvutamise režiim"
Lõpeta Vali
Lõpeta alam
Saate seda tehnikat kohandada muude mittetõveväärtuste sätete muutmiseks.