Excel - Použiť VBA kód na viac listov

Problém

Mám plat Excel súbor. Tento súbor obsahuje 200 listov, ktoré sú pre každého zamestnanca.

Mám nasledujúci kód VBA.

 Private Sub Worksheet_Change (Cieľový cieľ ByVal ako rozsah) Ak je cieľová adresa: „C $ 9 $“, potom Koniec Sub Ak je cieľ = „sekundovaný“ Potom Rozsah („a12“) EntireRow.Hidden = Pravý rozsah („a14“) EntireRow.Hidden = True Else Range ("a12") EntireRow.Hidden = False Range ("a14") EntireRow.Hidden = False End If End Sub 

Musím dať / zapísať tento kód raz len pre prácu pre všetkých 200 listov, inak musím skopírovať a vložiť do každého z 200 listov.

Riešenie

Zdá sa mi, že nechcete použiť kód na jeden hárok, ale na celý zošit.

Preto dvakrát kliknite na ThisWorkbook pod listami vo VB a vložte svoj kód ako:

 Private Sub Workbook_SheetChange (ByVal Sh ako objekt, ByVal Target As Range) Ak je Target.Address "$ C $ 9" Potom Exit Sub Ak je Target = "seconded" Potom Rozsah ("a12") EntireRow.Hidden = True Range ("a14") ) .EntireRow.Hidden = Pravý rozsah Else ("a12") EntireRow.Hidden = False Range ("a14") EntireRow.Hidden = False End If End Sub 

Vďaka TrowaD za tento tip.