En av de enklaste kalkylbladsrelaterade automatiseringarna du kan använda med ett makro i Excel är att lägga till och namnge ett nytt kalkylblad. Så här fungerar makrot och hur du använder det.
Hur makrot fungerar
När du läser igenom raderna i koden ser du att detta makro är relativt intuitivt:
Sub Macro1()
'Steg 1: Tala om för Excel vad du ska göra om fel
Vid fel GoTo MyError
'Steg 2: Lägg till ett ark och namnge det
Ark.Lägg till
ActiveSheet.Name = _
WorksheetFunction.Text(Now(), "md-åååå h_mm_ss
am PM")
Avsluta Sub
'Steg 3: Om här inträffade ett fel; berätta för användaren
MyError:
MsgBox "Det finns redan ett ark som heter det."
Avsluta Sub
Du måste räkna med att om du ger det nya arket ett namn som redan finns, skulle ett fel inträffa. Så i steg 1 säger makrot till Excel att omedelbart hoppa till raden som säger MyError (i steg 3) om det finns ett fel.
Steg 2 använder metoden Lägg till för att lägga till ett nytt ark. Som standard kallas arket för ark xx, där xx representerar arkets nummer. Du ger arket ett nytt namn genom att ändra egenskapen Name för ActiveSheet-objektet. I det här fallet namnger du kalkylbladet med aktuellt datum och tid.
Precis som med arbetsböcker, varje gång du använder VBA för att lägga till ett nytt ark, blir det nyligen tillagda arket automatiskt det aktiva arket. Slutligen, i steg 2, notera att makrot avslutar proceduren. Den måste göra detta så att den inte av misstag hamnar i steg 3 (som bara kommer in om ett fel uppstår).
Steg 3 meddelar användaren att arknamnet redan finns. Återigen bör detta steg endast aktiveras om ett fel uppstår.
Hur man använder makrot
För att implementera detta makro kan du kopiera och klistra in det i en standardmodul:
Aktivera Visual Basic Editor genom att trycka på Alt+F11.
Högerklicka på projektets/arbetsbokens namn i projektfönstret.
Välj Infoga → Modul.
Skriv eller klistra in koden i den nyskapade modulen.