VBA

lxa85 · Отправлено: **00:05, 13-02-2011** | #2

zena, приведи собственные размышления и попытки решения этой задачи.

zena · Отправлено: **09:40, 13-02-2011** | #3

Ну например...

Код:

Sub m_1()
Dim МестоПоиска As String
Dim ЧтоИщем As String
МестоПоиска = "Текстовый"
ЧтоИщем = "Текст"
If InStr(МестоПоиска, ЧтоИщем) > 0 Then
    MsgBox "Входит"
Else
    MsgBox "Не входит"
End If
End Sub

Но мне нужно, чтобы не только проверялись слова "Текстовый-текст", а любые, которые вводит пользователь с клавиатуры...

Delirium · Отправлено: **10:13, 13-02-2011** | #4

Цитата zena:

Но мне нужно, чтобы не только проверялись слова "Текстовый-текст", а любые, которые вводит пользователь с клавиатуры... »

Это VBA для чего? Word, Excel?
Если Excel, то в коде вместо текста пишем Cells(0;0).Value. Если Word - делаем по другому.

zena · Отправлено: **10:56, 13-02-2011** | #5

Это Word.

KnRSU · Конфигурация компьютера

zena,
если точнее то вот так будет работать

Код:

Sub m_1()
Dim МестоПоиска As String
Dim ЧтоИщем As String
Dim i As Long
   МестоПоиска = InputBox("Введите текст в котором будет произведен поиск")
   ЧтоИщем = InputBox("Введите искомый текст")
   i = InStr(1, МестоПоиска, ЧтоИщем, vbTextCompare)
   If i >= 0 Then
       MsgBox "Искомая строка '" & ЧтоИщем & "' ВХОДИТ в указанную строку '" & МестоПоиска & "' и начинается с символа № " & i
   Else
       MsgBox "Не входит"
   End If
End Sub