powered by simpleCommunicator - 2.0.58     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Изменение цвета строки при выполнении условия.
6 сообщений из 6, страница 1 из 1
Изменение цвета строки при выполнении условия.
    #38335674
Monkgol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Доброго времени суток, уважаемые.
В VBA я нуб, поэтому обращаюсь к вам.
Мне нужно, чтоб каждая строка на проверялась по условию Excel и в случае выполнения условия закрашивалась красным.
Пока что я смог выполнить это только для одной строки в виде

Sub Color()
If DateAdd("m", F2, Y2) >= DateAdd("d", -30, Y2) Then
Rows(2).Select
With Selection.Interior
.PatternColorIndex = xlAutomatic
.Color = 192
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
End Sub

А необходимо, чтоб проверялись все строки файла вне зависимости от их количества.
Спасибо.
...
Рейтинг: 0 / 0
Изменение цвета строки при выполнении условия.
    #38335677
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А зачем тут ВБА? Воспользуйся условным форматированием
...
Рейтинг: 0 / 0
Изменение цвета строки при выполнении условия.
    #38335697
Monkgol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Pro,

Данный код будет использоваться при выгрузке данных из ИС и данный код будет прописан к шаблонному файлу Excel. Я бы с радостью воспользовался им, но данный путь в данной ситуации не корректен.
...
Рейтинг: 0 / 0
Изменение цвета строки при выполнении условия.
    #38335703
Monkgol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Pro,

В общем условное форматирование не прокатит)
...
Рейтинг: 0 / 0
Изменение цвета строки при выполнении условия.
    #38335722
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub Color()

For i=2 To 100
  If DateAdd("m", Cells(i, 6), Cells(i, 25)) >= DateAdd("d", -30, Cells(i, 25)) Then
    With Rows(i).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 192
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
  End If
End If

End Sub
...
Рейтинг: 0 / 0
Изменение цвета строки при выполнении условия.
    #38335820
Monkgol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Shocker.Pro,

Спасибо)
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Изменение цвета строки при выполнении условия.
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]