Några av de mest användbara makron är enkla procedurer som ändrar en eller flera av Excels inställningar. Om du till exempel kommer på att du ofta besöker dialogrutan Excel-alternativ för att ändra en inställning, är det en bra kandidat för ett enkelt tidsbesparande makro.
Här är två exempel som visar hur du ändrar inställningar i Excel. Du kan tillämpa de allmänna principerna som visas i dessa exempel på andra operationer som ändrar inställningar.
Ändra booleska inställningar
Precis som en ljusströmbrytare är en boolesk inställning antingen på eller av. Du kanske till exempel vill skapa ett makro som slår på och av sidbrytningsvisningen i kalkylbladet. När du har skrivit ut eller förhandsgranskat ett kalkylblad visar Excel streckade linjer för att indikera sidbrytningarna. Vissa människor tycker att dessa streckade linjer är väldigt irriterande.
Tyvärr är det enda sättet att bli av med sidbrytningsvisningen att öppna dialogrutan Excel-alternativ, klicka på fliken Avancerat och bläddra nedåt tills du hittar kryssrutan Visa sidbrytningar. Om du slår på makroinspelaren när du ändrar det alternativet genererar Excel följande kod:
ActiveSheet.DisplayPageBreaks = Falskt
Å andra sidan, om sidbrytningar inte är synliga när du spelar in makrot, genererar Excel följande kod:
ActiveSheet.DisplayPageBreaks = Sant
Detta kan leda till att du drar slutsatsen att du behöver två makron: ett för att aktivera sidbrytningsvisningen och ett för att stänga av den. Inte sant. Följande procedur använder Not-operatorn, som gör True till False och False till True. Att köra TogglePageBreaks-proceduren är ett enkelt sätt att växla sidbrytningsvisningen från True till False och från False till True:
Sub TogglePageBreaks()
Vid fel Resume Next
ActiveSheet.DisplayPageBreaks = Inte _
ActiveSheet.DisplayPageBreaks
Avsluta Sub
Det första uttalandet säger åt Excel att ignorera eventuella fel. Ett diagramblad visar till exempel inte sidbrytningar, så om du kör makrot när ett diagramblad är aktivt kommer du inte att se ett felmeddelande.
Du kan använda den här tekniken för att växla alla inställningar som har booleska (sant eller falskt) värden.
Ändra icke-booleska inställningar
Du kan använda en Select Case-struktur för icke-booleska inställningar. Det här exemplet växlar beräkningsläget mellan manuellt och automatiskt och visar ett meddelande som anger det aktuella läget:
Sub ToggleCalcMode()
Välj Case Application.Calculation
Fodral xlManual
Application.Calculation = xlCalculationAutomatic
MsgBox "Automatiskt beräkningsläge"
Fodral xlAutomatisk
Application.Calculation = xlCalculationManual
MsgBox "Manuellt beräkningsläge"
Avsluta Välj
Avsluta Sub
Du kan anpassa den här tekniken för att ändra andra icke-booleska inställningar.