Всем доброго дня!
Ячейка может содержать разные ключевые слова (не фразы). В зависимости от этого данные переносятся в ту или иную ячейку другой таблицы.
Возможно ли при помощи функции Find (или другого способа) искать несколько ключевых слов одновременно (в фармате ИЛИ).
В первом случае происходит поиск в ячейке слова "списание", нужно чтобы было "списание или выдача или наличные".
Если в ячейке встречается одно из этих слов, то происходит:
Код полностью:
Попутный вопрос.
Select case работает "сверху вниз". При выполнении первого "если" остальные пропускаются. При невыполнении первого "если" программа переходит ко второму "если". У меня же выдает ошибку: В ячейке отсутствует ключевое слово "снятие", а VBA не дает "перепрыгнуть" первый первый Case "keyWordCash" и перейти ко второму "keyWordTopOn". Как с этим бороться? Скрины и файл с кодом прилагаю. Спасибо!
Ячейка может содержать разные ключевые слова (не фразы). В зависимости от этого данные переносятся в ту или иную ячейку другой таблицы.
Возможно ли при помощи функции Find (или другого способа) искать несколько ключевых слов одновременно (в фармате ИЛИ).
В первом случае происходит поиск в ячейке слова "списание", нужно чтобы было "списание или выдача или наличные".
Код |
---|
Set keyWord = Range(Cells(y, 3), Cells(x, 3)) keyWordCash = keyWord.Find("списание", , xlValues, xlPart).Value |
Если в ячейке встречается одно из этих слов, то происходит:
Код |
---|
Select Case keyWord Case Is = keyWordCash Range("L2") = Range("F12")] |
Код полностью:
Код |
---|
Dim keyWord As Range Dim keyWordCash As Variant ' ключевые слова "наличные" Dim keyWordTopOn As Range 'ключевые слова "пополнение счета", приходная операция x = 12 y = 12 Set keyWord = Range(Cells(y, 3), Cells(x, 3)) keyWordCash = keyWord.Find("списание", , xlValues, xlPart).Value Set keyWordTopOn = keyWord.Find("пополнение", , xlValues, xlPart) ' MsgBox keyWordCash Select Case keyWord 'снятие наличных Case Is = keyWordCash Range("L2") = Range("F12") Case Is = keyWordTopOn Range("K2") = Range("F12") End Select |
Попутный вопрос.
Select case работает "сверху вниз". При выполнении первого "если" остальные пропускаются. При невыполнении первого "если" программа переходит ко второму "если". У меня же выдает ошибку: В ячейке отсутствует ключевое слово "снятие", а VBA не дает "перепрыгнуть" первый первый Case "keyWordCash" и перейти ко второму "keyWordTopOn". Как с этим бороться? Скрины и файл с кодом прилагаю. Спасибо!