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

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
18.05.2007, 09:08
    #34534453
aqila
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Range("A:A").Find поиск по датам - помогите
формат столбцов с датами на всех трех листах одинаков: "дд.мм.гггг"
...
Рейтинг: 0 / 0
18.05.2007, 11:40
    #34534991
gjghjc
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Range("A:A").Find поиск по датам - помогите
Может стоит поэкспериментировать с
CDate(Sheets(1).Cells(i,1).value)
или
CDate(Sheets(1).Cells(i,1).text)???
Кажется так
...
Рейтинг: 0 / 0
18.05.2007, 12:40
    #34535261
aqila
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Range("A:A").Find поиск по датам - помогите
Не помогло.

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


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

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


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