Πώς να κάνει πεδίων φόρμας Υπολογισμός Χρησιμοποιώντας VBA

Κάνοντας τα πεδία της φόρμας υπολογίσει αυτόματα σε Visual Basic σας για εφαρμογές του προγράμματος ( VBA ) μπορεί να εξαλείψει επιπλέον μέτρα για το χρήστη . VBA μπορεί να χρησιμοποιηθεί σε όλες τις εφαρμογές του Microsoft Office , όπως το Excel . Μπορείτε να δημιουργήσετε πεδία φόρμας με τη χρήση ελέγχου πλαισίου κειμένου σε μια φόρμα του χρήστη στο Excel και να τα υπολογίσει αυτόματα με τη χρήση του "Change " για κάθε ένα από τα χειριστήρια . Η "Αλλαγή" εκδήλωση θα εκτελέσει όταν η τιμή στα πεδία έχουν αλλάξει από το χρήστη . Τα πράγματα που θα χρειαστείτε για Microsoft Office Excel
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Εκκίνηση του Microsoft Office Excel , κάντε κλικ στην καρτέλα "Προγραμματιστής " και κάντε κλικ στο " Visual Basic" για να ξεκινήσει η παράθυρο VB Editor. Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " Φόρμας Χρήστη " για να εισάγετε μια νέα μορφή . Κάντε κλικ στο " πλαίσιο κειμένου " στο παράθυρο " Toolbox" και κάντε κλικ στο φόρμα σας να προσθέσετε ένα νέο στοιχείο ελέγχου πλαισίου κειμένου . Προσθέστε δύο πλαίσια κειμένου χρησιμοποιώντας την ίδια τεχνική για να δημιουργήσει τρεις πλαίσιο κειμένου πεδία της φόρμας . 2

δεξί κλικ στο πρώτο πλαίσιο κειμένου και κάντε κλικ στο " Προβολή κώδικα " για να ανοίξετε το πρόγραμμα επεξεργασίας VB . Πατήστε το πλήκτρο " Ctrl " και "A " για να επιλέξετε τον προεπιλεγμένο κωδικό και πατήστε το πλήκτρο "Delete ". Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να κάνει έναν υπολογισμό κάθε φορά που ένα νέο αριθμό εγγράφεται στο πρώτο πεδίο της φόρμας και εμφανίζει το αποτέλεσμα στο τρίτο πεδίο φόρμας :

Dim αποτέλεσμα Όπως DoublePrivate Sub TextBox1_Change ( ) Dim txtBoxTwo Όπως VariantMe.TextBox2.SetFocustxtBoxTwo = Me.TextBox2.Textresult = txtBoxTwo + Me.TextBox1.TextMe.TextBox3.SetFocusMe.TextBox3 = resultEnd Sub

με 3

Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα εκτέλεση αυτού του κώδικα και να κάνει έναν υπολογισμό και εμφανίζει το αποτέλεσμα στο τρίτο πεδίο φόρμας κάθε φορά που το δεύτερο πεδίο φόρμας έχει αλλάξει :

Private Sub TextBox2_Change ( ) dim txtBoxOne Όπως VariantMe.TextBox1.SetFocustxtBoxOne = Me.TextBox1.Textresult = txtBoxOne + Me.TextBox2.TextMe.TextBox3.SetFocusMe.TextBox3 = resultEnd Sub
Η

4 κάντε διπλό κλικ στο " UserForm1 " από το αντικείμενο παράθυρο του Explorer και πατήστε το πλήκτρο "F5 " για να εκτελέσετε το πρόγραμμα . Εισάγετε έναν αριθμό στο πρώτο και δεύτερο πεδία της φόρμας για να υπολογίσει αυτόματα και εμφανίζει το αποτέλεσμα στο τρίτο πεδίο φόρμας .
Η
εικόνων