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. Ο κώδικας τυπώνει μόνο τις σελίδες στο τρέχον βιβλίο εργασίας .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα