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

@GoldFish · Регистрация: 23.01.2012

Author24 — интернет-сервис помощи студентам

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

Visual Basic

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

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

@gaw · 24.01.2012, 12:30

Visual Basic

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

@GoldFish · 24.01.2012, 14:45 **[ТС]**

Gaw, Спасибо огромное за решение! Разобрался.

@GoldFish 0 / 0 / 0 Регистрация: 23.01.2012 Сообщений: 3
	24.01.2012, 14:45 [ТС]	3
	Gaw, Спасибо огромное за решение! Разобрался. 0