Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Проверка присутствует ли значение в столбце - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка присутствует ли значение в столбце (Формулы/Formulas)
Проверка присутствует ли значение в столбце
Sashagor1982 Дата: Пятница, 22.04.2016, 21:07 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 165
Репутация: 12 ±
Замечаний: 20% ±

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(32Kb)
 
Ответить
СообщениеЗдравствуйте уважаемые форумчане. Необходимо узнать присутствует ли определенное значение в столбце.
[vba]
Код
Sub Проверка()
поиск = "222"
If Not Intersect(поиск, Sheets("Лист 1").Columns(1)) Is Nothing Then
    MsgBox "Да"
    Else: MsgBox "Нет"
End If
End Sub
[/vba]
Однако этот код не работает, подскажите где ошибка. Заранее спасибо..

Автор - Sashagor1982
Дата добавления - 22.04.2016 в 21:07
МВТ Дата: Пятница, 22.04.2016, 21:29 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 476
Репутация: 136 ±
Замечаний: 0% ±

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

Автор - МВТ
Дата добавления - 22.04.2016 в 21:29
KuklP Дата: Пятница, 22.04.2016, 21:47 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 2112
Репутация: 453 ±
Замечаний: 0% ±

Или:
[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]


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728


Сообщение отредактировал KuklP - Пятница, 22.04.2016, 21:52
 
Ответить
СообщениеИли:
[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]

Автор - KuklP
Дата добавления - 22.04.2016 в 21:47
Sashagor1982 Дата: Суббота, 23.04.2016, 08:49 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 165
Репутация: 12 ±
Замечаний: 20% ±

Excel 2007
Спасибо
 
Ответить
СообщениеСпасибо

Автор - Sashagor1982
Дата добавления - 23.04.2016 в 08:49
dredder_gun Дата: Вторник, 03.05.2016, 08:05 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 20% ±

Excel 2010
Я бы воспользовался функцией ВПР в вашем случае
 
Ответить
СообщениеЯ бы воспользовался функцией ВПР в вашем случае

Автор - dredder_gun
Дата добавления - 03.05.2016 в 08:05
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проверка присутствует ли значение в столбце (Формулы/Formulas)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!