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

Έντυπα στο Microsoft Office Excel μπορεί να σας βοηθήσει παρόντα δεδομένα σαφώς και άμεσα , παρά την αναφορά τους σε ένα αρχείο στο σκληρό σας δίσκο . Ο πιο γρήγορος τρόπος για να εισάγουν τα δεδομένα σε μια φόρμα από ένα υπολογιστικό φύλλο είναι με τη χρήση της Visual Basic for Applications ( VBA ) . VBA είναι μια γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών που χρησιμοποιούνται για την αυτοματοποίηση των χειρωνακτικών εργασιών σε εφαρμογές του Microsoft Office , όπως το Excel . Κάντε την αίτησή σας πιο φιλικό προς το χρήστη με την εμφάνιση των δεδομένων υπολογιστικών φύλλων μέσω εντύπων . Οδηγίες
Η 1

Εκκίνηση του Microsoft Office Excel και πληκτρολογήστε " 2 " στο κελί " A1 ", " 3 " στο κελί " B1 ", " 4 " στο κελί " C1 " και " 5 " στο κελί « D1 ». Πατήστε το πλήκτρο " Ctrl " και "S " για να αποθηκεύσετε το υπολογιστικό φύλλο . Αποθήκευση σε " C : \\ Temp " ως " source.xlsx " και κλείστε το φύλλο 2

Launch Excel για να ανοίξετε ένα νέο βιβλίο εργασίας . . Κάντε κλικ στην καρτέλα "Προγραμματιστής " , στη συνέχεια, κάντε κλικ στο " Visual Basic ". Κάντε κλικ στο "Εισαγωγή" μενού και κάντε κλικ στο " UserForm1 " για να προσθέσετε μια νέα μορφή .
Εικόνων 3

Κάντε κλικ στο " σύνθετο πλαίσιο " για την " Toolbox" παράθυρο και σύρετε το στη φόρμα σας ενώ κρατάτε το ποντίκι σας κουμπί . Απελευθερώστε το κουμπί του ποντικιού για να δημιουργήσετε ένα νέο στοιχείο ελέγχου σύνθετου πλαισίου . Προσθέστε ένα νέο κουμπί εντολής χρησιμοποιώντας την ίδια τεχνική .
Η

4 Κάντε διπλό κλικ στο " CommandButton1 " να κινήσει τη διαδικασία click - εκδήλωση για το κουμπί . Ξεκινήστε με την προσθήκη της ακόλουθης κώδικα VBA για να δημιουργήσετε τις μεταβλητές που χρησιμοποιούνται για να ανοίξει το φύλλο :

Dim sourceXL Όπως Excel.Application

Dim sourcebook Όπως Excel.Workbook

Dim sourceSheet Όπως Excel.Worksheet
5

Προσθέστε τον ακόλουθο κώδικα για να ανοίξετε το " source.xlsx " φύλλο :

Set sourceXL = Excel.Application

Set Sourcebook = sourceXL . Workbooks.Open ( " C : \\ Temp \\ source.xlsx " )

Σετ sourceSheet = sourceBook.Sheets ( 1 )
Η

6 Πληκτρολογήστε τον ακόλουθο κώδικα για να πάρετε τις τιμές από " source.xlsx " και προσθέστε τα στο σύνθετο πλαίσιο στο έντυπο σας :

sourceSheet.Range ( " A1 " ) . Επιλέξτε

Me.ComboBox1.AddItem ( sourceSheet.Range ( " A1 " ) . Value)

sourceSheet.Range ( " B1 " ) . Επιλέξτε

Me.ComboBox1.AddItem ( sourceSheet.Range ( " B1 " ) . Value)

sourceSheet . Range ( "C1" ) . Επιλέξτε

Me.ComboBox1.AddItem ( sourceSheet.Range ( "C1" ) . Value)

sourceSheet.Range ( « D1 » ) . Επιλέξτε

Me.ComboBox1.AddItem ( sourceSheet.Range ( « D1 » ) . Value)
Η

7 Ελέγξτε το πρόγραμμά σας πατώντας το πλήκτρο " F5 " και κάνοντας κλικ στο κουμπί εντολής για να γεμίσει ένα σύνθετο πλαίσιο σας .
Η
εικόνων