Πώς να αποκτήσετε πρόσβαση Macro Συμπληρώστε στήλες με δεδομένα

μακροεντολές είναι προγράμματα που είναι γραμμένα με γλώσσα προγραμματισμού , όπως η Visual Basic Microsoft Office για Applications (VBA ) . VBA μακροεντολές μπορεί να γεμίσει τις στήλες τόσο στην Access και το Excel , χρησιμοποιώντας μεθόδους ( π.χ. λειτουργίες) της VBA αντικειμένου μοντέλο , μια ιεραρχία των εικονικών αντικειμένων . Γεμίζοντας τις στήλες στην Access και το Excel περιλαμβάνει γράψιμο κώδικα που επικαλείται αυτές τις μεθόδους με τις παραμέτρους που με τις τιμές για να γεμίσει τις στήλες με . Χρησιμοποιώντας μακροεντολές VBA και όχι χειροκίνητη εισαγωγή για να συμπληρώσετε τις στήλες με τα δεδομένα που μειώνει το χρόνο που απαιτείται για να προσθέσετε δεδομένα στην Access σας και τους πίνακες του Excel . Τα πράγματα που θα χρειαστείτε για Microsoft Access και το Excel
Η Εμφάνιση Περισσότερες οδηγίες
Συμπληρώστε Excel Στήλες με δεδομένα
Η

1 Ανοίξτε το Excel και πληκτρολογήστε το παράθυρο της ανάπτυξης VBA πατώντας " Alt " + " F11 ". 2

κάντε διπλό κλικ στο " Project Αυτό το " σημείο βιβλίου " παράθυρο »για να εμφανιστεί ένα παράθυρο για την εισαγωγή νέων κώδικα του προγράμματος.
εικόνων 3

Επικολλήστε το πρόγραμμα που εμφανίζεται κάτω στο νέο παράθυρο . Το πρόγραμμα αυτό ορίζει τις τιμές των ακινήτων κύτταρα του αντικειμένου ActiveSheet . Το ακίνητο κύτταρα αντιπροσωπεύει όλα τα κελιά στο τρέχον φύλλο εργασίας . Η εκστρατεία «Υπέρ " και " Next" καταστάσεις του προγράμματος αποτελούν μια δομή loop που γεμίζει μια στήλη στο τρέχον φύλλο εργασίας με τα δεδομένα .

Δημόσια FillColumns Sub ( )

Δημ. col

Για col = 1 μέχρι 10

ActiveSheet.Cells ( col , 1 ) = " somevalue "

Επόμενο col

End Sub
Η 4

Κάντε κλικ σε μια δήλωση του προγράμματος FillColumns , στη συνέχεια, πατήστε το πλήκτρο "F5 " για να τρέξει αυτό το πρόγραμμα .
5

Επιστροφή στο Excel πατώντας το πλήκτρο " Alt " + " F11 ". Το τρέχον φύλλο εργασίας θα εμφανίσει " somevalue " για τις πρώτες 10 σειρές πρώτης στήλης του φύλλου εργασίας .
Εικόνων Συμπληρώστε Στήλες Access με δεδομένα
Η 6

Ανοίξτε το Microsoft Access , στη συνέχεια, δημιουργήστε ένα νέο πίνακα βάσης δεδομένων πατώντας το κουμπί " Δημιουργία " " πίνακα " στοιχείο μενού .
Η 7

Τύπος " Πεδίο1 " στο κελί δίπλα στο κελί που εμφανίζει "ID ", για να δημιουργήσετε μια στήλη που ονομάζεται " Πεδίο1 " στο νέο πίνακα . Μακροεντολή VBA σας θα συμπληρώσετε αυτό το πεδίο με δεδομένα .
8

Πατήστε "Control " + " S ", τύπου " Πίνακας 1 " για το όνομα του πίνακα , στη συνέχεια, κάντε κλικ στο " OK " για να αποθηκεύσετε το νέο πίνακα .
Τετάρτη 9

Εισάγετε το περιβάλλον VBA πατώντας το πλήκτρο " Alt " + " F11 ". Κάντε ένα νέο παράθυρο του πηγαίου κώδικα κάνοντας κλικ στο μενού "Εισαγωγή " για " ενότητα " εντολή .
Η 10

Επικολλήστε τον ακόλουθο πρόγραμμα στήλη πλήρωσης στο νέο παράθυρο κώδικα . Το πρόγραμμα αυτό καλεί Επεξεργασία και ενημέρωση των μεθόδων του αντικειμένου RecordSet να γεμίσει Πεδίο1 του Table1 με τα δεδομένα .

FillColumns Public Sub ( )

Dim dbs Όπως DAO.Database

Dim recset Όπως DAO.Recordset

Dim i As Integer

Set dbs = CurrentDb

Set recset = dbs.OpenRecordset ( " Πίνακας 1 " )

Για i = 1 μέχρι 10

recset.AddNew

recset ! Πεδίο1 = " Ο Μάγος του Οζ "

recset.Update

Επόμενο i

End Sub

11

Εκτελέστε το πρόγραμμα κάνοντας κλικ σε μία από τις δηλώσεις του και πατώντας το πλήκτρο " F5 ". Πατήστε το πλήκτρο " Alt " + " F11 " για να επιστρέψετε στην πρόσβαση , στη συνέχεια, κάντε διπλό κλικ στο " Πίνακας 1 " στοιχείο του παραθύρου πλοήγησης . Πίνακας 1 θα εμφανιστεί στο grid και να εμφανίσει μια στήλη ( " Πεδίο1 " ), ότι οι μακροοικονομικές σας γεμίζουν με δεδομένα .
Η
εικόνων