Με το Excel, μπορείτε να χρησιμοποιήσετε τη Visual Basic για να προσθέσετε μια σειρά διαφορετικών δυνατοτήτων στα υπολογιστικά φύλλα σας, όπως το "UserForms". Μέσω του UserForms, μπορείτε να εμφανίσετε μια φόρμα εισαγωγής στο χρήστη που είναι ξεχωριστή από το κύριο φύλλο εργασίας, η οποία είναι χρήσιμη για τη λήψη δεδομένων από άτομα που ενδέχεται να μην είναι εξοικειωμένα με υπολογιστικά φύλλα. Με λίγο κώδικα Visual Basic, μπορείτε να προσθέσετε όλα αυτά τα δεδομένα στο υπολογιστικό φύλλο σας σε νέες σειρές.
Ορίστε τα πεδία σας
Εκκινήστε το Excel. Εισαγάγετε τα ονόματα όλων των πεδίων που θέλετε να καταγράψετε στην επάνω σειρά, ξεκινώντας από το "A1" και δουλεύοντας προς τα δεξιά. Κάντε κλικ στο "Προγραμματιστής" και, στη συνέχεια, κάντε κλικ στο "Visual Basic". Θα εμφανιστεί το παράθυρο της Visual Basic. Κάντε κλικ στο εικονίδιο "A" από την εργαλειοθήκη και κάντε κλικ και σύρετε μέσα στο παράθυρο "UserForm1" στη θέση που θέλετε να μεταβείτε στο πεδίο της πρώτης φόρμας. Επεξεργαστείτε την ετικέτα αλλάζοντας την ιδιότητα "Λεζάντα" σε κάτι πιο περιγραφικό, όπως "Όνομα", για παράδειγμα. Δημιουργήστε μια ετικέτα για καθένα από τα πεδία που εισαγάγατε στο φύλλο εργασίας σας.
Προσθέστε τα πλαίσια κειμένου σας
Επιλέξτε το εικονίδιο "TextBox" από την εργαλειοθήκη και σύρετε ένα πλαίσιο κειμένου ακριβώς στα δεξιά της πρώτης σας ετικέτας. Εάν χρησιμοποιείτε μόνο μερικά πεδία, είναι αποδεκτό να αφήσετε την ιδιότητα "(Όνομα)" ως προεπιλεγμένη "TextBox1". Ωστόσο, εάν χρειάζεστε μεγάλο αριθμό πεδίων, αυτό μπορεί να προκαλέσει σύγχυση, επομένως θα πρέπει να τα επεξεργαστείτε για να ταιριάζει με τις ετικέτες που έχετε ήδη δημιουργήσει. Βεβαιωθείτε ότι κάθε ετικέτα έχει ένα αντίστοιχο πλαίσιο κειμένου.
Προσθέστε ένα κουμπί υποβολής
Κάντε κλικ στο εικονίδιο "Κουμπί εντολών" στην εργαλειοθήκη, το οποίο μοιάζει με ένα τυπικό κουμπί τύπου Windows. Κάντε κλικ και σύρετέ το στο μέγεθος και την τοποθεσία που χρειάζεστε στο UserForm1. Συνήθως, θα το θέλετε παρακάτω ή κοντά στο τελικό πλαίσιο κειμένου στη φόρμα σας. Αλλάξτε την ιδιότητα "Λεζάντα" του κουμπιού σε "Υποβολή δεδομένων" ή κάτι παρόμοιο, υποδεικνύοντας στον χρήστη ότι πρέπει να κάνει κλικ σε αυτό το κουμπί για να υποβάλει τα δεδομένα του.
Προσθήκη κώδικα Visual Basic
Κάντε διπλό κλικ στο κουμπί. Εισαγάγετε τον ακόλουθο κωδικό μεταξύ "Private Sub" και "End Sub":
eRow = Sheet1. Cells (Rows.Count, 1). End (xlUp). Offset (1,0). Σειρά
Στη συνέχεια, ξεκινήστε μια νέα γραμμή κάτω από αυτήν και, στη συνέχεια, εισαγάγετε τα ακόλουθα:
Κελιά (erow, 1) = TextBox 1. Κείμενο
Εάν μετονομάσατε τα πλαίσια κειμένου σας, αλλάξτε το "TextBox1" στο όνομα που δώσατε στο πρώτο πλαίσιο κειμένου. Κάνετε αυτό για κάθε πλαίσιο εισαγωγής που δημιουργήσατε, ξεκινώντας μια νέα γραμμή και εισάγοντας τα σωστά ονόματα πλαισίου κειμένου, όπως απαιτείται. Επίσης, για κάθε νέα γραμμή, αυξήστε το σχήμα στις παρενθέσεις κατά μία. Για παράδειγμα, η επόμενη γραμμή μπορεί να έχει την εξής μορφή:
Κελιά (erow, 2) = TextBox 2. Κείμενο
Κάντε κλικ στο κουμπί "Αναπαραγωγή" στο επάνω μέρος του παραθύρου για να ξεκινήσετε τη λήψη δεδομένων.
