Excel / VBA - цветная часть столбца

У меня есть код, чтобы закрасить часть строки на основе того, что введено в определенный столбец, но я хотел бы транспонировать этот код так, чтобы часть столбца была окрашена на основе данных, введенных в строке. Как настроить приведенный ниже код:

 Private Sub Worksheet_Change (ByVal Target As Range) 'Когда в рабочую таблицу вносится изменение ... Если не пересекается (Target, Range ("B3: B100")) - Ничто Тогда "... для любых ячеек от B3 до B100 (Роль) ... Если Selection.Cells.Count> 1 Then Exit Sub '(выйти из процедуры, если изменения сделаны более чем в одной ячейке за раз - предотвращает сбой Выберите Case Target Case "Manager"' ... проверьте, не ячейка ли содержит "Manager" ... Range ("A" & Target.Row & ": AG" & Target.Row) .Interior.ColorIndex = 36 '... и, если это так, измените цвет ячеек в этой строке с B - AH, чтобы бледно-желтый. 'Другие случаи здесь .... End Выберите End If End Sub 

Решение

Ну вот:

 Private Sub Worksheet_Change (ByVal Target As Range) Если значение Intersect (Target, Range («A3: L3»))) равно нулю или _ Selection.Cells.Count> 1, затем выйти из подвыбора Case Target Case «Диапазон« Manager »(ячейки (1, Target.Column), Cells (30, Target.Column)). Interior.ColorIndex = 36 End Select End Sub 

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