assei Опубликовано 11 мая, 2017 Жалоба Поделиться Опубликовано 11 мая, 2017 (изменено) Доброго всем вечера! подскажите что не так с кодом?не ищет данные в из столбца "А". Private Sub Command3_Click() 'поиск Dim q As String q = Text1(0).Text If q = "" Then MsgBox ("Уточните критерии поиска!"), vbCritical, ("СООБЩЕНИЕ"): Exit Sub On Error Resume Next Xl.Worksheets("BD").Columns("A:A").Find(What:=q, LookIn:=xlValues, LookAt:=xlPart, LookAt:=xlWhole).Activate If Err Then MsgBox "В списке (" & Text1(0) & ") строки нет!, Попробуйте изменить критерии поиска или его место!", 64, "СООБЩЕНИЕ" Else MsgBox "Искомые данные (" & Text1(0) & ") найдены!", vbInformation, "СООБЩЕНИЕ" End If End Sub Изменено 11 мая, 2017 пользователем assei изменения пояснения к теме Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
NatM Опубликовано 11 мая, 2017 Жалоба Поделиться Опубликовано 11 мая, 2017 В строке Xl.Worksheets("BD").Columns("A:A").Find(What:=q, LookIn:=xlValues, LookAt:=xlPart, LookAt:=xlWhole).Activate уберите лишний , LookAt:=xlWhole 1 Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
assei Опубликовано 15 мая, 2017 Автор Жалоба Поделиться Опубликовано 15 мая, 2017 В 11.05.2017 в 19:32, NatM сказал: В строке Xl.Worksheets("BD").Columns("A:A").Find(What:=q, LookIn:=xlValues, LookAt:=xlPart, LookAt:=xlWhole).Activate уберите лишний , LookAt:=xlWhole удаление ни дало ни каких изменений Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
assei Опубликовано 15 мая, 2017 Автор Жалоба Поделиться Опубликовано 15 мая, 2017 ни чего не получилось я пример выложил посмотрите пожалуйста! Новая папка.rar Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
NatM Опубликовано 15 мая, 2017 Жалоба Поделиться Опубликовано 15 мая, 2017 (изменено) Я могу работать только с макросами... В макросе работает. Единственно, я ссылку на книгу XL убирала, и он работал в текущей книге... Т.е. единственное отличие с вашим кодом в этом ... UPD. Есть еще одно различие: значение q я задавала прямо в коде. Попробуйте тоже задать жестко Изменено 15 мая, 2017 пользователем NatM Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
assei Опубликовано 15 мая, 2017 Автор Жалоба Поделиться Опубликовано 15 мая, 2017 Вопрос решен, если понадобится код говорите. Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
NatM Опубликовано 15 мая, 2017 Жалоба Поделиться Опубликовано 15 мая, 2017 Код не нужен, но просто любопытно: в чем было дело? Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
assei Опубликовано 15 мая, 2017 Автор Жалоба Поделиться Опубликовано 15 мая, 2017 http://www.cyberforum.ru/visual-basic/thread1975293.html ЗДЕСЬ МНЕ ОТВЕТИЛИ Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
NatM Опубликовано 15 мая, 2017 Жалоба Поделиться Опубликовано 15 мая, 2017 Т. е. дело ещё и в q.. . Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.