Microsoft Excel programmeringsspråk , gör Visual Basic for Applications ( VBA ) , användning av virtuella föremål för att förlänga Excels funktioner . Ett av dessa objekt är objektet Application , vilket gör att VBA programmerare att skriva program som inverkar Excel själva ansökan . Händelser av detta objekt orsakar subrutiner kallas " event -funktioner " för att köra . Alla program som du placerar i dessa funktioner kommer att köras när händelsen ( t.ex. ny arbetsbok skapande , kalkylblad val ) att funktionen var skriven för inträffar . En fördel med att skriva en sådan kod är förmågan att screena uppgifter som användaren skriver in den. Instruktioner
1
Öppna Excel VBA-programmering miljö genom att högerklicka valfritt kalkylblad flik i en öppen arbetsbok , sedan välja " Visa kod " objektet .
2
Dubbelklicka på "Project " rutan för " Denna arbetsbok " rad för att öppna en ny kod fönster .
3
Klistra in följande kod i den första tomma raden i det nya fönstret . Denna subrutin , som kommer att köras när du öppnar den aktuella arbetsboken , skapas en ny instans av Excel Application-objektet . Genom att göra så , gör subrutinen händelsen funktioner Application objektet tillgängligt för att skriva program för .
Privat WithEvents objApp Som Application
Private Sub Workbook_Open ( ) katalog
Set objApp = Application
End Sub
4
Klicka längst till vänster listrutan längst upp i koden fönstret . VBA visas en lista över objekt som du kan skriva kod händelsen funktion för . Ett av objekten i listan är " objApp " variabel du deklareras och definieras i föregående steg . Välj det objektet .
5
Klicka på högra listrutan i koden fönstret och välj " NewWorkbook " händelse -funktion . VBA skapar en tom händelse funktion som du ska skriva kod för .
6
Klistra in eller skriv följande programkod ovanför " objApp_NewWorkbook " subrutin s " End Sub " uttalande .
MsgBox " Du har skapat en ny arbetsbok . "
7
Tryck " Alt - F4 " för att stänga VBA miljö , och tryck på samma knapp sekvens att stänga Excel . Spara arbetsboken med något giltigt filnamn , och med filtillägget " * . Xlsm . " Spara och återuppta arbetsboken kör Workbook_Open händelsen funktionen du skrev i steg 3 . Denna funktion måste köras för att möjliggöra eventuella objApp händelse funktioner för att köra .
8
öppna arbetsboken du just stängt , tryck sedan på "Control - N " för att skapa en ny arbetsbok . Koden du skrev för objApp_NewWorkbook subrutinen i steg 6 kommer att utföra , och visa meddelandet " Du har skapat en ny arbetsbok . "
9
Tryck " Alt - F11 " för att åter komma in i VBA miljö , sedan klistra in följande nya händelsen funktion i ett tomt utrymme i koden fönstret . Denna händelse funktion , som kommer att köras när du ändrar ett element i den för tillfället öppnade arbetsboken , ersätter texten " JS " med texten " John Smith . "
Private Sub objApp_SheetChange ( ByVal Sh As Object , ByVal Target As Range ) katalog
Dim x
x = Target.Value
p Om ( x = " JS " ) Sen
x = " John Smith "
Target.Value = x
End If
End sub
10
Återgå till Excel genom att trycka " Alt - F11 , " skriver texten " JS " i någon cell . När du trycker på " Enter " på objApp_SheetChange händelsen funktionen du skrev i föregående steg kommer att utföra , och ändra " JS " in " John Smith . " Addera
