Поиск строки, содержащей заданный текст - VB

Формулировка задачи:

Задан фрагмент текста (часть слова), или несколько фрагментов текста. В Excel требуется найти строки, в которых содержится любой из заданных фрагментов. Поиск ведётся по определённому столбцу.

                    Листинг программы
                
Sub
  For nRow = 1 To 1000
 
    If            ???             Then
 
      MsgBox "Заданное слово найдено в строке № ", nRow
    End If
  Next l
End Sub

Просьба описать с подробными комментариями. Не разобрался в командах для работы с текстом - нигде не нашёл доходчивой документации. Спасибо заранее.

Решение задачи: «Поиск строки, содержащей заданный текст»

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы