Поиск строки, содержащей заданный текст - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д