Excel - Застосування коду VBA до декількох аркушів

Проблема

У мене є зарплатний файл Excel. Цей файл містить 200 аркушів для кожного співробітника.

У мене є наступний код VBA.

 Приватний Sub Worksheet_Change (ByVal Цільовий як діапазон) Якщо Target.Address "$ C $ 9" Тоді Вийти Sub Якщо Target = "відряджений" Тоді Range ("a12"). = Істинний діапазон ("a12"). EntireRow.Hidden = Помилковий діапазон ("a14"). 

Мені потрібно поставити / написати цей код тільки один раз, щоб працювати на всі 200 аркушів інакше я повинен скопіювати і вставити його в кожному з 200 аркушів.

Рішення

Мені здається, що ви не хочете застосовувати код до одного аркуша, а до всієї робочої книги.

Тому двічі клацніть на ThisWorkbook нижче аркушів у VB і вставте код, як:

 Приватний підручник Workbook_SheetChange (ByVal Sh як об'єкт, ByVal Target як діапазон) Якщо Target.Address "$ C $ 9" Тоді Exit Sub Якщо Target = "відряджений" Тоді Range ("a12"). ) .EntireRow.Hidden = True Else Range ("a12"). EntireRow.Hidden = Помилковий діапазон ("a14"). 

Завдяки TrowaD за цей відгук.