Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / макрос-автофильтр по дате / 3 сообщений из 3, страница 1 из 1
26.09.2009, 13:52:52
    #36218796
parsec_net
parsec_net
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
макрос-автофильтр по дате
Здравствуйте коллеги!
Есть база сотрудников на екселе, в ней соответственно столбцы-поля с датами приема, датой окончания трудового договора, и сроком действия мед. книжки. Потребовалась сделать макрос-автофильтр для сортировки таблицы по признаку "у кого на данный день кончился срок действия мед. книжки". Вот, изобразил такое:
Код: plaintext
Selection.AutoFilter Field:= 2 , Criteria1:="<" & CDbl(CDate(CStr(Date))), Operator:=xlAnd
Теперь новая задача, необходимо сделать макрос-автофильтр который бы отбирал сотрудников по признаку "кто отработал более 3 недель", то есть дата приема сотрудника отстоит от сегодняшней более чем на 3 недели.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.09.2009, 15:51:02
    #36218888
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
макрос-автофильтр по дате
1) CDbl(CDate(CStr(Date)))
Непонятно, зачем такое нагромождение и повторы типов, когда можно просто CDbl(Date)
Код: plaintext
Selection.AutoFilter Field:= 2 , Criteria1:="<" & CDbl(Date) -  21 , Operator:=xlAnd


2) 3 недели ведь всегда - 21 день, нет?
Код: plaintext
Selection.AutoFilter Field:= 2 , Criteria1:="<" & CDbl(Date)- 21 , Operator:=xlAnd
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.09.2009, 16:43:40
    #36218917
parsec_net
parsec_net
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
макрос-автофильтр по дате
ну так, я код ведь из поиска курю :) спаисбо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / макрос-автофильтр по дате / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 507ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2179021]:
 0ms
get settings:
 12ms
get forum list:
 17ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 187ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 1ms
others: 217ms
total:  507ms
x
x
Закрыть


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