Find не находит значение / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Find не находит значение

15 сообщений из 15, страница 1 из 1

Find не находит значение

#39967750

berzau

Гость

Добрый день!

Уважаемые форумчане, помогите понять, почему find не находит значение.

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.

Sub checkcode()
Set s_R = Worksheets("Лист1")

s_R.Cells(3, 2) = 44409
s_R.Cells(4, 2) = 45409

offer_range_start = 3
offer_range_end = 4

'находим минимальное значение в диапазоне
settledatemin = Application.WorksheetFunction.Min(Range(s_R.Cells(offer_range_start, 2), s_R.Cells(offer_range_end, 2)))
'находим максимальное занчение в диапазоне
settledatemax = Application.WorksheetFunction.Max(Range(s_R.Cells(offer_range_start, 2), s_R.Cells(offer_range_end, 2)))

With s_R.Range(s_R.Cells(offer_range_start, 2), s_R.Cells(offer_range_end, 2))
Set rrange = .Find(what:=settledatemin, LookIn:=xlValues, lookat:=xlWhole)
If Not rrange Is Nothing Then

stmt = settledatemin

End If
End With

End Sub

...

Рейтинг:

0 / 0

10.06.2020, 11:08

| Ответить | Цитировать | Написать

Find не находит значение

#39967756

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

у меня находит. что я делаю не так?

...

Рейтинг:

0 / 0

10.06.2020, 11:14

| Ответить | Цитировать | Написать

Find не находит значение

#39967762

berzau

Гость

Shocker.Pro, а у меня почему-то не работает, причем есть две идентичные книги (созданы через копию), в одной аналогичный код работает, а в другой нет.
Создал новый файл (во вложении) там не работает, создал еще один новый файл и работает.

...

Рейтинг:

0 / 0

10.06.2020, 11:25

| Ответить | Цитировать | Написать

Find не находит значение

#39967764

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

в приложенном файле работает

...

Рейтинг:

0 / 0

10.06.2020, 11:28

| Ответить | Цитировать | Написать

Find не находит значение

#39967768

berzau

Гость

Shocker.Pro,

В этом и вопрос, почему может не работать? Как так?
Я скачал приложенный файл и find ничего не находит.

...

Рейтинг:

0 / 0

10.06.2020, 11:32

| Ответить | Цитировать | Написать

Find не находит значение

#39967770

Shocker.Pro

Участник

Откуда: ->|<- :адуктО

Сообщения: 23 134

Рейтинг: 0 / 0

попробуй сбросить параметры поиска

https://stackoverflow.com/questions/243368/reset-excel-find-and-replace-dialog-box-parameters

...

Рейтинг:

0 / 0

10.06.2020, 11:33

| Ответить | Цитировать | Написать

Find не находит значение

#39967781

berzau

Гость

Shocker.Pro, к сожалению, не помогло

...

Рейтинг:

0 / 0

10.06.2020, 11:45

| Ответить | Цитировать | Написать

Find не находит значение

#39968138

The_Prist

Участник

Откуда: www.excel-vba.ru

Сообщения: 2 025

Рейтинг: 0 / 0

berzau,

Код: vbnet

Set rrange = .Find(what:=CDate(settledatemin), LookIn:=xlValues, lookat:=xlWhole)

...

Рейтинг:

0 / 0

11.06.2020, 10:32

| Ответить | Цитировать | Написать

Find не находит значение

#39968178

berzau

Гость

The_Prist, нет, все равно не сработал.

Проблема почему-то в Application.WorksheetFunction, так как если записать результат в ячейку и уже его присвоить переменной, то всё отлично срабатывает.

Код: vbnet

1.
2.
3.

settledatemin = Application.WorksheetFunction.Min(s_R.Range(s_R.Cells(offer_range_start, 2), s_R.Cells(offer_range_end, 2)))
Cells(1, 1) = settledatemin
settledatemin = Cells(1, 1)

...

Рейтинг:

0 / 0

11.06.2020, 12:12

| Ответить | Цитировать | Написать

Find не находит значение

#39968216

berzau

Гость

В итоге:
У кого-то код срабатывает в первоначальном варианте.

У кого-то срабатывает по варианту The_Prist

