Προγραμματισμός

* Γνώση Υπολογιστών >> Προγραμματισμός >> Προγραμματισμός Υπολογιστών Γλώσσες

Πώς να κάνω μια έκθεση από φύλλα του Excel με VBA

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

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

Πατήστε το " Alt " και " F11 " ταυτόχρονα για να ξεκινήσει VBE . Κάντε διπλό κλικ στο " Φύλλο1 " στο δεξιό τμήμα του παραθύρου σας στο VBE σας για να ανοίξετε το παράθυρο κώδικα . Επιλέξτε " Φύλλο εργασίας " για τα drop-down επιλογές στο παράθυρο κώδικα
εικόνων 3

Πληκτρολογήστε τον ακόλουθο κώδικα στο παράθυρο κώδικα : .

Sub PrintReport ( )

Δημ. PAGE_NUMBER

Dim ActiveSh Όπως Φύλλο

Dim ShNameView Όπως String

Set ActiveSh = ActiveSheet

για κάθε κελί Range ( Range ( " b3 " ) , Range ( " b3 " ) . Τέλος ( xlDown ) )

Sh_view = ActiveCell.Offset ( 0 , 1 ) . Value

PAGE_NUMBER = ActiveCell.Offset ( 0 , 1 ) . Αξία

Επιλέξτε υπόθεση Cell.Value

Περίπτωση 1

Φύλλα ( ShNameView ) . Επιλέξτε

Περίπτωση 2

Application . Goto αναφοράς : = ShNameView

End Select

ActiveWindow.SeletedSheets.Printout Αντίγραφα : 1 =

Επόμενο

Η θηλιά στον κώδικα οδηγεί σε μια εκτύπωση για κάθε κελί στη στήλη Β αρχίζοντας από το Β2. Ο κώδικας τυπώνει μόνο τις σελίδες στο τρέχον βιβλίο εργασίας .
Η
εικόνων

Συναφής σύστασή

Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα