По выделенной ячейке закрасить всю строку

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

По выделенной ячейке закрасить всю строку (Макросы/Sub)

micholap_denis

Дата: Четверг, 26.05.2022, 22:31 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 341

Репутация: 0 ±

Замечаний: 60% ±

Excel 2013

Всем доброго вечера, помогите пожалуйста в очередной раз
макрос закрашивает выделенную ячейку цветом (при повторном нажатии кнопки цвет убирает), а как подправить что бы вся строка умной таблицы закрашивалась? при выделении первой ячейки строки, а лучше вообще любой ячейки строки и нажатии кнопки
[vba]

Код

Sub Исключить()
    If Cells(Selection.Row, 1.1).Interior.Color = c_not_active Then
        c_final = c_active
    Else
        c_final = c_not_active
    End If
    Cells(Selection.Row, 1.1).Interior.Color = c_final
End Sub

[/vba]

Ответить

jun

Дата: Пятница, 27.05.2022, 08:59 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 145

Репутация: 43 ±

Замечаний: 0% ±

micholap_denis, приветствую!
Можно, например так:
[vba]

Код

Sub Исключить()
Dim Cell As Range
    Set Cell = ActiveCell

    If Cell.Interior.Pattern = xlNone Then
        ActiveSheet.ListObjects("Таблица1").ListRows(Cell.Row - 1).Range.Interior.Color = vbYellow
    Else
         ActiveSheet.ListObjects("Таблица1").ListRows(Cell.Row - 1).Range.Interior.Color = xlNone
    End If
End Sub

[/vba]
см файл- пример

К сообщению приложен файл: 3396496.xlsb (16.8 Kb)

Ответить

micholap_denis

Дата: Понедельник, 30.05.2022, 09:23 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 341

Репутация: 0 ±

Замечаний: 60% ±

Excel 2013

jun, спасибо

Ответить

По выделенной ячейке закрасить всю строку (Макросы/Sub)

Страница 1 из 1
1