Добрый вечер!
Подскажите пожалуйста как доработать следующий макрос:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static oldRow As Long
On Error Resume Next
Rows(oldRow).Interior.ColorIndex = xlColorIndexNone
Target.EntireRow.Interior.Color = RGB(234, 244, 234) 'светло-зеленый
oldRow = Target.Row
End Sub
Выше приведенный код, работает почти "как надо" - выделяет всю строку при перемещении по ячейкам, хотелось бы доработать так - что бы он выделял не всю строку, а только первые 30 ячеек строки и только при перемещении по ячейкам из столбца P, а не по всем ячейкам листа.
Подскажите пожалуйста как доработать следующий макрос:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static oldRow As Long
On Error Resume Next
Rows(oldRow).Interior.ColorIndex = xlColorIndexNone
Target.EntireRow.Interior.Color = RGB(234, 244, 234) 'светло-зеленый
oldRow = Target.Row
End Sub
Выше приведенный код, работает почти "как надо" - выделяет всю строку при перемещении по ячейкам, хотелось бы доработать так - что бы он выделял не всю строку, а только первые 30 ячеек строки и только при перемещении по ячейкам из столбца P, а не по всем ячейкам листа.
Изменено: - 13.03.2025 20:42:46