Функция Excel VBA InStr — объяснение с примерами

Привет,
Меня попросили скопировать диапазон ячеек с другого листа и вставить его на основной лист. Затем сравнить этот диапазон со всем столбцом, содержащим одно слово или иногда даже предложения. Я составил черновик с использованием функции INSTR, где он сравнил одно слово с тем диапазоном значений, которые я вставил. Но это не сравнение предложений с этим диапазоном, хотя в этом предложении есть слово. Вы можете мне помочь с этим.
вот мой код,

Sub fillcells ()
Dim finalrow As Integer
Sheets («Data»). Диапазон («B2: I10»). ClearContents
Dim srchrng As Range, cel As Range
Dim zipA As Range, srch As Range
Dim i As Integer
Установить zipA = Range («B1: I1»)
Установить srchrng = Range («A2: A10»)
i = 2
Для каждой ячейки In srchrng
j = 2
Для каждого источника в zipA

Если InStr (1, srch.Value, cel.Value, vbBinaryCompare), то
Cells (i, j) = «Да»
j = j + 1
GoTo Mylabel
Else
Cells (i, j) = «no»
j = j + 1
GoTo Mylabel
End If

Mylabel:
Следующий srch
GoTo Mylabel1

Mylabel1 :
i = i + 1
Next cel
End Sub


Это сообщение должно быть очень старым, извините за поздний ответ , но я согласен с Тьяартом. У вас замечательный метод обучения, всегда очень понятный и заставляющий меня попробовать его сам!


Спасибо за добрые слова, Инна … Рад, что вы находите уроки полезными !


Привет, суит, ты можешь мне помочь с этим. Предположим, у нас есть таблица сотрудников на листе 1, и моя задача состоит в том, что если managerId введен в одну ячейку, я должен получить соответствующее имя сотрудника в следующей ячейке, и это должно отображаться на втором листе. Не могли бы вы помочь мне с этим…


CharCount не используется в этом коде, не так ли? Какова цель его использования?


Мне нравится простота. Только настоящие учителя понимают эту концепцию. Объясняя что-то с 123, 1 — проблема, 2 — код, 3 — ответ. Логика проста. Большинство фрагментов начинаются с 2. Спасибо, дружище, ты молодец.


Большое спасибо за это простое и замечательное руководство


Рад, что вам понравилось!

Оцените статью
Botgadget.ru
Добавить комментарий