Выделение цветом строки в Екселе в зависимости от значения

[abracadabra]

Задача такая:
На листе Ексель есть несколько строк со значениями.
Если в 13 столбце какой-нибудь строки присутствует "++", то всю строку нужно выделить красным цветом.
Спасибо

[alibek]

Почитай инфу об условном форматировании. Или поищи в форуме, месяца полтора назад этот вопрос уже всплывал и на него ответили.

[abracadabra]

Спасибо, буду искать .

[Maks the best]

Злобный способ , но действенный ))

Код: Выделить всё

Sub xxx()

Cells(65536, 256) = "++"
Cells(1, 1).Activate

10
If ActiveCell.Row = 65536 Then GoTo 20
Cells.Find(What:="++", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
Rows(ActiveCell.Row).Interior.ColorIndex = 3
GoTo 10

20
Cells(65536, 256) = ""
Cells(1, 1).Activate
End Sub


[uhm]

Изврат.

Условное форматирование делается за 5 кликов мышки.

И, кстати, Maks the best, не используй GoTo, сейчас это считается "дурным тоном"

[Maks the best]

а как условным форматированием задать выделение всей строки цветом, мне кажется так просто на листе это форматирование висеть должно всё время, а так нажал кнопку с 'извратом' да и шут с ним
а goto это не извращение, это ретро с настальгией, ты чего

форум птичек такой получился "птица говорун ..."

[abracadabra]

Спасибо, дружище!
Может ты знаешь, как в той же процедуре найти "--" и выделить строку синим цветом? Я пробовал - у меня глючит.

[Maks the best]

да простят меня программисты

Код: Выделить всё


Sub красный_синий()

a = "++"
c = 3
GoTo 6

5
a = "--"
c = 5

6
Cells(65536, 256) = a
Cells(1, 1).Activate



10
If ActiveCell.Row = 65536 Then GoTo 20
Cells.Find(What:=a, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
Rows(ActiveCell.Row).Interior.ColorIndex = c
GoTo 10

20
If c = 3 Then GoTo 5
Cells(65536, 256) = ""
Cells(1, 1).Activate
End Sub



[abracadabra]

класс, спасибо, всё супер!

[Maks the best]

Да не за что

Обращяйся, если чего

Удачи!

[abracadabra]

правда есть ещё одна задачка
нужно перебрать строки и если значение в столбце K какой-нибудь строки больше, чем значение в столбце J той же строки, то выделить эту строку красным , если же значение в столбце К меньше чем в столбце I, выделить эту строку синим.

[Maks the best]

я правильно понял:
если K<I то полюбому синий
всё остальные строки (если K>J) красные? ...

[abracadabra]

Точно

[Maks the best]

Код: Выделить всё


' только тут нет проверки на число это или текст, текст всегда будет больше :)
' и работает с большим тормозом из за просмотра строк до 65536 :)

For r = 1 To 65536
If Cells(r, 11) < Cells(r, 9) Then
Rows(r).Interior.ColorIndex = 5
GoTo 10
End If
If Cells(r, 11) > Cells(r, 10) Then Rows(r).Interior.ColorIndex = 3
10
Next r


ну похимичь там чего

[abracadabra]

всё работает!

[flying]

Код: Выделить всё


' только тут нет проверки на число это или текст, текст всегда будет больше :)
' и работает с большим тормозом из за просмотра строк до 65536 :)
...


Чтобы тормоза не было можно в конце таблицы EOF ввести в любую ячейку. Тогда можно и без GOTO обойтись.