Код: vbnet

Set rrange = .Find(what:=CDate(settledatemin), LookIn:=xlValues, lookat:=xlWhole)

У кого-то срабатывает вариант с изменением формата диапазона (у меня сработал именно он):

Код: vbnet

s_R.Range(s_R.Cells(offer_range_start, 2), s_R.Cells(offer_range_end, 2)).NumberFormat = "General"

...

Рейтинг:

0 / 0

11.06.2020, 13:13

| Ответить | Цитировать | Написать

Find не находит значение

#39968234

booby

Участник

Сообщения: 2 667

Рейтинг: 0 / 0

berzau,
проблема, вероятно, где-то между установкой локальных форматов и фактическими значениями в клетках.

Если у вас там на самом деле даты, то варианта в целом, два.
Если с find - то значение даты нужно привести к строке в фактическом формате, установленном для столбцов дат.

Либо ваять свою функцию поиска в столбце значения даты на массивах.
Тут тоже два варианта - при чтении value вы можете сравнивать прямо с датой, при чтении valu2 - дату нужно привести к double

Можно попробовать приведение даты к double при использовании find
Я не пробовал сам, это может и не работать...

...

Рейтинг:

0 / 0

11.06.2020, 13:57

| Ответить | Цитировать | Написать

Find не находит значение

#39968294

ldfanate

Участник

Сообщения: 269

Рейтинг: 0 / 0

у Find есть подобный прикол (емнип с 2002го офиса стал иногда не находить первое совпадение).
А почему не используете в коде функцию рабочего листа (ну тотже ВПР например), если поиск всего одного совпадения?

...

Рейтинг:

0 / 0

11.06.2020, 15:33

| Ответить | Цитировать | Написать

Find не находит значение

#39968418

berzau

Гость

booby, так получилось, что теперь я не могу проверить ваше предположение, так как код по молчанию снова работает в любой книге.

boobyЕсли у вас там на самом деле даты, то варианта в целом, два.
Если с find - то значение даты нужно привести к строке в фактическом формате, установленном для столбцов дат.

я не очень понимаю, как это работает, так как в макросе не прописывался изначально формат.
При запуске в новой книге нет никаких форматов, значения проставляемые макросом имеют по умолчанию же общий формат, искомое значение берется из того списка с общим форматом.

...

Рейтинг:

0 / 0

11.06.2020, 22:36

| Ответить | Цитировать | Написать

Find не находит значение

#39968425

berzau

Гость

ldfanate, этот кусок макроса в задаче отвечает за поиск минимальной и максимальной даты из теоретически неограниченного списка и затем, получив адрес ячейки с минимальной датой, проверяет другие ячейки строки на предмет соответствия ряду критериев. В зависимости от результата берется строка с минимальным или максимальным значение.
Не очень представляю, как ВПР здесь может сработать.

...

Рейтинг:

0 / 0

11.06.2020, 22:50

| Ответить | Цитировать | Написать

Find не находит значение

#39969198

ldfanate

Участник

Сообщения: 269

Рейтинг: 0 / 0

авторэтот кусок макроса в задаче отвечает за поиск минимальной и максимальной даты из теоретически неограниченного списка
find вообщето ищет точное совпадение значения в ячейке. То же самое делают функции рабочего листа ВПР и ПОИСКПОЗ - в зависимости от чего вам надо на выходе: наличие значения, или его местоположение в диапазоне ячеек. Т.е. вполне можно заменить вызов find на вызов worksheetfunction.

К тому же, динамически вычисляемый диапазон ячеек наверное тоже можно рассчитать используя функции рабочего листа МИН/МАКС, ПОИСКПОЗ и СМЕЩ.

...

Рейтинг:

0 / 0

15.06.2020, 09:00

| Ответить | Цитировать | Написать

15 сообщений из 15, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Find не находит значение

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&msg=39968425&tid=2154798]:	0ms
get settings:	10ms
get forum list:	13ms
check forum access:	3ms
check topic access:	3ms
track hit:	54ms
get topic data:	11ms
get forum data:	3ms
get page messages:	52ms
get tp. blocked users:	1ms
others:	281ms

total:	431ms