Закрасить диапазон в строке, если ячейка не пустая

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Закрасить диапазон в строке, если ячейка не пустая (Макросы/Sub)

roboaug

Дата: Пятница, 31.01.2020, 17:35 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

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

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

Excel 2010

Здравствуйте, подскажите, пожалуйста, как сделать так, чтобы если ячейка в столбце А не пустая, то закрашивались бы ячейки в этой строке с А:E красным цветом и так со всем столбцом А.

К сообщению приложен файл: 3507636.xls (29.0 Kb)

Ответить

Pelena

Дата: Пятница, 31.01.2020, 17:51 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19174

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Формула для УФ

Код

=$A1=""

К сообщению приложен файл: 4848517.xls (28.0 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

roboaug

Дата: Пятница, 31.01.2020, 18:02 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 23

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

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

Excel 2010

Pelena, спасибо, но УФ не подходит, оно сбивается, потому что происходит удаление и добавление столбцов.

Ответить

Kuzmich

Дата: Суббота, 08.02.2020, 00:13 | Сообщение № 4

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

Ранг: Ветеран

Сообщений: 711

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

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

Excel 2003

В модуль листа
[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

[/vba]

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Закрасить диапазон в строке, если ячейка не пустая (Макросы/Sub)

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