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 . "