powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Range("A:A").Find поиск по датам - помогите
12 сообщений из 12, страница 1 из 1
Range("A:A").Find поиск по датам - помогите
    #34534450
aqila
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
На первом листе имеется столбец с датами, вычисленным по особым формулам. На втором листе столбец с датами, введенными вручную. На третьем листе ячейки столбца с датами просто ссылаются на соответствующие ячейки дат на втором листе. Так вот, поиск на втором листе по конкретным датам с первого листа нормально проходит таким вот способом:

For i = 1 To n
Set f = Sheets(2).Range("X:X").Find(what:=CDate(Sheets(1).Cells(i,1)), LookIn:=xlFormulas, LookAt:=xlWhole)
...
Next

Но поиск

For i = 1 To n
Set f = Sheets(3).Range("Y:Y").Find(what:=CDate(Sheets(1).Cells(i,1)), LookIn:=xlFormulas, LookAt:=xlWhole)
...
Next

на третьем листе, где ссылки на даты второго листа, уже не проходит. Помогите решить эту задачку.
...
Рейтинг: 0 / 0
Range("A:A").Find поиск по датам - помогите
    #34534453
aqila
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
формат столбцов с датами на всех трех листах одинаков: "дд.мм.гггг"
...
Рейтинг: 0 / 0
Range("A:A").Find поиск по датам - помогите
    #34534991
Фотография gjghjc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Может стоит поэкспериментировать с
CDate(Sheets(1).Cells(i,1).value)
или
CDate(Sheets(1).Cells(i,1).text)???
Кажется так
...
Рейтинг: 0 / 0
Range("A:A").Find поиск по датам - помогите
    #34535261
aqila
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Не помогло.

Даты, набранные руками, ищет. Даты, полученные ссылками из других ячеек, ни в какую не хочет искать. Причем ищет только при LookIn:=xlFormulas, хотя через стандартный интерфейс поиска "Правка/Найти" находит и в формулах и в значениях, и в набранных руками и в ссылках на другие ячейки.
...
Рейтинг: 0 / 0
Range("A:A").Find поиск по датам - помогите
    #34535567
Фотография gjghjc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
LookIn:=xlValues на катит???
...
Рейтинг: 0 / 0
Range("A:A").Find поиск по датам - помогите
    #34535621
aqila
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
не катит, и это самое непонятное. Такое впечатление, словно ячейка, отформатированная под дату, всегда неявно содержит в себе скрытую формулу
...
Рейтинг: 0 / 0
Range("A:A").Find поиск по датам - помогите
    #34535937
Фотография gjghjc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Можешь весь код выложить а не одну строчку???
...
Рейтинг: 0 / 0
Range("A:A").Find поиск по датам - помогите
    #34536059
Программист Дёня
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
gjghjcМожешь весь код выложить а не одну строчку???
может взять да переводить дату в ячейках фукнцией формата в дату и шпарить с полученным значением
...
Рейтинг: 0 / 0
Range("A:A").Find поиск по датам - помогите
    #34536147
Фотография gjghjc
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Дык тут проблема в том что из ячеки белиберда тянется в переменную...
кстати а что дает debug.print этой ячейки????
...
Рейтинг: 0 / 0
Range("A:A").Find поиск по датам - помогите
    #34536654
Программист Дёня
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
gjghjcДык тут проблема в том что из ячеки белиберда тянется в переменную...
кстати а что дает debug.print этой ячейки????


Печать содержания ошибки, которая там возникает. А формат ячейки точно Дата и что-то непонятно, в ячейках точно даты лежат, может ты не то берёшь из них, не к тому свойству обращаешься
...
Рейтинг: 0 / 0
Range("A:A").Find поиск по датам - помогите
    #34537164
lena_####
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
aqila

вместо
Код: plaintext
LookIn:=xlFormulas
поставьте
Код: plaintext
LookIn:=xlValues
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
Range("A:A").Find поиск по датам - помогите
    #35486994
vbhevbh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
а есть еще какие-нибудь решения у задачи?
...
Рейтинг: 0 / 0
12 сообщений из 12, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Range("A:A").Find поиск по датам - помогите
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]