Algunes de les macros més útils són procediments senzills que canvien una o més configuracions d'Excel. Per exemple, si us trobeu fent viatges freqüents al quadre de diàleg Opcions d'Excel per canviar una configuració, aquest és un bon candidat per a una macro senzilla per estalviar temps.
Aquí teniu dos exemples que us mostren com canviar la configuració a Excel. Podeu aplicar els principis generals que mostren aquests exemples a altres operacions que canvien la configuració.
Canviar la configuració booleana
Com un interruptor de llum, una configuració booleana està activada o desactivada. Per exemple, és possible que vulgueu crear una macro que activi i desactivi la visualització del salt de pàgina del full de treball. Després d'imprimir o previsualitzar un full de treball, Excel mostra línies discontínues per indicar els salts de pàgina. Algunes persones troben aquestes línies discontínues molt molestes.
Malauradament, l'única manera de desfer-se de la visualització dels salts de pàgina és obrir el quadre de diàleg Opcions d'Excel, fer clic a la pestanya Avançat i desplaçar-se cap avall fins que trobeu la casella de selecció Mostra els salts de pàgina. Si activeu la gravadora de macros quan canvieu aquesta opció, Excel genera el codi següent:
ActiveSheet.DisplayPageBreaks = Fals
D'altra banda, si els salts de pàgina no són visibles quan enregistreu la macro, Excel genera el codi següent:
ActiveSheet.DisplayPageBreaks = Cert
Això us pot portar a concloure que necessiteu dues macros: una per encendre la visualització del salt de pàgina i una altra per desactivar-la. No és cert. El procediment següent utilitza l'operador Not, que converteix True en False i False en True. Executar el procediment TogglePageBreaks és una manera senzilla de canviar la visualització del salt de pàgina de True a False i de False a True:
Sub-TogglePageBreaks()
En cas d'error Reprèn Següent
ActiveSheet.DisplayPageBreaks = No _
ActiveSheet.DisplayPageBreaks
End Sub
La primera declaració diu a Excel que ignori qualsevol error. Per exemple, un full de gràfic no mostra salts de pàgina, de manera que si executeu la macro quan un full de gràfic està actiu, no veureu cap missatge d'error.
Podeu utilitzar aquesta tècnica per canviar qualsevol configuració que tingui valors booleans (vertader o fals).
Canviar la configuració no booleana
Podeu utilitzar una estructura Select Case per a configuracions no booleanes. Aquest exemple alterna el mode de càlcul entre manual i automàtic i mostra un missatge que indica el mode actual:
Sub ToggleCalcMode ()
Seleccioneu Aplicació del cas. Càlcul
Cas xlManual
Application.Calculation = xlCalculationAutomatic
MsgBox "Mode de càlcul automàtic"
Cas xlAutomàtic
Application.Calculation = xlCalculationManual
MsgBox "Mode de càlcul manual"
Finalitzar la selecció
End Sub
Podeu adaptar aquesta tècnica per canviar altres paràmetres no booleans.