Microsoft Excels programmeringssprog , Visual Basic for Applications ( VBA ) , gør brug af virtuelle objekter til at udvide Excels funktioner. Et af disse objekter er Application objekt , som giver VBA programmører at skrive programmer påvirker Excel selve ansøgningen . Arrangementer af dette objekt årsag subrutiner kaldet " event -funktioner " for at udføre . Ethvert program kode, du placerer i disse funktioner vil køre, når begivenheden ( f.eks ny projektmappe skabelse, regneark udvælgelse) , at funktionen blev skrevet til opstår. Én fordel ved at skrive sådan kode er evnen til at screene data som brugeren indtaster det . Instruktioner
1
Open Excel VBA programmering miljø ved at højreklikke enhver regneark fane i en åben projektmappe , og derefter vælge " View Code" element.
2
Dobbeltklik på "Projekt " rudens "Dette projektmappe " række for at åbne en ny kode -vinduet.
3
Indsæt følgende kode i den første tomme række i nyt vindue . Denne subrutine , som vil køre , når du åbner den aktuelle projektmappe , opretter en ny forekomst af Excel Application objekt. Ved at gøre dette , gør subrutine begivenheden funktioner Application objektet til rådighed til at skrive programmer til .
Private WithEvents objApp Som Application
Private Sub Workbook_Open ()
Sæt objApp = Application
End Sub
4
Klik længst til venstre rullemenuen nær toppen af koden vinduet. VBA vil vise en liste over objekter , som du kan skrive begivenhed funktionskode for . En af de objekter på listen er " objApp " variabel, du erklærede og defineret i det foregående trin. Vælg det pågældende objekt.
5.
Klik yderst til højre dropdown listen af koden vinduet, og vælg " NewWorkbook " begivenhed funktion. VBA vil oprette en tom begivenhed funktion, som du vil skrive kode til .
6
Indsæt eller skriv følgende programkode over " objApp_NewWorkbook " subrutine er " End Sub" erklæring.
MsgBox "Du har oprettet en ny projektmappe. "
7
Tryk på " Alt-F4 " for at lukke VBA miljø og trykke på den samme tast sekvens for at lukke Excel. Gem projektmappen med gældende filnavn og med en fil forlængelse af " * . Xlsm ". Lagring og genåbning projektmappen kører Workbook_Open begivenhed funktion, du skrev i trin 3. . Denne funktion skal løbe for at aktivere eventuelle objApp begivenhed funktioner til at køre.
8
Genåbn den projektmappe, du netop lukket , og derefter trykke "Control -N " for at oprette en ny projektmappe . Koden , du skrev for objApp_NewWorkbook subrutinen i trin 6 , vil udføre , og vise meddelelsen " Du har oprettet en ny projektmappe . "
9
Tryk på " Alt- F11 " for at genindtaste VBA miljø, derefter indsætte følgende nye begivenhed funktion i et tomt rum i koden vinduet. Denne begivenhed funktion , som vil køre , når du ændrer en celle i det aktuelt åbne projektmappe , erstatter teksten " JS " med teksten " John Smith. "
Private Sub objApp_SheetChange ( ByVal Sh As Object , ByVal Target Som Range )
Dim x
x = Target.Value
Hvis (x = " JS " ) Så
x = " John Smith "
Target.Value = x
End If
End sub
10
Retur til Excel ved at trykke på " Alt- F11 ", derefter skrive teksten " JS " i enhver celle . Når du trykker på " Enter" for objApp_SheetChange begivenhed funktion , du skrev i det forrige trin , vil udføre , og ændre " JS " ind i " John Smith. "
