Excel - Εφαρμογή κώδικα VBA σε πολλαπλά φύλλα

Θέμα

Έχω μισθό αρχείο Excel. Αυτό το αρχείο περιλαμβάνει 200 ​​φύλλα τα οποία είναι για κάθε εργαζόμενο.

Έχω τον ακόλουθο κώδικα VBA.

 Αν το Target.Address "$ C $ 9" τότε Έξοδος Sub Εάν Target = "αποσπασμένο" τότε Εύρος ("a12") EntireRow.Hidden = True Range ("a14") EntireRow.Hidden = True Else Εύρος ("a12") EntireRow.Hidden = False Range ("a14") EntireRow.Hidden = False End Αν End Sub 

Πρέπει να τοποθετήσω / γράψω αυτόν τον κώδικα μόνο μία φορά για να δουλέψω για όλα τα 200 φύλλα, διαφορετικά πρέπει να το αντιγράψω και να τα επικολλήσω σε κάθε ένα από τα 200 φύλλα.

Λύση

Μου φαίνεται ότι δεν θέλετε να εφαρμόσετε τον κώδικα σε ένα μόνο φύλλο, αλλά σε ολόκληρο το βιβλίο εργασίας.

Επομένως κάντε διπλό κλικ στο ThisWorkbook κάτω από τα φύλλα σε VB και επικολλήστε τον κώδικα σας όπως:

 Προσωπική υποδιαίρεση βιβλίου εργασίας (αντικατάσταση byVal ως αντικείμενό της, ByVal στόχος ως περιοχή) Αν Target.Address "$ C $ 9" Έπειτα Exit Sub Αν Target = "αποσπασμένο" τότε Εύρος ("a12"). ) .EntireRow.Hidden = Αληθινή περιοχή άλλης ("a12") EntireRow.Hidden = False Range ("a14") EntireRow.Hidden = False End If End Sub 

Χάρη στην TrowaD για αυτή την συμβουλή.