Использование полной даты Autofilter в VBA - Microsoft Office Excel

alpeen · 27.05.2009, 15:56

Добрый всем день.
У меня мало опыта работы в VBA. Но поставили передо мной задачу: из большой таблицы выбирать данные за указанную дату и сохранять в отдельном файле.
Данные в ячейке даты хранятся в виде "dd.mm.yyyy hh:mm:ss" (20.05.2009 14:55:16). Пытаюсь отфильтровать Автофильтром - выдает пустую таблицу.
Строка в коде выглядит вот так

Код:

ActiveSheet.Range("C:C").AutoFilter Field:=1, Criteria1:="=20.05.2009", Operator:=xlAnd

Если пользоваться динамическими критериями, то все работает.
Например:

Код:

ActiveSheet.Range("C:C").AutoFilter Field:=1, Criteria1:= _
        xlFilterAllDatesInPeriodMay, Operator:=xlFilterDynamic

Понимаю, что ввожу параметр критерия фильтра не правильно. Подскажите, как будет верно?

EducatedFool · 27.05.2009, 16:05

Как-то сталкивался с таким...
http://www.programmersforum.ru/showp...99&postcount=8

В качестве значения для параметра Criteria1 надо задавать дату в числовом формате, а не в текстовом.
Например, вместо даты 27.05.2009 указываем число 39960

Может, есть способ задать дату в нормальном виде, но у меня не получилось.

alpeen · 27.05.2009, 16:18

Огромное спасибо. Именно то, что и требовалось. Все ходил кругами а до преобразования даты в CDbl не догадался. Я так понимаю, что в числе после запятой идет время, а в целой части - дни.
Еще раз спасибо.

27.05.2009, 15:56	#1
alpeen Новичок Джуниор Регистрация: 27.05.2009 Сообщений: 2	Использование полной даты Autofilter в VBA Добрый всем день. У меня мало опыта работы в VBA. Но поставили передо мной задачу: из большой таблицы выбирать данные за указанную дату и сохранять в отдельном файле. Данные в ячейке даты хранятся в виде "dd.mm.yyyy hh:mm:ss" (20.05.2009 14:55:16). Пытаюсь отфильтровать Автофильтром - выдает пустую таблицу. Строка в коде выглядит вот так Код: `ActiveSheet.Range("C:C").AutoFilter Field:=1, Criteria1:="=20.05.2009", Operator:=xlAnd` Если пользоваться динамическими критериями, то все работает. Например: Код: `ActiveSheet.Range("C:C").AutoFilter Field:=1, Criteria1:= _ xlFilterAllDatesInPeriodMay, Operator:=xlFilterDynamic` Понимаю, что ввожу параметр критерия фильтра не правильно. Подскажите, как будет верно?

27.05.2009, 16:05	#2
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	Как-то сталкивался с таким... http://www.programmersforum.ru/showp...99&postcount=8 В качестве значения для параметра Criteria1 надо задавать дату в числовом формате, а не в текстовом. Например, вместо даты 27.05.2009 указываем число 39960 Может, есть способ задать дату в нормальном виде, но у меня не получилось. __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
VBA Использование Shapes в Excel диаграммах	RomVS	Microsoft Office Excel	0	13.02.2009 12:20
использование SQL запросов в коде VBA	b00s	Microsoft Office Access	3	26.04.2008 13:40
Selection.AutoFilter	ZORRO2005	Microsoft Office Excel	4	04.02.2008 12:11
Даты не даты	Nasya	Microsoft Office Excel	3	22.08.2007 20:18

27.05.2009, 16:18	#3
alpeen Новичок Джуниор Регистрация: 27.05.2009 Сообщений: 2	Огромное спасибо. Именно то, что и требовалось. Все ходил кругами а до преобразования даты в CDbl не догадался. Я так понимаю, что в числе после запятой идет время, а в целой части - дни. Еще раз спасибо.