Wie um Formular Felder berechnen mit VBA

Machen Formularfelder automatisch in Ihr Visual Basic für Applikationen (VBA) berechnen kann Programm zusätzliche Schritte für den Benutzer beseitigen. VBA kann in allen Microsoft Office-Anwendungen wie Excel verwendet werden. Sie können Formularfelder mit Textfeld-Steuerelemente auf einem Benutzerformular in Excel erstellen und sie automatisch mit dem "Change"-Ereignis für jedes Steuerelement zu berechnen. Das "Change"-Ereignis wird ausgeführt, wenn der Wert in die Felder vom Benutzer geändert werden.

Anweisungen

1 Microsoft Office Excel zu starten, klicken Sie auf die Registerkarte "Entwicklertools" und klicken Sie auf "Visual Basic", das VB-Editor-Fenster zu starten. Klicken Sie im Menü "Einfügen" und dann "Benutzerformular" um ein neues Formular einzufügen. Klicken Sie auf "Textfeld" im Fenster "Toolbox", und klicken Sie auf Ihrem Formular ein neues Textfeld-Steuerelement hinzufügen. Fügen Sie zwei weitere Textfelder mit der gleichen Technik drei Text-Feld-Formularfelder erstellen.

2 Maustaste auf das erste Textfeld, und klicken Sie auf "Code anzeigen", um den VB-Editor zu öffnen. Drücken Sie "Strg" und "A" Standard-Code und drücken "Löschen". Kopieren und fügen Sie den folgenden Code um eine Berechnung zu machen, jedes Mal, wenn eine neue Nummer in das erste Formularfeld eingegeben wird und das Ergebnis im dritten Formularfeld anzuzeigen:

Dim Ergebnis As DoublePrivate Sub TextBox1_Change()

Dim txtBoxTwo As Variant Me.TextBox2.SetFocus txtBoxTwo = Me.TextBox2.Text result = txtBoxTwo + Me.TextBox1.Text Me.TextBox3.SetFocus Me.TextBox3 = result

EndSub

3 Kopieren und fügen Sie den folgenden Code, dieser Code ausgeführt und eine Berechnung und Anzeige des Ergebnisses in der dritten Form, jedes Mal, wenn das zweite Formularfeld geändert wird:

Private Sub TextBox2_Change()Dim TxtBoxOne As Variant

Me.TextBox1.SetFocus txtBoxOne = Me.TextBox1.Text result = txtBoxOne + Me.TextBox2.Text Me.TextBox3.SetFocus Me.TextBox3 = result

EndSub

4 Doppelklicken Sie auf "UserForm1" aus dem Objekt-Explorer-Fenster und drücken Sie die Taste "F5", um das Programm ausführen. Geben Sie eine Zahl in der ersten und zweiten Formularfelder automatisch berechnen und das Ergebnis in der dritten Form anzuzeigen.