Найти в Дзене
automatization24

Как подсвечивать всю строку Эксель при клике на ячейку

При работе с таблицами удобно кликнуть на любую ячейку и сразу увидеть выделенную всю строку, где эта ячейка находится. Опция вроде нужная, но по дефолту ее в Экселе нет. Тут нам поможет небольшой кусочек кода, который можно вставлять в Книге в Макросы, и все будет работать. А самое главное, в этом коде не надо разбираться. Работает на уровне Ctrl+C, Ctrl+V. Для примера таблицы взял Еженедельные средние потребительские цены на отдельные товары и услуги по Российской Федерации в 2024 г. Открываем файл и нажимаем Alt+F11 Выбираем слева ЭтаКнига. А дальше просто копируем следующий код: Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Static prev As Range
    On Error Resume Next
    prev.Interior.ColorIndex = xlNone
    On Error GoTo 0
    Set prev = Target.EntireRow
    prev.Interior.ColorIndex = 15
End Sub Теперь, когда кликаем на ячейку, у нас подсвечивается вся строка: Дальше при сохранении книга выйдет сообщение, что в формате .xlsx наше содер

При работе с таблицами удобно кликнуть на любую ячейку и сразу увидеть выделенную всю строку, где эта ячейка находится. Опция вроде нужная, но по дефолту ее в Экселе нет. Тут нам поможет небольшой кусочек кода, который можно вставлять в Книге в Макросы, и все будет работать. А самое главное, в этом коде не надо разбираться. Работает на уровне Ctrl+C, Ctrl+V.

Для примера таблицы взял Еженедельные средние потребительские цены на отдельные товары и услуги по Российской Федерации в 2024 г. Открываем файл и нажимаем Alt+F11

-2

Выбираем слева ЭтаКнига. А дальше просто копируем следующий код:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Static prev As Range
    On Error Resume Next
    prev.Interior.ColorIndex = xlNone
    On Error GoTo 0
    Set prev = Target.EntireRow
    prev.Interior.ColorIndex = 15
End Sub

-3

Теперь, когда кликаем на ячейку, у нас подсвечивается вся строка:

Дальше при сохранении книга выйдет сообщение, что в формате .xlsx наше содержимое не поддерживается.

-4

А чтобы сохранить макрос, нам нужно нажать Нет, вернуться на предыдущий шаг и сохранить книгу с Поддержкой макросов, будет формат .xlsm. При последующих открытиях файла и разрешении макросов подсветка строки будет сохранена.

-5

Цвета подсветки задаются в параметре prev.Interior.ColorIndex = 15. Для жёлтого, например, значение будет 6.