Πώς να συνοψίσετε τιμές από τα πλαίσια κειμένου;

Ας υποθέσουμε, έχετε τρία πλαίσια κειμένου τα οποία θέλετε να αθροίσετε τις τιμές στο Textbox1 και Textbox2 και να υπολογίσετε το αποτέλεσμα αυτόματα στο Textbox3 όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Πώς θα μπορούσατε να αντιμετωπίσετε αυτήν την εργασία στο Excel;

Συνοψίστε τιμές από πλαίσια κειμένου με κώδικα VBA

Συνοψίστε τιμές από πλαίσια κειμένου με κώδικα VBA

Για να συνοψίσουμε τιμές από δύο πλαίσια κειμένου και να λάβουμε το αποτέλεσμα στο τρίτο πλαίσιο κειμένου, ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει.

1. Πρώτα, πρέπει να εισαγάγετε τρία πλαίσια κειμένου, να κάνετε κλικ Εργολάβος > Κύριο θέμα > Πλαίσιο κειμένου (ActiveX Control)και, στη συνέχεια, σχεδιάστε ένα πλαίσιο κειμένου και δημιουργήστε δύο αντίγραφα, δείτε το στιγμιότυπο οθόνης:

2. Αφού εισαγάγετε τα πλαίσια κειμένου, κάντε δεξί κλικ στην καρτέλα φύλλων που περιέχει τα πλαίσια κειμένου που θέλετε να χρησιμοποιήσετε και κάντε κλικ στο Προβολή κωδικού από το μενού περιβάλλοντος για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο και, στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA στην κενή μονάδα:

Κωδικός VBA: Συνοπτικές τιμές από πλαίσια κειμένου:

Private Sub Sum_Click()
    TextBox3.Text = Val(TextBox2.Text) + Val(TextBox1.Text)
End Sub

3. Στη συνέχεια, πληκτρολογήστε τις τιμές σε Textbox1 και Textbox2 και, στη συνέχεια, πατήστε F5 κλειδί ή τρέξιμο κουμπί για την εκτέλεση του κώδικα, το υπολογισμένο αποτέλεσμα εμφανίζεται αμέσως στο Textbox3, δείτε το στιγμιότυπο οθόνης: