Πώς να μεταφέρετε τα δεδομένα από το UserForm σε ένα φύλλο εργασίας

φόρμες χρήστη , που ονομάζεται επίσης διαλόγου , είναι γραφικά παράθυρα που επιτρέπουν στους χρήστες να εισάγουν δεδομένα σε πεδία και να εισαγάγετε τα δεδομένα σε υπολογιστικά φύλλα του Excel . Ένα UserForm είναι ενσωματωμένο σε ένα βιβλίο εργασίας του Excel και εκτελείται όταν ένας χρήστης ανοίγει το αρχείο Excel , συνήθως μέσω μιας μακροεντολής . Επειδή οι φόρμες χρήστη να επωφεληθούν από τη γλώσσα Visual Basic , μπορούν να γενναιόδωρα προσαρμοστεί ώστε να διασφαλιστεί ότι τα δεδομένα που εγγράφονται στα χωράφια τους είναι πλήρης και έγκυρη πριν να μεταφερθεί στο ίδιο το φύλλο εργασίας Excel για περαιτέρω επεξεργασία. Τα πράγματα που θα χρειαστείτε για Microsoft Excel με Visual Basic Editor
Η Εμφάνιση Περισσότερες οδηγίες
Πώς να μεταφέρετε δεδομένα από ένα UserForm σε ένα φύλλο εργασίας

1

Ανοίξτε το Microsoft Excel και δημιουργήσετε ένα νέο κενό βιβλίο εργασίας κάνοντας κλικ στο μενού Αρχείο και επιλέγοντας " νέο ". Αποθηκεύστε το αρχείο Excel ως " update_worksheet.xls . " 2

Κρατήστε ανοικτό το βιβλίο εργασίας και να ανοίξει το Visual Basic Editor πατώντας Alt - F11 . Δημιουργήστε μια νέα UserForm κάνοντας κλικ στο μενού Εισαγωγή και επιλέγοντας " UserForm . " Ονομάστε το UserForm " transferForm " αλλάζοντας το όνομα χαρακτηριστικό στο μενού Ιδιότητες . Αλλάξτε τη λεζάντα ιδιότητα να " transferForm . "
Εικόνων 3

Προσθέστε ένα πλαίσιο κειμένου στη φόρμα , επιλέγοντας ένα πλαίσιο κειμένου από την εργαλειοθήκη και σύροντάς το στη θέση του στη φόρμα. Ονομάστε το πλαίσιο κειμένου " transferInput " στο παράθυρο των ιδιοτήτων . Αν η εργαλειοθήκη δεν είναι ανοιχτό , επιλέξτε από το μενού Προβολή και Toolbox .
Η 4

Προσθήκη κουμπιού ενημέρωση για το έντυπο , επιλέγοντας ένα στοιχείο CommandButton από την εργαλειοθήκη και σύροντάς το στη θέση του στη φόρμα. Ονομάστε το CommandButton " transferButton " στο παράθυρο ιδιοτήτων και να αλλάξετε τη λεζάντα χαρακτηριστικό "Ενημέρωση Φύλλο εργασίας ".
5

Προσθέστε ένα κουμπί κλεισίματος στη φόρμα , επιλέγοντας ένα δεύτερο CommandButton από την εργαλειοθήκη και σύροντάς το στο τοποθετείτε στη φόρμα . Ονομάστε το CommandButton " closeButton " στο παράθυρο ιδιοτήτων και να αλλάξετε τη λεζάντα αποδίδουν σε " Κλείσιμο φόρμας . "
Η

6 Ανοίξτε το πρόγραμμα επεξεργασίας της Visual Basic κώδικα κάνοντας διπλό κλικ στο transferButton ( κουμπί ενημέρωσης ) . Προσθήκη κώδικα για τη λειτουργία transferButton _CLICK ( ), η οποία μεταφέρει τα δεδομένα που έχουν εισαχθεί στο πλαίσιο κειμένου στο φύλλο εργασίας update_worksheet.xls όταν ο χρήστης κάνει κλικ στο κουμπί . Κλείστε το πρόγραμμα επεξεργασίας της Visual Basic κώδικα .

Private Sub transferButton_Click ( )

Δημ. transferWorksheet ως Φύλλο

Set transferWorksheet = Φύλλα εργασίας ( " Sheet1" )

transferWorksheet . Cells ( 1,1 ) . Value = Me.transferInput.Value

End Sub
Η 7

Ανοίξτε ξανά τη βασική επεξεργαστή κώδικα της Visual Basic , κάνοντας διπλό κλικ στο closeButton ( κουμπί κλεισίματος ) . Προσθήκη κώδικα για τη λειτουργία closeButton_Click ( ), που κλείνει τη φόρμα όταν ο χρήστης κάνει κλικ στο κουμπί . Κλείστε το πρόγραμμα επεξεργασίας της Visual Basic κώδικα .

Private Sub closeButton_Click ( )

Me Αφαίρεση

End Sub
8

Εκτέλεση κώδικα της φόρμας κάνοντας κλικ από το μενού Run και επιλέγοντας " Run Sub /UserForm . " Εισάγετε τα δεδομένα στο πεδίο εισαγωγής και πατήστε το κουμπί " transferButton . " Βεβαιωθείτε ότι τα δεδομένα μεταφέρονται με επιτυχία την πρώτη τιμή του κελιού στο φύλλο εργασίας του Excel , η στροφή προς το Excel, εάν είναι απαραίτητο . Αποθηκεύστε και κλείστε το τρέξιμο UserForm .
Η 9

Χρησιμοποιήστε μια διαδικασία συμβάντος Excel για να ανοίξετε το UserForm όταν ο χρήστης ανοίγει το βιβλίο εργασίας στο Excel . Ανοίξτε την Εξερεύνηση έργου και κάντε διπλό κλικ στο παράθυρο κώδικα ThisWorkbook . Εισάγετε μια μακροεντολή που ανοίγει τη φόρμα όταν το φύλλο εργασίας ανοίγει και να αποθηκεύσετε τη μακροεντολή . Αποθηκεύστε και κλείστε το Visual Basic και update_worksheet.xls .

Private Sub Workbook_Open ( )

transferForm.Show

End Sub
Η 10

Reopen " update_worksheet.xls . " Το UserForm transferForm θα ανοίξει . Πληκτρολογήστε κάποιο κείμενο στο πεδίο " transferInput " και κάντε κλικ στο " transferButton . " Το κείμενο που εισάγεται στο transferForm UserForm θα μεταφερθεί στο πρώτο κελί στο Φύλλο1 σε update_worksheet.xls .
Η
εικόνων