Проверка присутствует ли значение в столбце

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Проверка присутствует ли значение в столбце (Формулы/Formulas)

Sashagor1982

Дата: Пятница, 22.04.2016, 21:07 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 288

Репутация: -6 ±

Замечаний: 0% ±

Excel 2007

Здравствуйте уважаемые форумчане. Необходимо узнать присутствует ли определенное значение в столбце.
[vba]

Код

Sub Проверка()
поиск = "222"
If Not Intersect(поиск, Sheets("Лист 1").Columns(1)) Is Nothing Then
MsgBox "Да"
Else: MsgBox "Нет"
End If
End Sub

[/vba]
Однако этот код не работает, подскажите где ошибка. Заранее спасибо..

К сообщению приложен файл: 555.xls (32.5 Kb)

Ответить

МВТ

Дата: Пятница, 22.04.2016, 21:29 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 476

Репутация: 137 ±

Замечаний: 0% ±

Excel 2007

А чем Вас ПОИСКПОЗ не устраивает? По существу: Intersect возвращает диапазон, образованный пересечение заданных в качестве аргументов диапазонов, а не ищет значение. Аналог ПОИСКПОЗ для VBA WorksheetFunction.Match, только не забывайте использовать On Error

Ответить

KuklP

Дата: Пятница, 22.04.2016, 21:47 | Сообщение № 3

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

Репутация: 486 ±

Замечаний: 0% ±

2003-2010

Или:
[vba]

Код

Sub Проверка()
If Columns(1).Find("222") Is Nothing Then MsgBox "Нет" Else MsgBox "Да"
End Sub

Sub Проверка1()
MsgBox Not IsError(Application.Match("222", Columns(1), 0))
End Sub

[/vba]