Здравствуйте, подскажите, пожалуйста, как сделать так, чтобы если ячейка в столбце А не пустая, то закрашивались бы ячейки в этой строке с А:E красным цветом и так со всем столбцом А.
Здравствуйте, подскажите, пожалуйста, как сделать так, чтобы если ячейка в столбце А не пустая, то закрашивались бы ячейки в этой строке с А:E красным цветом и так со всем столбцом А.roboaug
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Columns("A")) Is Nothing Then Application.EnableEvents = False For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row If Not IsEmpty(Cells(i, "A")) Then Range("A" & i & ":E" & i).Interior.ColorIndex = 3 Else Range("A" & i & ":E" & i).Interior.ColorIndex = xlNone End If Next End If Application.EnableEvents = True End Sub
[/vba]
В модуль листа [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Columns("A")) Is Nothing Then Application.EnableEvents = False For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row If Not IsEmpty(Cells(i, "A")) Then Range("A" & i & ":E" & i).Interior.ColorIndex = 3 Else Range("A" & i & ":E" & i).Interior.ColorIndex = xlNone End If Next End If Application.EnableEvents = True End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
