Фильтр даты через UserForm - помогите исправить код

astradewa Пользователь Сообщений: 126 Регистрация: 22.12.2012	#1 20.01.2012 21:38:34 добрый вечер,люди добрые, два часа читаю форум и мучаюсь,с макросами немного дружу,а в VBA я начинающий, помогите пожалуйста, пример прилагаю Прикрепленные файлы post_299227.xls (54 КБ)

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#2 20.01.2012 21:47:53 А так: ActiveSheet.[b:B].AutoFilter Field:=1, Criteria1:= _ ">=" & CLng(CDate(UserForm1.StartDate.Value)), Operator:=xlAnd, Criteria2:="<=" & CLng(CDate(UserForm1.FinDate.Value)) ? Я сам - дурнее всякого примера! ...

astradewa Пользователь Сообщений: 126 Регистрация: 22.12.2012	#3 20.01.2012 22:08:43 KukLP,Спасибо Вам огромное, все работает:)))))))) вот готовый файл-может кому-то пригодится Прикрепленные файлы post_299244.xls (51 КБ)

Kuzmich Пользователь Сообщений: 8190 Регистрация: 21.12.2012	#4 20.01.2012 22:21:31 с 1 января по 10 января 2012 ActiveSheet.Range("$D$1:$D$23").AutoFilter Field:=1, Criteria1:= _ ">=" & CDbl(#1/1/2012#), Operator:=xlAnd, Criteria2:="<=" & CDbl(#1/10/2012#)

Guest

Гость

20.01.2012 23:06:13

{quote}{login=Kuzmich}{date=20.01.2012 10:21}{thema=Re}{post}с 1 января по 10 января 2012
ActiveSheet.Range("$D$1:$D$23").AutoFilter Field:=1, Criteria1:= _
">=" & CDbl(#1/1/2012#), Operator:=xlAnd, Criteria2:="<=" & CDbl(#1/10/2012#){/post}{/quote}

Kuzmich, спасибо за участие, этот период можно сделать через запись макроса.
Фишка была в том чтобы через календари выбирать любой период, смотри последний пример:))

Kuzmich Пользователь Сообщений: 8190 Регистрация: 21.12.2012	#6 20.01.2012 23:39:51 Какую библиотеку необходимо подключить в Excel 2003, чтобы было отображение календарей?

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#7 21.01.2012 00:11:44 . Прикрепленные файлы post_299281.gif (23.07 КБ) Я сам - дурнее всякого примера! ...

Kuzmich Пользователь Сообщений: 8190 Регистрация: 21.12.2012	#8 21.01.2012 00:53:24 При нажатии на кнопку "Фильтр" Could not load some objects Календари в форме так и не появились, даже после подключения библиотеки

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	#9 21.01.2012 01:01:38 А если попробовать в новом файле добавить на форму календарь? Я сам - дурнее всякого примера! ...

Kuzmich Пользователь Сообщений: 8190 Регистрация: 21.12.2012	#10 21.01.2012 01:24:16 файл: post_299244.xls Вставил в форму два календаря, назвал именами StartDate и FinDate, только после этого заработало

Guest Гость	#11 21.01.2012 01:45:42 Kuzmich, вот картинка где искать,извините что так долго-скрин получился тяжелый Прикрепленные файлы post_299297.png (73.47 КБ)

Kuzmich Пользователь Сообщений: 8190 Регистрация: 21.12.2012	#12 21.01.2012 10:51:58 Когда зашла речь о календаре, то я подразумевал календарь Microsoft Calendar Control 11.0, а Microsoft Date and Time Picker Control 6.0 на моем компьютере нет, поэтому и выскакивает надпись Could not load some objects

Юрий М Модератор Сообщений: 61089 Регистрация: 14.09.2012 Контакты см. в профиле	#13 21.01.2012 13:56:56 А зарегистрировать? В "Приемах" ведь есть об этом: http://www.planetaexcel.ru/tip.php?aid=53

Читают тему