Поиск строки, содержащей заданный текст - VB
Формулировка задачи:
Задан фрагмент текста (часть слова), или несколько фрагментов текста. В Excel требуется найти строки, в которых содержится любой из заданных фрагментов. Поиск ведётся по определённому столбцу.
Просьба описать с подробными комментариями. Не разобрался в командах для работы с текстом - нигде не нашёл доходчивой документации. Спасибо заранее.
Решение задачи: «Поиск строки, содержащей заданный текст»
textual
Листинг программы
Private Sub CommandButton1_Click()
Dim r%, c%
a = Array("as", "123", "slovo")
r = 10
c = 3
MsgBox p(a, r, c)
End Sub
Function p(a, r%, c%) As String
p = ""
For nRow = 1 To r
For nCol = 1 To c
For k = LBound(a) To UBound(a)
If InStr(1, CStr(Cells(nRow, nCol)), a(k)) > 0 Then
p = p & nRow & " "
GoTo r
End If
Next k
Next nCol
r:
Next nRow
End Function