Πώς να κάνετε μια αναφορά από τα φύλλα του Excel Με το VBA

Χρησιμοποιώντας τη Visual Basic for Application (VBA), μπορείτε να αναπτύξετε τις διαδικασίες VBA στον επεξεργαστή Visual Basic της Excel (VBE). Πρόκειται για ένα εύχρηστο περιβάλλον ανάπτυξης. Οι διαδικασίες VBA που αναπτύσσονται στο VBE θα αποτελέσουν μέρος του βιβλίου εργασίας. Μπορείτε να αναπτύξετε μια εφαρμογή VBA για την αυτόματη δημιουργία αναφορών στο Excel. Πρέπει να ενεργοποιήσετε τη μακροεντολή για να μπορέσετε να προγραμματίσετε με το VBE.

Βήμα 1 - Κάντε κλικ στο κουμπί "Έναρξη", "Όλα τα προγράμματα" και "Microsoft Excel" για να μπείτε στη διεπαφή του Excel. Κάντε κλικ στην κορδέλα "Προγραμματιστής" και έπειτα στο κουμπί "Ασφάλεια μακροεντολών". Ελέγξτε "Απενεργοποιήστε όλες τις μακροεντολές με ειδοποίηση" και κάντε κλικ στην επιλογή "Αποθήκευση". Τώρα έχετε ορίσει μακροεντολές στο Excel σας.

Βήμα 2

Πατήστε "Alt" και "F11" ταυτόχρονα για να ξεκινήσετε το VBE. Κάντε διπλό κλικ στο "Φύλλο1" στο δεξί σας παράθυρο στο VBE για να ανοίξετε το παράθυρο κώδικα. Επιλέξτε το φύλλο εργασίας στις αναπτυσσόμενες επιλογές στο παράθυρο κώδικα. Εισάγετε τον ακόλουθο κώδικα στο παράθυρο κώδικα: Sub PrintReport () Dim Page_number Dim ActiveSh Ως φύλλο εργασίας Dim ShNameView ως σύνολο συμβολοσειρών ActiveSh = ActiveSheet για κάθε κυψέλη στην περιοχή (0, 1) .Value Page_number = ActiveCell.Offset (0, 1) .Επιλογή θήκη Cell.Value περίπτωση ("b3"), εύρος ("b3"). 1 Φύλλα (ShNameView) .Επιλέξτε την περίπτωση 2 της εφαρμογής. Αναφορά Goto: = End ShNameView Επιλέξτε ActiveWindow.SeletedSheets.Printout Αντίγραφα: = 1 Επόμενο Ο βρόχος στον κώδικα οδηγεί σε εκτύπωση για κάθε κελί στη στήλη Β ξεκινώντας από το B2. Ο κώδικας εκτυπώνει μόνο σελίδες στο τρέχον βιβλίο εργασίας

Στοιχεία που χρειάζεστε

Excel VBA