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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 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)
 
Ответить
СообщениеЗдравствуйте, подскажите, пожалуйста, как сделать так, чтобы если ячейка в столбце А не пустая, то закрашивались бы ячейки в этой строке с А:E красным цветом и так со всем столбцом А.

Автор - roboaug
Дата добавления - 31.01.2020 в 17:35
Pelena Дата: Пятница, 31.01.2020, 17:51 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 18550
Репутация: 4199 ±
Замечаний: ±

Excel 2016 & Mac Excel
Здравствуйте.
Формула для УФ
Код
=$A1=""
К сообщению приложен файл: 4848517.xls(28.0 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Формула для УФ
Код
=$A1=""

Автор - Pelena
Дата добавления - 31.01.2020 в 17:51
roboaug Дата: Пятница, 31.01.2020, 18:02 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 23
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - roboaug
Дата добавления - 31.01.2020 в 18:02
Kuzmich Дата: Суббота, 08.02.2020, 00:13 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 682
Репутация: 150 ±
Замечаний: 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]
 
Ответить
СообщениеВ модуль листа
[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]

Автор - Kuzmich
Дата добавления - 08.02.2020 в 00:13
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Закрасить диапазон в строке, если ячейка не пустая (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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