Kjøre en prosedyre når en arbeidsbok er åpnet
June 22 by Eliza
Du kan forårsake Excel til å kjøre en prosedyre automatisk når en bestemt arbeidsbok åpnes. For eksempel, når arbeidsboken åpnes, kan det være lurt å kjøre en prosedyre som ber brukerne om de ønsker å utføre en oppgave, for eksempel å lagre gårsdagens data til en annen fil.
I realiteten gir Excel to forskjellige måter du kan kjøre en prosedyre når en arbeidsbok åpnes. I begge tilfeller er alt du trenger å gjøre å gi et spesielt navn på makroen; som er ledetråd som forteller Excel du vil kjøre prosedyren ved åpning. Du kan, hvis ønskelig, navngi prosedyren Auto_Open og legg den i en vanlig makro-modul. Du kan også definere en prosedyre kalt Workbook_Open innenfor Thisworkbook objekt.
Som et eksempel vurdere følgende kode:
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 = "Ønsker du å spare gårsdagens transaksjoner?"
iBoxType = vbYesNo + vbQuestion
iUpdate = MsgBox (sMsg, iBoxType, "Automatic Backup")
Hvis iUpdate = vbYes Deretter
sMsg = "Hvilken filnavn vil du bruke?"
sDefault = "OLD.DAT"
sOldFile = InputBox (sMsg, "Automatic Backup", sDefault)
iStatusState = Application.DisplayStatusBar
Application.DisplayStatusBar = True
Application.StatusBar = "Oppdatering siste månedene ..."
UpdateYesterday (sOldFile)
Application.StatusBar = False
Application.DisplayStatusBar = iStatusState
End If
End Sub
(Husk at denne fremgangsmåten er et eksempel, det vil ikke kjøre skikkelig på systemet fordi det kaller en funksjon kalt UpdateYesterday, som gjør selve oppdatering.)
Denne makroen kjøres automatisk når arbeidsboken som den er festet er åpnet. Du kan også endre koden og plassere den i Thisworkbook objekt bare ved å endre den første linjen til dette:
Private Sub Workbook_Open ()
ExcelTips er din kilde for kostnadseffektiv Microsoft Excel trening. Dette tipset (8451) gjelder for Microsoft Excel 2007, 2010, og 2013. Du kan finne en versjon av dette tipset for den eldre menygrensesnittet av Excel her: Kjøre en prosedyre når en arbeidsbok er åpnet.
- • Word Link å opprette et nytt Excel-arbeidsbok
- • Alltid Åpne en arbeidsbok som er redigerbar
- • Stoppe Excel fra Konvertering UNC Paths til tilordnede stasjoner
- • Oppgavelinjen Innstillingen er ikke Sticky
- • Hyperlinking til en bestemt Excel-regneark
- • Kopiering av topp- og bunntekst
- • Tvinge en arbeidsbok for å lukke etter Inaktivitet
- • Lukke en Read-Only arbeidsbok
- • Åpne en arbeidsbok men Deaktivering makroer