„Excel“ - pritaikykite VBA kodą keliems lapams

Problema

Turiu algos Excel failą. Šiame faile yra 200 lapų, skirtų kiekvienam darbuotojui.

Turiu šį VBA kodą.

 Private Sub Worksheet_Change (ByVal Target As Range) Jei Target.Address "$ C $ 9" Tada Exit Sub jei Target = "komandiruotas" Tada Range ("a12") EntireRow.Hidden = True Range ("a14"). = True Else Range („a12“). EntireRow.Hidden = False Range („a14“). EntireRow.Hidden = False End, jei pabaiga 

Man reikia įdėti / parašyti šį kodą tik vieną kartą, kad galėčiau dirbti visiems 200 lapų, kitaip turiu jį nukopijuoti ir įklijuoti į kiekvieną 200 lapų.

Sprendimas

Man atrodo, kad nenorite taikyti kodo viename lape, bet visame darbo knygoje.

Todėl dukart spustelėkite šį darbo knygą po lapais VB ir įklijuokite kodą kaip:

 Privatus „Sub Workbook_SheetChange“ („ByVal Sh As Object“, „ByVal“ taikinys kaip diapazonas) Jei Target.Address „$ C $ 9“ Tada išeiti iš Sub jei Target = „komandiruotas“, tada diapazonas („a12“). .EntireRow.Hidden = True Else Range („a12“). EntireRow.Hidden = False Range („a14“). EntireRow.Hidden = False End, jei pabaiga 

Ačiū TrowaD už šį patarimą.