Microsoft Excel programmeringsspråk, gjør Visual Basic for Applications ( VBA ) , bruk av virtuelle objekter å forlenge Excel funksjoner. En av disse objektene er programmet objektet , som lar VBA programmerere å skrive programmer påvirker Excel programmet selv . Hendelser av dette objektet årsak subrutiner kalt " hendelsesfunksjonene " å utføre. Enhver programkode som du plasserer i disse funksjonene vil kjøre når hendelsen (f.eks ny arbeidsbok skapelse, regneark utvalg) at funksjonen ble skrevet for oppstår . En fordel med å skrive en slik kode er evnen til å skjerme data som brukeren skriver inn den. Instruksjoner
en
Åpen Excel VBA programmering miljø ved å høyreklikke alle regneark fane i en åpen arbeidsbok , og deretter velge " Vis kode " element .
2
Dobbeltklikk "Project" i ruten " Dette arbeidsbok" rad for å åpne en ny kode vindu .
3
Lim inn følgende kode inn i den første tomme raden i nytt vindu. Dette subrutine , som vil kjøre når du åpner gjeldende arbeidsbok , oppretter en ny forekomst av Excel Application objekt. Ved å gjøre dette , gjør subrutinen hendelsen funksjoner i programmet objektet tilgjengelig for å skrive programmer for .
Private WithEvents objApp Som Application
Private Sub Workbook_Open ( )
Sett objApp = Application
End Sub
4
Klikk lengst til venstre dropdown liste nær toppen av koden vinduet. VBA vil vise en liste over objekter som du kan skrive hendelsen funksjon kode for . Ett av objektene i listen er " objApp " variable du erklært og definert i forrige trinn . Velg dette objektet.
5
Klikk lengst til høyre dropdown liste av koden vinduet , og velg " NewWorkbook " event funksjon . VBA vil skape en blank hendelse funksjon som du skal skrive koden for .
6
Kopier eller skriv inn følgende programkode over " objApp_NewWorkbook " subrutinen er " End Sub " statement.
MsgBox " Du har opprettet en ny arbeidsbok . "
7
trykk " Alt- F4 " for å lukke VBA miljø , og trykk på samme tast sekvens for å lukke Excel. Lagre arbeidsboken med noen gyldig filnavn og med filtypen "* . XLSM . " Lagre og gjenåpning arbeidsboken kjører Workbook_Open arrangementet funksjonen du skrev i trinn tre . Denne funksjonen må løpe for å aktivere noen objApp hendelsesfunksjonene å kjøre .
8
åpner arbeidsboken du nettopp lukket , og trykk deretter på "Control -N " for å opprette en ny arbeidsbok . Koden du skrev for objApp_NewWorkbook subrutine i trinn 6 vil kjøre , og vise meldingen " Du har opprettet en ny arbeidsbok . "
9
Trykk " Alt- F11 " for å gå inn igjen i VBA miljø, så lim inn følgende nye hendelsen funksjon i noen mellomrom i koden vinduet. Denne hendelsen funksjon, som vil kjøre når du endrer en celle på tiden åpnet arbeidsboken , erstatter teksten " JS " med teksten " John Smith ".
Private Sub objApp_SheetChange ( ByVal Sh som objekt, ByVal Target As Range )
Dim x
x = Target.Value
p Hvis ( x = " JS " ) Then
x = " John Smith "
Target.Value = x
End If
End sub
10
Tilbake til Excel ved å trykke "Alt- F11 , " skriv deretter inn teksten " JS " i en celle . Når du trykker på " Enter", den objApp_SheetChange hendelsen funksjonen du skrev i forrige trinn vil utføre , og endre " JS " inn i " John Smith ".
