Изменение поискового кода - VBA
Формулировка задачи:
Подскажите пожалуйста, как нижеуказанный отличный код изменить, чтоб слова искал не только с маленькой но и заглавной буквы, без предварительной записи в столбец, т.е. сейчас надо обязательно прописывать четкое название букв, например "очень*" найдет а если в поисковом тексте "Очень*" то уже нет - с поиском в тексте ранее практически не сталкивался пытался на основе find сделать не получилось можно конечно кучу формул написать на каждую комбинацию но это уже неадекват будет
список искомых слов
Листинг программы
- Dim r1 As Range, r2 As Range, f1 As Boolean, f2 As Boolean
- For Each r1 In Sheets(1).Range("C4:C" & Sheets(1).Cells(Rows.Count, "C").End(xlUp).Row)
- f1 = False: f2 = False
- For Each r2 In Sheets(2).Range("A2:A" & Sheets(2).Cells(Rows.Count, "A").End(xlUp).Row)
- If r1 Like r2 Then f1 = True: Exit For
- Next r2
- For Each r2 In Sheets(2).Range("B2:B" & Sheets(2).Cells(Rows.Count, "B").End(xlUp).Row)
- If r1 Like r2 Then f2 = True: Exit For
- Next r2
- If f1 = True And f2 = False Then Sheets(1).Cells(r1.Row, 1) = "1"
- Next r1
| Правильный результат | вывод значения сейчас | текстовый столбец |
| ну очень легкая задача выборки | ||
| очень сложные задачи выборки | ||
| к очень сложная задача невыборки | ||
| 1 | Очень легкая задача выборки | |
| сложная задача выборки | ||
| нелегкая задача выборки | ||
| 1 | 1 | очень надо помочь |
| 1 | 1 | низина стула и прочее |
| 1 | 1 | низовая подложка чегота |
| 1 | 1 | кулон от маленького гнома и что-то еще |
| Столбец1 - с | Столбец2 - кроме |
| очень* | *сложн* зада* |
| *малень* | привет |
| сверх | стадо |
| низ* | стул* |
| *пристол | |
| комод |
Решение задачи: «Изменение поискового кода»
textual
Листинг программы
- option compare text
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
