Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/По выделенной ячейке закрасить всю строку - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » По выделенной ячейке закрасить всю строку (Макросы/Sub)
По выделенной ячейке закрасить всю строку
micholap_denis Дата: Четверг, 26.05.2022, 22:31 | Сообщение № 1
Группа: Проверенные
Ранг: Обитатель
Сообщений: 339
Репутация: 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]
 
Ответить
СообщениеВсем доброго вечера, помогите пожалуйста в очередной раз
макрос закрашивает выделенную ячейку цветом (при повторном нажатии кнопки цвет убирает), а как подправить что бы вся строка умной таблицы закрашивалась? при выделении первой ячейки строки, а лучше вообще любой ячейки строки и нажатии кнопки
[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]

Автор - micholap_denis
Дата добавления - 26.05.2022 в 22:31
jun Дата: Пятница, 27.05.2022, 08:59 | Сообщение № 2
Группа: Пользователи
Ранг: Участник
Сообщений: 84
Репутация: 18 ±
Замечаний: 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, приветствую!
Можно, например так:
[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]
см файл- пример

Автор - jun
Дата добавления - 27.05.2022 в 08:59
micholap_denis Дата: Понедельник, 30.05.2022, 09:23 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 339
Репутация: 0 ±
Замечаний: 60% ±

Excel 2013
jun, спасибо
 
Ответить
Сообщениеjun, спасибо

Автор - micholap_denis
Дата добавления - 30.05.2022 в 09:23
Мир MS Excel » Вопросы и решения » Вопросы по VBA » По выделенной ячейке закрасить всю строку (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!