Köra ett förfarande när en arbetsbok öppnas

November 14

Du kan orsaka Excel för att köra ett förfarande automatiskt när en viss arbetsbok öppnas. Till exempel, när arbetsboken öppnas, kanske du vill köra en procedur som frågar användarna om de vill utföra en uppgift, t.ex. att spara gårdagens data till en annan fil.

I verkligheten, Excel innehåller två olika sätt du kan köra en procedur när en arbetsbok öppnas. I båda fallen är allt du behöver göra att ge ett särskilt namn för makrot; det är den ledtråd som berättar Excel du vill köra proceduren när du öppnar. Du kan, om så önskas, namnge proceduren Auto_Open och placera den i en vanlig makromodul. Du kan också definiera en procedur som kallas Workbook_Open inom ThisWorkbook objektet.

Som ett exempel, på följande kod:

Sub Auto_Open ()
Dim SMSG As String
Dim iBoxType As Integer
Dim iUpdate As Integer
Dim sDefault As String
Dim sOldFile As String
Dim iStatusState As Integer

SMSG = "Vill du spara gårdagens transaktioner?"
iBoxType = vbYesNo + vbQuestion
iUpdate = MsgBox (SMSG, iBoxType, "Automatic Backup")
Om iUpdate = vbYes Därefter
SMSG = "Vilken filnamn vill du använda?"
sDefault = "OLD.DAT"
sOldFile = InputBox (SMSG, "Automatic Backup", sDefault)
iStatusState = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "Uppdaterar senaste månaderna ..."
UpdateYesterday (sOldFile)
Application.StatusBar = False
Application.DisplayStatusBar = iStatusState
End If
End Sub

(Kom ihåg att detta förfarande är ett exempel, det kommer inte att kunna köras på ditt system eftersom det kräver en funktion som kallas UpdateYesterday, vilket gör själva uppdateringen.)

Detta makro körs automatiskt när arbetsboken till vilken den är ansluten öppnas. Du kan också ändra koden och placera den inom ThisWorkbook objektet bara genom att ändra den första raden till detta:

Private Sub Workbook_Open ()

ExcelTips är din källa för kostnadseffektiv Microsoft Excel utbildning. Detta tips (8451) gäller för Microsoft Excel 2007, 2010 och 2013. Du kan hitta en version av detta tips för den äldre menygränssnittet i Excel här: Köra en Tillvägagångssätt när en arbetsbok öppnas.