Войти

Показать полную графическую версию : Работа со строками


zena
12-02-2011, 19:41
Определить входит ли введённое слово в состав другого введённого слова.
Если нет, то вывести соответствующее сообщение через функцию MsgBox.

lxa85
13-02-2011, 00:05
zena, приведи собственные размышления и попытки решения этой задачи.

zena
13-02-2011, 09:40
Ну например...
Sub m_1()
Dim МестоПоиска As String
Dim ЧтоИщем As String
МестоПоиска = "Текстовый"
ЧтоИщем = "Текст"
If InStr(МестоПоиска, ЧтоИщем) > 0 Then
MsgBox "Входит"
Else
MsgBox "Не входит"
End If
End Sub
Но мне нужно, чтобы не только проверялись слова "Текстовый-текст", а любые, которые вводит пользователь с клавиатуры...

Delirium
13-02-2011, 10:13
Но мне нужно, чтобы не только проверялись слова "Текстовый-текст", а любые, которые вводит пользователь с клавиатуры... »
Это VBA для чего? Word, Excel?
Если Excel, то в коде вместо текста пишем Cells(0;0).Value. Если Word - делаем по другому.

zena
13-02-2011, 10:56
Это Word.

KnRSU
21-02-2011, 09:03
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




© OSzone.net 2001-2012