Excel - применить код VBA к нескольким листам

вопрос

У меня есть файл зарплаты Excel. Этот файл включает в себя 200 листов, которые предназначены для каждого сотрудника.

У меня есть следующий код VBA.

 Private Sub Worksheet_Change (ByVal Target As Range) Если Target.Address "$ C $ 9", то выйти из Sub If Target = "secondded", затем Range ("a12"). = True Else Range ("a12"). WholeRow.Hidden = False Range ("a14"). FullRow.Hidden = False End If End Sub 

Мне нужно поставить / написать этот код только один раз, чтобы он работал на всех 200 листах, в противном случае мне нужно скопировать и вставить его в каждый из 200 листов.

Решение

Мне кажется, что вы хотите применить код не к одному листу, а ко всей книге.

Поэтому дважды щелкните ThisWorkbook под листами в VB и вставьте свой код следующим образом:

 Private Sub Workbook_SheetChange (ByVal Sh As Object, ByVal Target As Range) Если Target.Address "$ C $ 9", то Exit Sub If Target = "secondded" Затем Range ("a12"). ) .EntireRow.Hidden = True Else Range ("a12"). HolyRow.Hidden = False Range ("a14"). WholeRow.Hidden = False End If End Sub 

Спасибо TrowaD за этот совет.