En av de enkleste regnearkrelaterte automatiseringene du kan bruke med en makro i Excel, er å legge til og navngi et nytt regneark. Her er hvordan makroen fungerer og hvordan du bruker den.
Hvordan makroen fungerer
Når du leser gjennom linjene i koden, vil du se at denne makroen er relativt intuitiv:
Sub Makro1()
'Trinn 1: Fortell Excel hva du skal gjøre hvis det oppstår feil
Ved feil GoTo MyError
'Trinn 2: Legg til et ark og navngi det
Ark.Legg til
ActiveSheet.Name = _
WorksheetFunction.Text(Now(), "md-åååå h_mm_ss
morgen kveld")
Avslutt Sub
'Trinn 3: Hvis her, skjedde det en feil; fortelle brukeren
Min feil:
MsgBox "Det finnes allerede et ark som heter det."
End Sub
Du må regne med at hvis du gir det nye arket et navn som allerede eksisterer, vil det oppstå en feil. Så i trinn 1 ber makroen Excel umiddelbart å hoppe til linjen som sier MyError (i trinn 3) hvis det er en feil.
Trinn 2 bruker Legg til-metoden for å legge til et nytt ark. Som standard kalles arket Ark xx, der xx representerer nummeret på arket. Du gir arket et nytt navn ved å endre Name-egenskapen til ActiveSheet-objektet. I dette tilfellet navngir du regnearket med gjeldende dato og klokkeslett.
Som med arbeidsbøker, hver gang du bruker VBA til å legge til et nytt ark, blir det nylig lagt til arket automatisk det aktive arket. Til slutt, i trinn 2, merk at makroen avslutter prosedyren. Den må gjøre dette slik at den ikke ved et uhell kommer inn i trinn 3 (som bare kommer inn hvis det oppstår en feil).
Trinn 3 varsler brukeren om at arknavnet allerede eksisterer. Igjen, dette trinnet skal bare aktiveres hvis det oppstår en feil.
Hvordan bruke makroen
For å implementere denne makroen kan du kopiere og lime den inn i en standardmodul:
Aktiver Visual Basic Editor ved å trykke Alt+F11.
Høyreklikk navnet på prosjektet/arbeidsboken i prosjektvinduet.
Velg Sett inn → Modul.
Skriv eller lim inn koden i den nyopprettede modulen.