Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Изменение цвета строки при выполнении условия. / 6 сообщений из 6, страница 1 из 1
18.07.2013, 14:43
    #38335674
Monkgol
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
| Ответить | Цитировать | Написать  
18.07.2013, 14:44
    #38335677
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменение цвета строки при выполнении условия.
А зачем тут ВБА? Воспользуйся условным форматированием
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.07.2013, 14:54
    #38335697
Monkgol
Monkgol
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменение цвета строки при выполнении условия.
Shocker.Pro,

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

В общем условное форматирование не прокатит)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.07.2013, 15:10
    #38335722
Shocker.Pro
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
| Ответить | Цитировать | Написать  
18.07.2013, 16:09
    #38335820
Monkgol
Monkgol
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Изменение цвета строки при выполнении условия.
Shocker.Pro,

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


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