Поиск строки, содержащей заданный текст - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4.167 из 5
Похожие ответы