Come fare campi modulo Calcolare Utilizzando VBA

September 4

Come fare campi modulo Calcolare Utilizzando VBA


Rendere i campi di modulo calcolano automaticamente in Visual Basic, Applications programma (VBA) in grado di eliminare passaggi aggiuntivi per l'utente. VBA può essere utilizzato in tutte le applicazioni di Microsoft Office come Excel. È possibile creare campi di modulo utilizzando controlli casella di testo in un modulo utente in Excel e renderli calcolano automaticamente utilizzando l'evento "Change" per ciascuno dei controlli. L'evento "Change" verrà eseguita quando il valore nei campi vengono modificati dall'utente.

istruzione

1 Avviare Microsoft Office Excel, fare clic sulla scheda "Sviluppatore" e fare clic su "Visual Basic" per avviare la finestra di VB Editor. Fare clic sul menu "Inserisci" e fare clic su "Form utente" per inserire un nuovo modulo. Fai clic su "TextBox" nella finestra "Toolbox" e fare clic sul form per aggiungere un nuovo controllo casella di testo. Aggiungere altri due caselle di testo con la stessa tecnica per creare tre campi del modulo di testo di dialogo.

2 Fare clic sulla prima casella di testo e fare clic su "Visualizza codice" per aprire l'editor di VB. Premere il tasto "Ctrl" e "A" per selezionare il codice di default e premere Copia e incolla il seguente codice per effettuare un calcolo ogni volta che un nuovo numero viene inserito nel primo campo del modulo e visualizzare il risultato nel terzo campo modulo "Elimina".:

Dim result As Double
Private 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

End Sub

3 Copia e incolla il seguente codice esegue questo codice e fare un calcolo e visualizzare il risultato nel terzo campo modulo ogni volta che il secondo campo di modulo è cambiato:

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

End Sub

4 Fare doppio clic su "UserForm1" dalla finestra Esplora oggetti e premere il tasto "F5" per eseguire il programma. Input un numero primo e secondo campi modulo per calcolare automaticamente e visualizzare il risultato nel terzo campo modulo.


Articoli Correlati