Daži no visnoderīgākajiem makro ir vienkāršas procedūras, kas maina vienu vai vairākus Excel iestatījumus. Piemēram, ja bieži apmeklējat dialoglodziņu Excel opcijas, lai mainītu iestatījumu, tas ir labs kandidāts vienkāršam laiku taupošam makro.
Šeit ir divi piemēri, kas parāda, kā programmā Excel mainīt iestatījumus. Šajos piemēros parādītos vispārīgos principus varat piemērot citām darbībām, kas maina iestatījumus.
Būla iestatījumu maiņa
Tāpat kā gaismas slēdzis, Būla iestatījums ir ieslēgts vai izslēgts. Piemēram, iespējams, vēlēsities izveidot makro, kas ieslēdz un izslēdz darblapas lappuses pārtraukuma displeju. Pēc darblapas drukāšanas vai priekšskatīšanas programma Excel parāda pārtrauktas līnijas, lai norādītu lappuses pārtraukumus. Dažiem cilvēkiem šīs pārtrauktās līnijas šķiet ļoti kaitinošas.
Diemžēl vienīgais veids, kā atbrīvoties no lappušu pārtraukuma displeja, ir atvērt Excel opciju dialoglodziņu, noklikšķiniet uz cilnes Papildu un ritiniet uz leju, līdz atrodat izvēles rūtiņu Rādīt lappuses pārtraukumus. Ja, mainot šo opciju, ieslēdzat makro ierakstītāju, programma Excel ģenerē šādu kodu:
ActiveSheet.DisplayPageBreaks = Nepatiesi
No otras puses, ja, ierakstot makro, lappušu pārtraukumi nav redzami, programma Excel ģenerē šādu kodu:
ActiveSheet.DisplayPageBreaks = Patiess
Tas var likt jums secināt, ka jums ir nepieciešami divi makro: viens, lai ieslēgtu lappuses pārtraukuma displeju, un otrs, lai to izslēgtu. Nav taisnība. Tālāk norādītajā procedūrā tiek izmantots operators Not, kas pārvērš True par False un False uz True. Procedūras TogglePageBreaks izpilde ir vienkāršs veids, kā pārslēgt lappuses pārtraukuma displeju no True uz False un no False uz True:
Sub TogglePageBreaks()
Kļūdas gadījumā atsākt nākamo
ActiveSheet.DisplayPageBreaks = Nav _
ActiveSheet.DisplayPageBreaks
Beigu apakš
Pirmais paziņojums liek Excel ignorēt visas kļūdas. Piemēram, diagrammas lapa nerāda lappušu pārtraukumus, tāpēc, ja izpildāt makro, kad diagrammas lapa ir aktīva, kļūdas ziņojums netiks rādīts.
Varat izmantot šo paņēmienu, lai pārslēgtu visus iestatījumus, kuriem ir Būla vērtības (patiesa vai nepatiesa).
Nebūla iestatījumu maiņa
Nebūla iestatījumiem varat izmantot struktūru Select Case. Šajā piemērā tiek pārslēgts aprēķina režīms starp manuālo un automātisko un tiek parādīts ziņojums, kas norāda pašreizējo režīmu:
Sub ToggleCalcMode()
Atlasiet Lietas pieteikums.Aprēķins
Case xlManual
Application.Calculation = xlCalculationAutomatic
MsgBox “Automātiskā aprēķina režīms”
Case xlAutomatic
Application.Calculation = xlCalculationManual
MsgBox “Manuālais aprēķina režīms”
Beigu atlase
Beigu apakš
Varat pielāgot šo paņēmienu, lai mainītu citus iestatījumus, kas nav Būla iestatījumi.