Instr, vbtextcompare в vba

Question

sub find_cust_comp(searchrange as range, searchvalue as string)
'this sub is called from shinvoice and fmgetcustomer
dim cell as range
dim c as byte
'searchable is either customer or company range
for each cell in searchrange
    c = instr(1,cell.value, searchvalue, vbtextcompare)
    if c> 0 then
    'add matching items to listbox
    'add the customer name
    fmgetcustomer.lbcustomer.additem shmaster.range("A" & cell.row).value
    'add the company name
    fmgetcustomer.lbcustomer.list(fmgetcustomer.lbcustomer.listcount-1,1) _
    = shmaster.range("B" &cell.row).value
    next if
next cell
end sub

---

shmaster - это лист Excel. fmgetcustomer - это пользовательская форма. lbcustomer - это список.

---

1. Я не уверен, что на самом деле делает функция INSTR? Да, я уже проверил с офисной документацией.
2. range ("A" & cell.row) Я тоже запутался. Я понятия не имею, где это относится.
3. Учебник ссылка

Answer 1

Функция Instr возвращает индекс искомого слова или буквы в тексте;

 if c> 0 then

, что означает, что если текст найден

shmaster.range("A" & cell.row).value

Относится к первой ячейке в пределах диапазона, где найден указанный текст

next if

go до следующей ячейки и выполняйте то же самое, пока все ячейки не будут проверены