En af de enkleste regnearksrelaterede automatiseringer, du kan anvende med en makro i Excel, er at tilføje og navngive et nyt regneark. Her er, hvordan den makro fungerer, og hvordan du bruger den.
Sådan fungerer makroen
Når du læser linjerne i koden igennem, vil du se, at denne makro er relativt intuitiv:
Undermakro1()
Trin 1: Fortæl Excel, hvad der skal gøres, hvis der opstår fejl
Ved fejl GoTo MyError
Trin 2: Tilføj et ark og navngiv det
Ark.Tilføj
ActiveSheet.Name = _
WorksheetFunction.Text(Now(), "md-åååå h_mm_ss
am/pm")
Afslut Sub
Trin 3: Hvis her, skete der en fejl; fortælle brugeren
Min fejl:
MsgBox "Der er allerede et ark, der hedder det."
Slut Sub
Du skal forudse, at hvis du giver det nye ark et navn, der allerede eksisterer, vil der opstå en fejl. Så i trin 1 fortæller makroen Excel om straks at springe til linjen, der siger MyError (i trin 3), hvis der er en fejl.
Trin 2 bruger Tilføj-metoden til at tilføje et nyt ark. Som standard hedder arket Ark xx, hvor xx repræsenterer nummeret på arket. Du giver arket et nyt navn ved at ændre egenskaben Name for ActiveSheet-objektet. I dette tilfælde navngiver du regnearket med den aktuelle dato og klokkeslæt.
Som med projektmapper, hver gang du bruger VBA til at tilføje et nyt ark, bliver det nyligt tilføjede ark automatisk det aktive ark. Bemærk endelig i trin 2, at makroen afslutter proceduren. Det skal gøre dette, så det ikke ved et uheld kommer ind i trin 3 (som kun kommer i spil, hvis der opstår en fejl).
Trin 3 giver brugeren besked om, at arknavnet allerede eksisterer. Igen bør dette trin kun aktiveres, hvis der opstår en fejl.
Sådan bruger du makroen
For at implementere denne makro kan du kopiere og indsætte den i et standardmodul:
Aktiver Visual Basic Editor ved at trykke på Alt+F11.
Højreklik på projektets/projektmappens navn i projektvinduet.
Vælg Indsæt → Modul.
Indtast eller indsæt koden i det nyoprettede modul.