Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Добавить в код условное выражение - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавить в код условное выражение (Макросы/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]
 
Ответить
СообщениеДобрый день, есть кусок кода в который нужно добавить условие: если есть в переменной 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]

Автор - l-lisa
Дата добавления - 01.04.2021 в 12:36
and_evg Дата: Четверг, 01.04.2021, 14:45 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 452
Репутация: 78 ±
Замечаний: 0% ±

Excel 2007
Добрый,
попробуйте так
[vba]
Код
       If InStr(1, OE_text, "?", vbTextCompare) > 0 Then
            аномалия
        End If
[/vba]
 
Ответить
СообщениеДобрый,
попробуйте так
[vba]
Код
       If InStr(1, OE_text, "?", vbTextCompare) > 0 Then
            аномалия
        End If
[/vba]

Автор - and_evg
Дата добавления - 01.04.2021 в 14:45
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавить в код условное выражение (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!