Excel VBA TextBox
Το πλαίσιο κειμένου είναι απλά σαν ένα πλαίσιο που χρησιμοποιείται για τη λήψη εισόδου από έναν χρήστη, τα πλαίσια κειμένου αποτελούν μέρος των φορμών χρήστη και στην καρτέλα προγραμματιστή σε οποιοδήποτε φύλλο εργασίας excel, Εάν θέλουμε να δημιουργήσουμε πλαίσια κειμένου σε φόρμα χρήστη, μπορούμε να επιλέξουμε την επιλογή πλαισίου κειμένου από τα στοιχεία ελέγχου φόρμας χρήστη στο VBA ή στο φύλλο εργασίας μπορούμε να το επιλέξουμε από την καρτέλα σχεδίασης.
Το VBA TextBox είναι ένα από τα στοιχεία ελέγχου των πολλών στοιχείων ελέγχου της φόρμας χρήστη. Εμφανίζοντας το πλαίσιο κειμένου στη φόρμα χρήστη, μπορούμε να τους ζητήσουμε να εισαγάγουν τα δεδομένα στο πλαίσιο κειμένου και τα δεδομένα που εισάγει ο χρήστης μπορούν να αποθηκευτούν στο φύλλο εργασίας με απλούς κωδικούς.
Οι φόρμες χρήστη είναι πολύ ελκυστικές στην κωδικοποίηση VBA. Μας βοηθά πάρα πολύ, ειδικά όταν πρέπει να λάβουμε πληροφορίες από τους χρήστες. Με τις φόρμες χρήστη, έχουμε πολλά στοιχεία ελέγχου και για να λάβουμε την τιμή εισαγωγής από τους χρήστες, το "Text Box" είναι η ιδανική επιλογή σε φόρμα χρήστη. Βάζοντας ένα πλαίσιο κειμένου στη φόρμα χρήστη, μπορούμε πραγματικά να πούμε στον χρήστη να εισαγάγει την απαιτούμενη τιμή στο πλαίσιο κειμένου που προβάλλουμε. Εάν δεν έχετε ιδέα για τα πλαίσια κειμένου VBA, τότε αυτό το άρθρο θα περιηγηθεί στα πλαίσια κειμένου VBA.
Πώς να εισαγάγετε το TextBox στο VBA UserForm;
Για να εισαγάγετε πρώτα ένα πλαίσιο κειμένου, πρέπει να εισαγάγετε τη φόρμα χρήστη. Για να εισαγάγετε φόρμα χρήστη, μεταβείτε στην ενότητα Εισαγωγή> Φόρμα χρήστη.
Μόλις κάνετε κλικ στη φόρμα χρήστη, θα χρησιμοποιήσουμε τη φόρμα χρήστη όπως και μια άλλη ενότητα.
Κάντε κλικ στη φόρμα χρήστη για να δείτε τα στοιχεία ελέγχου της φόρμας χρήστη.
Από αυτήν την εργαλειοθήκη ελέγχου, επιλέξτε "TextBox" και σύρετε στη φόρμα χρήστη.
Με αυτό, μπορούμε να δούμε πολλές ιδιότητες που σχετίζονται με αυτό το πλαίσιο κειμένου.
Ιδιότητες TextBox
Πατήστε το πλήκτρο F4 για να δείτε τις Ιδιότητες του πλαισίου κειμένου.
Όπως μπορούμε να δούμε, το πλαίσιο κειμένου έχει Όνομα, χρώμα, περίγραμμα όπως αυτό πολλά. Τώρα δώστε ένα σωστό όνομα, ώστε να μπορούμε εύκολα να αναφερθούμε σε αυτό το πλαίσιο κειμένου κατά την κωδικοποίηση.
Παράδειγμα χρήσης του TextBox στη φόρμα χρήστη
Θα πραγματοποιήσουμε ένα από τα έργα με κείμενο VBA. Θα δημιουργήσουμε μια φόρμα χρήστη εισαγωγής δεδομένων για να αποθηκεύσουμε τις λεπτομέρειες των υπαλλήλων.
Βήμα 1: Στη φόρμα χρήστη, σχεδιάστε την ετικέτα.
Βήμα 2: Αλλάξτε το προεπιλεγμένο κείμενο της ετικέτας σε "Όνομα υπαλλήλου".
Βήμα 3: Μπροστά από την ετικέτα, σχεδιάστε ένα πλαίσιο κειμένου.
Βήμα 4: Δώστε ένα κατάλληλο όνομα στο πλαίσιο κειμένου ως "EmpNameTextBox".
Βήμα 5: Τώρα σχεδιάστε μια ακόμη ετικέτα κάτω από την πρώτη ετικέτα και εισαγάγετε το κείμενο ως "Αναγνωριστικό υπαλλήλου".
Βήμα 6: Μπροστά από τη δεύτερη ετικέτα, σχεδιάστε ένα ακόμη πλαίσιο κειμένου και ονομάστε το ως "EmpIDTextBox".
Βήμα 7: Σχεδιάστε μια ακόμη ετικέτα και εισαγάγετε το κείμενο ως "Μισθός".
Βήμα 8: Σχεδιάστε ένα ακόμη πλαίσιο κειμένου μπροστά από την ετικέτα "Μισθός" και ονομάστε το ως "SalaryTextBox".
Βήμα 9: Τώρα εισάγετε το "Κουμπί εντολών" από το ToolBox.
Βήμα 10: Αλλάξτε το κείμενο του κουμπιού εντολής ως "Υποβολή".
Ok, we are done with the User Form design part. Now we need to write the code to store the data entered in this user form. As of now, run the user form by pressing the F5 key. We should see a user form like this.
Step 11: Change the Caption of the User Form in the Properties window.
Step 12: Now double click on the Submit Command Button.As soon as you double click you will see this auto sub procedure like the below.
This is when you click on the Submit button, what should happen. We need to mention the tasks in the VBA code. In this project, our aim is to store the data entered in the text box as soon as we click on the Submit Button.
For this, first, create a Template like this in the worksheet named “Employees Sheet.”
Step 13: Now come back to the visual basic editor. Inside the button, click subroutine in VBA first to determine the last used row by using the below code.
Code:
Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 End Sub
Step 14: First thing is in the first column we will store Employee Name. So for this, we need to access the text box named “EmpNameTextBox.”
Code:
Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value End Sub
Step 15: In the second column, we need to store Employee ID. So this will be obtained by accessing the text box named “EmpIDTextBox.”
Code:
Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value Ramge("B" & LR).Value = EmpIDTextBox.Value End Sub
Step 16: At last, we need to store the salary part. For this, we need to access to text box named “SalaryTextBox.”
Code:
Private Sub CommandButton1_Click() Dim LR As Long LR = Worksheets("Employee Sheet").cell(Rows.Count, 1).End(xlUp).Row + 1 Ramge("A" & LR).Value = EmpNameTextBox.Value Ramge("B" & LR).Value = EmpIDTextBox.Value Range("C" & LR).Value = SalaryTextBox.Value End Sub
Ok, we are done with the coding part as well. Now run the code using the F5 key. We should see a User Form like the below.
Από τώρα, όλα τα κουτιά είναι κενά.
Συμπληρώστε πρώτα τις λεπτομέρειες.
Τώρα κάντε κλικ στο κουμπί "Υποβολή". Θα αποθηκεύσει τα δεδομένα στο φύλλο εργασίας.
Έτσι, μπορείτε να συνεχίσετε να εισάγετε τα δεδομένα και να πατήσετε και να υποβάλετε το κουμπί Αυτή είναι η απλή φόρμα χρήστη εισαγωγής δεδομένων με ένα πλαίσιο κειμένου.
