(excel_2010_VBA) Поиск по параметрам

[lapin912]

Доброго дня всем. Прошу помощи в написании макроса поиска ячеек, содержащих текст «Событие (» и окрашивание их, допустим в желтый, цвет, а ячеек с текстом «Участок.» в фиолетовый, данный текст присутствует всегда, а также поиск ячеек содержащих информацию «08:30:00:00», «09:00:00:00», «13:30:00:00», «16:00:00:00»«18:30:00:00», «00:00:00:00» и окрашивание диапазона ячеек (A:E) в красный, но при условии, что не всегда есть такая информация, которую нужно окрасить в красный цвет. Чуть-чуть разобрался,
Sub поискЯчейки()
Dim w As Integer, s
With Application
.FindFormat.Clear: .ReplaceFormat.Clear: .ScreenUpdating = False
For Each s In Array("Событие", "Участок")
w = w + 1
.ReplaceFormat.Interior.Color = Choose(w, RGB(255, 255, 0), RGB(112, 48, 160))
[C:C].Replace s, s, xlPart, , , , , True
Next
End With
End Sub
осталось разобраться с окраской в красный цвет диапазон ячеек.

[27102014]

Чуть-чуть разобрался - в чем?

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

решение намного проще чем Вы пытаетесь сделать с Find - зачем? обычный цикл перебора ячеек с проверкой условия содержания ячейки

[lapin912]

Сообщение от 27102014

Чуть-чуть разобрался - в чем?

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

решение намного проще чем Вы пытаетесь сделать с Find - зачем? обычный цикл перебора ячеек с проверкой условия содержания ячейки

Совет помог, как подорожник для умирающего.

[27102014]

если не секрет, как решили задачу?

[AleksandrH]

Сообщение от lapin912

Совет помог, как подорожник для умирающего.

Но ведь можна перебрать в цикле и закрасить...черным

Sub f()
    Dim lr As Integer
    Dim i  As Long
    Dim cel As String
    lr = Range("B65553").End(xlUp).Row
    For i = 1 To lr
        cel = CStr(Cells(i, 2))
        If InStr("08300000, 09000000, 13300000, 16000000, 18300000, 00000000", cel) > 0 Then
            Range(Cells(i, 1), Cells(i, 4)).Interior.Color = 2
        End If
    Next i
End Sub

[lapin912]

Сообщение от AleksandrH

Но ведь можна перебрать в цикле и закрасить...черным

Sub f()
    Dim lr As Integer
    Dim i  As Long
    Dim cel As String
    lr = Range("B65553").End(xlUp).Row
    For i = 1 To lr
        cel = CStr(Cells(i, 2))
        If InStr("08300000, 09000000, 13300000, 16000000, 18300000, 00000000", cel) > 0 Then
            Range(Cells(i, 1), Cells(i, 4)).Interior.Color = 2
        End If
    Next i
End Sub

Спасибо за реальную помощь, без нравоучений. Только почему-то закрашивает ячейку "В1", со значением 06000000, хотя условий нет.

[AleksandrH]

Можно поиграться с условиями

Sub f()
    Dim lr As Integer
    Dim i  As Long
    Dim cel As String
    lr = Range("B65553").End(xlUp).Row
    For i = 1 To lr
        cel = Cells(i, 2)
        If InStr(" 8300000, 9000000, 13300000, 16000000, 18300000, 0000000", " " & cel) > 0 Then
            Range(Cells(i, 1), Cells(i, 4)).Interior.Color = 2
        End If
    Next i
End Sub

v2

Sub f1()
    Dim lr As Integer
    Dim i  As Long
    Dim cel As String
    lr = Range("B65553").End(xlUp).Row
    For i = 1 To lr
        cel = Cells(i, 2)
        If Len(cel) = 7 Then cel = "0" & cel
        If InStr("08300000, 09000000, 13300000, 16000000, 18300000, 00000000", cel) > 0 Then
            Range(Cells(i, 1), Cells(i, 4)).Interior.Color = 2
        End If
    Next i
End Sub

[lapin912]

Сообщение от AleksandrH

Можно поиграться с условиями

Sub f()
    Dim lr As Integer
    Dim i  As Long
    Dim cel As String
    lr = Range("B65553").End(xlUp).Row
    For i = 1 To lr
        cel = Cells(i, 2)
        If InStr(" 8300000, 9000000, 13300000, 16000000, 18300000, 0000000", " " & cel) > 0 Then
            Range(Cells(i, 1), Cells(i, 4)).Interior.Color = 2
        End If
    Next i
End Sub

Уже лучше, но все-равно красит первую строку.

[AleksandrH]

sorki, етот код у меня первую строку не красит.

[lapin912]

Сообщение от AleksandrH

sorki, етот код у меня первую строку не красит.

Просто на форуме не весть документ, в оригинале шапка с объединенными ячейками "A:F".