Microsoft Excel 's programmeertaal gebruiken , Visual Basic for Applications ( VBA ) , maakt gebruik van virtuele objecten aan functies in Excel uit te breiden . Een van die objecten is de Application-object , waarmee VBA programmeurs om programma's invloed op de Excel- applicatie zelf te schrijven . Gebeurtenissen van dit object oorzaak subroutines genoemd " event functies" uit te voeren . Elk programma -code dat u in deze functies wordt uitgevoerd wanneer de gebeurtenis ( bv. nieuwe werkmap creatie , werkblad selectie ) die de functie voor geschreven optreedt . Een voordeel van het schrijven van deze code is de mogelijkheid om gegevens scherm de gebruiker binnengaat . Instructies Open Excel 's 1 VBA programmeeromgeving door met de rechtermuisknop te klikken op het tabblad geen werkblad in een open werkmap , dan is het selecteren van de " View Code " punt . Kopen van 2 Dubbelklik op het " Project" pane 's " Dit Werkboek " rij om een nieuwe code venster te openen . 3 Plak de volgende code in de eerste lege rij van het nieuwe venster . Deze subroutine , die wordt uitgevoerd wanneer u de huidige werkmap opnieuw opent , wordt een nieuw exemplaar van Excel Application -object . Door dit te doen , de subroutine maakt het evenement functies van het object Application beschikbare programma's te schrijven voor . Prive WithEvents objApp Als Application Private Sub Workbook_Open ( ) op Set objApp = Application End Sub 4 Klik op de meest linkse dropdown lijst aan de bovenkant van het venster code . VBA zal een lijst met objecten die je functie gebeurtenis code kan schrijven voor geven . Een van de objecten in de lijst is de " objApp " variabele die u gedeclareerd en gedefinieerd in de vorige stap . Selecteer het object . 5 Klik op het meest rechtse dropdown lijst van het venster code in en selecteer de " NewWorkbook " functie gebeurtenis . VBA zal een lege functie gebeurtenis die je code kunt schrijven voor . Plak 6 of typ de volgende programmacode boven de " objApp_NewWorkbook " subroutine " End Sub " statement te maken . MsgBox " Je hebt een nieuwe werkmap gemaakt . " Press 7 " Alt - F4 " om de VBA omgeving sluiten , en druk op dezelfde toetsencombinatie om Excel te sluiten . Sla de werkmap met een geldige bestandsnaam , en met een bestandsextensie van ' * . Xlsm . " Het opslaan en opnieuw openen van de werkmap loopt de Workbook_Open functie gebeurtenis die u in stap 3 schreef . Deze functie moet draaien zodat elke objApp evenement functies te lopen . 8 Open de werkmap die u zojuist gesloten , druk vervolgens op "Control - N " naar een nieuwe werkmap te maken . De code die je schreef voor de objApp_NewWorkbook subroutine in stap 6 zal uitvoeren , en weer de melding "U hebt een nieuwe werkmap gemaakt . " Druk " Alt - F11 " 9 opnieuw in te voeren van de VBA omgeving , dan is de volgende nieuwe functie gebeurtenis in een lege ruimte in het venster code plakken . Dit evenement functie, die wordt uitgevoerd wanneer u een cel van de momenteel geopende werkboek veranderen , vervangt de tekst " JS " met Dim x x = Target.Value de tekst " John Smith . " Private Sub objApp_SheetChange ( ByVal Sh As Object , ByVal Target As Range ) Als ( x = " JS " ) op Twitter x = " John Smith " Target.Value = x End Als End dan sub Terug naar Excel door op 10 " Alt - F11 , " typ de tekst " JS " in een cel . Wanneer u op ' Enter ', de objApp_SheetChange functie gebeurtenis die u in de vorige stap schreef zal uitvoeren , en verander " JS " in " John Smith . "
|