Excel - Uporabite kodo VBA na več listov

Težava

Imam plačilno datoteko Excel. Ta datoteka vsebuje 200 listov za vsakega zaposlenega.

Imam naslednjo VBA kodo.

 Zasebni podizdelki_premenitev (spreminjanje cilja kot območje) Če je tarča.adresa "$ C $ 9", potem zapustite podmeni, če je cilj = "dodeljen", nato razpon ("a12"). EntireRow.Hidden = True Range ("a14"). = True Else Range ("a12"). EntireRow.Hidden = False Range ("a14"). EntireRow.Hidden = False End Če je konec Sub 

Moram dati / napisati to kodo samo enkrat za delo za vseh 200 listov, sicer moram kopirati in prilepiti v vsaki od 200 listov.

Rešitev

Zdi se mi, da kode ne želite uporabiti na enem listu, ampak na celotnem delovnem zvezku.

Zato dvokliknite knjigo ThisWorkbook pod listi v VB in prilepite svojo kodo kot:

 Zasebno pod Workbook_SheetChange (ByVal Sh kot objekt, ByVal cilj kot obseg) Če Target.Address "$ C $ 9" Nato Izhod Sub Če Target = "sekundarni" Potem Range ("a12"). EntireRow.Hidden = True Range ("a14") ) .EntireRow.Hidden = True Else Range ("a12"). EntireRow.Hidden = False Range ("a14"). EntireRow.Hidden = False End if End Sub 

Hvala TrowaD-ju za ta nasvet.