Πώς να καταγράψετε δεδομένα από UserForms σε φύλλο εργασίας Excel

Με το Excel μπορείτε να χρησιμοποιήσετε τη Visual Basic για να προσθέσετε μια σειρά από διαφορετικές λειτουργίες στα υπολογιστικά φύλλα σας, συμπεριλαμβανομένων των "UserForms". Μέσα από UserForms, μπορείτε να εμφανίσετε μια φόρμα εισόδου ο χρήστης που είναι ξεχωριστός από το κύριο φύλλο εργασίας, ο οποίος είναι χρήσιμος για τη λήψη δεδομένων από άτομα που ενδέχεται να μην είναι εξοικειωμένα με υπολογιστικά φύλλα. Με ένα μικρό κώδικα της Visual Basic, μπορείτε να προσθέσετε όλα αυτά τα δεδομένα στο υπολογιστικό σας φύλλο σε νέες σειρές.

Καθορίστε τα πεδία σας - Εκκίνηση του Excel. Καταχωρίστε τα ονόματα όλων των πεδίων που θέλετε να καταγράψετε στην πάνω σειρά, ξεκινώντας από το "A1" και εργάζεστε στα δεξιά. Κάντε κλικ στο κουμπί "Προγραμματιστής" και, στη συνέχεια, κάντε κλικ στην επιλογή "Visual Basic". Εμφανίζεται το παράθυρο της Visual Basic. Κάντε κλικ στο εικονίδιο "A" από την Εργαλειοθήκη και κάντε κλικ και σύρετε μέσα στο παράθυρο "UserForm1" στη θέση που θέλετε να μεταβεί το πρώτο πεδίο φόρμας. Επεξεργαστείτε την ετικέτα αλλάζοντας την ιδιότητα "Λεζάντα" σε κάτι πιο περιγραφικό, όπως "Όνομα", για παράδειγμα .. Δημιουργήστε μια ετικέτα για κάθε πεδίο που καταχωρίσατε στο φύλλο εργασίας σας

Προσθέστε τα πλαίσια κειμένου

Προσθήκη ενός κουμπιού υποβολής

Κάντε κλικ στο εικονίδιο "Command Button" στην εργαλειοθήκη, το οποίο μοιάζει με ένα τυπικό κουμπί τύπου στυλ Windows.Κάντε κλικ και σύρετέ το στο μέγεθος και τη θέση που χρειάζεστε στο UserForm1. κάτω ή κοντά στο τελικό πλαίσιο κειμένου στη φόρμα σας. Αλλάξτε την ιδιότητα "Λεζάντα" του κουμπιού στο "Υποβολή δεδομένων" "Ή κάτι παρόμοιο, υποδεικνύοντας στον χρήστη ότι πρέπει να κάνουν κλικ σε αυτό το κουμπί για να υποβάλουν τα δεδομένα τους.

Προσθήκη κώδικα της Visual Basic

Κάντε διπλό κλικ στο κουμπί. Καταχωρίστε τον ακόλουθο κώδικα μεταξύ "Private Sub" και "End Sub": eRow = Sheet1.Cells (Rows.Count, 1) .End (xlUp) .Offset (1,0) .Row Στη συνέχεια ξεκινήστε μια νέα γραμμή κάτω από αυτή και τότε πληκτρολογήστε τα εξής: Cells (erow, 1) = TextBox1.Text Εάν μετονομάσατε τα πλαίσια κειμένου, αλλάξτε το "TextBox1" στο όνομα που δώσατε στο πρώτο πλαίσιο κειμένου. Κάντε αυτό για κάθε πλαίσιο εισαγωγής που δημιουργήσατε, ξεκινώντας μια νέα γραμμή και εισάγοντας τα σωστά ονόματα πλαισίων κειμένου, ανάλογα με την περίπτωση. Επίσης, για κάθε νέα γραμμή, αυξήστε το σχήμα στις παρενθέσεις κατά ένα. Για παράδειγμα, η επόμενη γραμμή μπορεί να φαίνεται ως εξής: Κύτταρα (erow, 2) = TextBox2.Text Κάντε κλικ στο κουμπί "Αναπαραγωγή" στο επάνω μέρος του παραθύρου για να ξεκινήσετε την καταγραφή δεδομένων.