Как проверить наличие определённого слова в столбце?

@Sasanik · Регистрация: 12.12.2015

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

Здравствуйте!

Уважаемые форумчане, Есть столбец ячеек в которых находятся слова, например "ликвид" или "порох", в произвольном порядке, а так-же может быть единственное слово или не быть вообще. Мне нужно проверить наличие в столбце слова "ликвид" и выполнить действо, например MsgBox "Есть ликвид". При проверке вхождения слова "порох" - MsgBox "Есть порох".

~~Shersh~~ · 10.08.2016, 19:14

Visual Basic

1	If Not [a:a].Find("ликвид") Is Nothing Then MsgBox "Есть ликвид"

?

@Svsh2015 · 10.08.2016, 19:21

добрый вечер,еще вариант,кнопка test

Visual Basic

Sub test()
    Dim r1 As Range, r2 As Range
    Set r1 = Columns("A:A").Find("порох")
    Set r2 = Columns("A:A").Find("ликвид")
    If Not r1 Is Nothing Then MsgBox "Есть порох"
    If Not r2 Is Nothing Then MsgBox "Есть ликвид"
End Sub

@Sasanik 3 / 3 / 0 Регистрация: 12.12.2015 Сообщений: 174
		1
	Как проверить наличие определённого слова в столбце? 10.08.2016, 18:53. Показов 2430. Ответов 2 Метки нет (Все метки) Здравствуйте! Уважаемые форумчане, Есть столбец ячеек в которых находятся слова, например "ликвид" или "порох", в произвольном порядке, а так-же может быть единственное слово или не быть вообще. Мне нужно проверить наличие в столбце слова "ликвид" и выполнить действо, например MsgBox "Есть ликвид". При проверке вхождения слова "порох" - MsgBox "Есть порох". 0

	10.08.2016, 19:21

Как проверить наличие определённого слова в столбце?

Решение