Microsoft Excel Programmiersprache , macht Visual Basic for Applications (VBA) , die Verwendung von virtuellen Objekten in Excel -Funktionen erweitern . Eines dieser Objekte ist das Application -Objekt, das VBA -Programmierer , um Programme Auswirkungen auf die Excel -Anwendung selbst zu schreiben. Events von diesem Objekt Ursache Unterprogramme als " Event-Funktionen " auszuführen . Jeglicher Programmcode Sie legen in diesen Funktionen wird ausgeführt, wenn das Ereignis (zB neue Arbeitsmappe Schöpfung, Arbeitsblatt Auswahl) , dass die Funktion für geschrieben wurde auftritt. Ein Vorteil des Schreibens solcher Code ist die Fähigkeit, Daten zu screenen , wie die vom Benutzer eingegeben . Anleitung
1
öffnen Excel VBA Programmierumgebung mit der rechten Maustaste auf eine beliebige Registerkarte Arbeitsblatt in einer geöffneten Arbeitsmappe , dann die Auswahl der " Code anzeigen " auswählen.
2
Doppelklick "Projekt" Scheibe "This Workbook" Reihe um einen neuen Code zu öffnen.
3
Fügen Sie den folgenden Code in das erste leere Zeile des neuen Fensters . Diese Subroutine , die ausgeführt werden, wenn Sie die aktuelle Arbeitsmappe öffnen wird , wird eine neue Instanz von Excel Application-Objekt. Auf diese Weise macht das Unterprogramm die Event-Funktionen des Application-Objekts zur Verfügung , um Programme für schreiben.
Privat WithEvents objApp Als Anwendung
Private Sub Workbook_Open ()
Set objApp = Anwendung
End Sub
4
Klicken Sie den linken Dropdown-Liste am oberen Rand des Code-Fenster . VBA wird eine Liste von Objekten , die Sie Event-Funktion für Code schreiben können. Eines der Objekte in der Liste ist der " objApp " Variable deklariert und definiert im vorherigen Schritt . Wählen Sie das Objekt .
5
Klicken Sie auf den rechten Dropdown-Liste der Code-Fenster , und wählen Sie die " NewWorkbook " Event-Funktion . VBA wird ein leeres Event-Funktion , dass Sie Code für .
6
Paste schreiben oder geben Sie den folgenden Programmcode über dem " objApp_NewWorkbook " Subroutine "End Sub "-Anweisung.
MsgBox " Sie haben eine neue Arbeitsmappe erstellt . "
7
Presse "Alt -F4 ", um den VBA-Umgebung zu schließen, und drücken Sie die gleiche Tastenfolge Excel schließen. Speichern Sie die Arbeitsmappe mit einem beliebigen gültigen Dateinamen ein, und mit der Dateiendung "*. Xlsm . " Speichern und erneuten Öffnen der Arbeitsmappe führt die Event-Funktion Workbook_Open Sie in Schritt 3 schrieb . Diese Funktion muss laufen , damit alle objApp Event-Funktionen zu laufen.
8
Öffnen Sie die Arbeitsmappe, die Sie gerade geschlossen , und drücken Sie " Strg- N ", um eine neue Arbeitsmappe zu erstellen. Der Code, den Sie für die objApp_NewWorkbook Subroutine in Schritt 6 geschrieben wird ausgeführt , und die Meldung " Sie können eine neue Arbeitsmappe erstellt haben . "
9
Presse "Alt -F11 " zur erneuten Eingabe der VBA Umwelt , dann die folgende neue Event-Funktion in einen leeren Bereich im Code-Fenster einfügen. Dieses Ereignis Funktion, die ausgeführt wird, wenn Sie eine beliebige Zelle der aktuell geöffneten Arbeitsmappe ändern wird , ersetzt den Text " JS " mit dem Text " John Smith".
Private Sub objApp_SheetChange (ByVal Sh As Object , ByVal Target As Range) Dim x
x = Target.Value
Wenn (x = " JS ") Then
x = " John Smith "
Target.Value = x
End If End
Sub
10
Return to Excel durch Drücken von " Alt- F11 ", geben Sie dann den Text " JS " in jeder Zelle. Wenn Sie die Taste "Enter ", die Event-Funktion objApp_SheetChange Sie im vorherigen Schritt schrieb ausgeführt wird , und ändern " JS " in " John Smith".
