Kai kurios naudingiausios makrokomandos yra paprastos procedūros, pakeičiančios vieną ar daugiau „Excel“ nustatymų. Pavyzdžiui, jei dažnai lankotės dialogo lange „Excel“ parinktys, kad pakeistumėte parametrą, tai yra geras kandidatas į paprastą laiką taupančią makrokomandą.
Štai du pavyzdžiai, rodantys, kaip pakeisti parametrus programoje „Excel“. Šiuose pavyzdžiuose parodytus bendruosius principus galite taikyti kitoms operacijoms, kurios keičia parametrus.
Būlio nustatymų keitimas
Kaip ir šviesos jungiklis, Būlio nustatymas yra įjungtas arba išjungtas. Pavyzdžiui, galbūt norėsite sukurti makrokomandą, kuri įjungia ir išjungia darbalapio puslapio lūžio rodymą. Išspausdinus arba peržiūrėjus darbalapį, „Excel“ rodo punktyrines linijas, rodančias puslapio lūžius. Kai kuriems žmonėms šios brūkšninės linijos labai erzina.
Deja, vienintelis būdas atsikratyti puslapio lūžių rodymo yra atidaryti dialogo langą „Excel“ parinktys, spustelėti skirtuką „Išplėstinė“ ir slinkite žemyn, kol rasite žymės langelį Rodyti puslapio lūžius. Jei pakeitę šią parinktį įjungsite makrokomandų įrašymo įrenginį, „Excel“ sugeneruos šį kodą:
ActiveSheet.DisplayPageBreaks = Netiesa
Kita vertus, jei puslapių lūžių nematyti įrašant makrokomandą, „Excel“ sugeneruoja šį kodą:
ActiveSheet.DisplayPageBreaks = Tiesa
Dėl to galite padaryti išvadą, kad jums reikia dviejų makrokomandų: vienos, kad įjungtumėte puslapio lūžio ekraną, ir kitos, kad ją išjungtumėte. Netiesa. Šioje procedūroje naudojamas operatorius Not, kuris paverčia True į klaidingą ir klaidingą į True. TogglePageBreaks procedūros vykdymas yra paprastas būdas perjungti puslapio lūžio rodymą iš True į False ir iš False į True:
Sub TogglePageBreaks()
Įvykus klaidai, tęskite toliau
ActiveSheet.DisplayPageBreaks = Ne _
ActiveSheet.DisplayPageBreaks
Pabaigos sub
Pirmasis sakinys nurodo „Excel“ nepaisyti klaidų. Pavyzdžiui, diagramos lape nerodomi puslapių lūžiai, todėl jei makrokomandą vykdote, kai diagramos lapas yra aktyvus, nematysite klaidos pranešimo.
Šią techniką galite naudoti norėdami perjungti bet kokius parametrus, turinčius Būlio (tiesa arba klaidinga) reikšmes.
Keičiami ne loginiai nustatymai
Struktūrą Select Case galite naudoti ne loginiams parametrams. Šiame pavyzdyje skaičiavimo režimas perjungiamas iš rankinio į automatinį ir atvirkščiai, ir rodomas pranešimas, nurodantis esamą režimą:
Sub ToggleCalcMode()
Pasirinkite Case Application.Calculation
Case xlManual
Taikymas.Skaičiavimas = xlCalculationAutomatic
MsgBox „Automatinis skaičiavimo režimas“
Case xlAutomatic
Application.Calculation = xlCalculationManual
MsgBox „Rankinis skaičiavimo režimas“
Pabaigos pasirinkimas
Pabaigos sub
Galite pritaikyti šią techniką kitiems ne Būlio parametrams keisti.