Nogle af de mest nyttige makroer er simple procedurer, der ændrer en eller flere af Excels indstillinger. For eksempel, hvis du finder dig selv at foretage hyppige ture til dialogboksen Excel-indstillinger for at ændre en indstilling, er det en god kandidat til en simpel tidsbesparende makro.
Her er to eksempler, der viser dig, hvordan du ændrer indstillinger i Excel. Du kan anvende de generelle principper, som disse eksempler viser, på andre handlinger, der ændrer indstillinger.
Ændring af booleske indstillinger
Som en lyskontakt er en boolsk indstilling enten tændt eller slukket. For eksempel vil du måske oprette en makro, der tænder og slukker for sideskift i regnearket. Når du har udskrevet eller vist et regneark, viser Excel stiplede linjer for at angive sideskiftene. Nogle mennesker finder disse stiplede linjer meget irriterende.
Desværre er den eneste måde at slippe af med sideskiftvisningen ved at åbne dialogboksen Excel-indstillinger, klikke på fanen Avanceret og rulle ned, indtil du finder afkrydsningsfeltet Vis sideskift. Hvis du tænder for makrooptageren, når du ændrer denne indstilling, genererer Excel følgende kode:
ActiveSheet.DisplayPageBreaks = Falsk
På den anden side, hvis sideskift ikke er synlige, når du optager makroen, genererer Excel følgende kode:
ActiveSheet.DisplayPageBreaks = Sand
Dette kan få dig til at konkludere, at du har brug for to makroer: én til at slå sideskiftvisningen til og én til at slå den fra. Ikke sandt. Følgende procedure bruger Not-operatoren, som gør True til False og False til Sand. Udførelse af TogglePageBreaks-proceduren er en enkel måde at skifte sideskiftvisningen fra True til False og fra False til True:
Sub TogglePageBreaks()
Ved fejl Genoptag Næste
ActiveSheet.DisplayPageBreaks = Ikke _
ActiveSheet.DisplayPageBreaks
Slut Sub
Den første sætning fortæller Excel at ignorere eventuelle fejl. For eksempel viser et diagramark ikke sideskift, så hvis du udfører makroen, når et diagramark er aktivt, vil du ikke se en fejlmeddelelse.
Du kan bruge denne teknik til at skifte mellem indstillinger, der har booleske (sandt eller falsk) værdier.
Ændring af ikke-booleske indstillinger
Du kan bruge en Select Case-struktur til ikke-booleske indstillinger. Dette eksempel skifter beregningstilstanden mellem manuel og automatisk og viser en meddelelse, der angiver den aktuelle tilstand:
Sub ToggleCalcMode()
Vælg Sagsansøgning.Beregning
Case xlManual
Application.Calculation = xlCalculationAutomatic
MsgBox "Automatisk beregningstilstand"
Etui xlAutomatisk
Application.Calculation = xlCalculationManual
MsgBox "Manuel beregningstilstand"
Afslut Vælg
Slut Sub
Du kan tilpasse denne teknik til at ændre andre ikke-booleske indstillinger.