Noen av de mest nyttige makroene er enkle prosedyrer som endrer en eller flere av Excels innstillinger. For eksempel, hvis du opplever at du ofte går til dialogboksen for Excel-alternativer for å endre en innstilling, er det en god kandidat for en enkel tidsbesparende makro.
Her er to eksempler som viser deg hvordan du endrer innstillinger i Excel. Du kan bruke de generelle prinsippene vist i disse eksemplene på andre operasjoner som endrer innstillinger.
Endre boolske innstillinger
Som en lysbryter er en boolsk innstilling enten på eller av. Det kan for eksempel være lurt å lage en makro som slår sideskiftvisningen av regnearket på og av. Etter at du har skrevet ut eller forhåndsvist et regneark, viser Excel stiplede linjer for å indikere sideskiftene. Noen mennesker synes disse stiplede linjene er veldig irriterende.
Dessverre er den eneste måten å bli kvitt sideskiftvisningen ved å åpne dialogboksen for Excel-alternativer, klikke på Avansert-fanen og bla nedover til du finner avmerkingsboksen Vis sideskift. Hvis du slår på makroopptakeren når du endrer det alternativet, genererer Excel følgende kode:
ActiveSheet.DisplayPageBreaks = False
På den annen side, hvis sideskift ikke er synlige når du registrerer makroen, genererer Excel følgende kode:
ActiveSheet.DisplayPageBreaks = Sant
Dette kan føre til at du konkluderer med at du trenger to makroer: én for å slå på sideskiftvisningen og én for å slå den av. Ikke sant. Følgende prosedyre bruker Not-operatoren, som gjør True til False og False til True. Å utføre TogglePageBreaks-prosedyren er en enkel måte å bytte sideskiftvisning fra True til False og fra False til True:
Sub TogglePageBreaks()
Ved feil på Fortsett neste
ActiveSheet.DisplayPageBreaks = Ikke _
ActiveSheet.DisplayPageBreaks
End Sub
Den første setningen forteller Excel å ignorere eventuelle feil. Et diagramark viser for eksempel ikke sideskift, så hvis du kjører makroen når et diagramark er aktivt, vil du ikke se en feilmelding.
Du kan bruke denne teknikken til å bytte alle innstillinger som har boolske (sann eller usann) verdier.
Endre ikke-boolske innstillinger
Du kan bruke en Select Case-struktur for ikke-boolske innstillinger. Dette eksemplet veksler beregningsmodus mellom manuell og automatisk og viser en melding som indikerer gjeldende modus:
Sub ToggleCalcMode()
Velg Saksøknad.Beregning
Case xlManual
Application.Calculation = xlCalculationAutomatic
MsgBox "Automatisk beregningsmodus"
Koffert xlAutomatisk
Application.Calculation = xlCalculationManual
MsgBox "Manuell beregningsmodus"
Avslutt Velg
End Sub
Du kan tilpasse denne teknikken for å endre andre ikke-boolske innstillinger.