Добавить в код условное выражение

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Добавить в код условное выражение (Макросы/Sub)

l-lisa

Дата: Четверг, 01.04.2021, 12:36 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 312

Репутация: 1 ±

Замечаний: 0% ±

Excel 2010

Добрый день, есть кусок кода в который нужно добавить условие: если есть в переменной OE_text знак вопроса "?" или набор определенных слов например:"dont know", то это считать аномалией. Подскажите пожалуйста, как мне добавить данные условия:

[vba]

Код

arr_OE = Array("Dining OE")
    For row = 2 To LastRow
        dummy = 1
        For Each col_name_OE In arr_OE
            If cols.Exists(LCase(col_name_OE)) Then
                col = cols(LCase(col_name_OE))
                OE_text = arr(row, col - 1)
                If Len(OE_text) > 4 Then
                    dummy = 0
                End If
            Else
                'MsgBox ("There is no column " & col_name_OE)
            End If
        Next col_name_OE
        If dummy Then
            sht.Cells(row, 1).Value = "anomaly"
            For Each col_name_OE In arr_OE
                If cols.Exists(LCase(col_name_OE)) Then
                    col = cols(LCase(col_name_OE))
                    OE_text = arr(row, col - 1)
                    If Len(OE_text) > 1 Then
                        sht.Cells(row, col).Interior.ColorIndex = 37
                    End If
                End If
            Next col_name_OE

        End If
    Next row

[/vba]