Una de les automatitzacions més senzilles relacionades amb el full de treball que podeu aplicar amb una macro a Excel és afegir i anomenar un full de treball nou. A continuació s'explica com funciona aquesta macro i com utilitzar-la.
Com funciona la macro
Quan llegiu les línies del codi, veureu que aquesta macro és relativament intuïtiva:
Sub macro1()
"Pas 1: digueu a Excel què ha de fer en cas d'error
En cas d'error GoTo MyError
"Pas 2: afegiu un full i poseu-li un nom
Fulls.Afegir
ActiveSheet.Name = _
WorksheetFunction.Text(Ara(), "md-aaaa h_mm_ss
am PM")
Sortir de Sub
"Pas 3: si aquí, s'ha produït un error; dir-li a l'usuari
El meu error:
MsgBox "Ja hi ha un full anomenat així."
End Sub
Heu de preveure que si doneu al nou full un nom que ja existeix, es produiria un error. Així, al pas 1, la macro diu a Excel que salti immediatament a la línia que diu MyError (al pas 3) si hi ha un error.
El pas 2 utilitza el mètode Afegeix per afegir un full nou. Per defecte, el full s'anomena Full xx, on xx representa el número del full. Doneu un nou nom al full canviant la propietat Name de l'objecte ActiveSheet. En aquest cas, esteu anomenant el full de treball amb la data i l'hora actuals.
Igual que amb els llibres de treball, cada vegada que utilitzeu VBA per afegir un full nou, el full afegit es converteix automàticament en el full actiu. Finalment, al pas 2, tingueu en compte que la macro surt del procediment. Ho ha de fer perquè no entri accidentalment al pas 3 (que només entra en joc si es produeix un error).
El pas 3 notifica a l'usuari que el nom del full ja existeix. De nou, aquest pas només s'ha d'activar si es produeix un error.
Com utilitzar la macro
Per implementar aquesta macro, podeu copiar-la i enganxar-la en un mòdul estàndard:
Activeu Visual Basic Editor prement Alt+F11.
Feu clic amb el botó dret al nom del projecte/llibre de treball a la finestra del projecte.
Seleccioneu Insereix → Mòdul.
Escriviu o enganxeu el codi al mòdul acabat de crear.