|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
11.01.2018, 10:35 | #1 |
Пользователь
Регистрация: 11.01.2018
Сообщений: 14
|
Текущий квартал
Здравствуйте, подскажите пожалуйста с проблемой.
использую фильтр в макросе такого типа Sub 1() Range("AN31:AN1670").Select Selection.AutoFilter Selection.AutoFilter Field:=1, _ Criteria1:="<=" & CDbl(DateSerial(Year(Date), Month(Date), 14)) End Sub Задача - фильтровать вторым критерием или вместе с этип, <= текущего квартала/следующего квартала . В офис 2010 есть конечно автофильтр по текущему и следующему квартолу но нужно (<= определенного числа текущего квартала/следующего квартала) и (от определенного числа текущего квартала до определенного числа следующего квартала). Зарарнее спасибо |
11.01.2018, 11:31 | #2 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
функции:
Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
11.01.2018, 11:41 | #3 |
Пользователь
Регистрация: 11.01.2018
Сообщений: 14
|
Спасибо за быстрый ответ, я в этой области любитель, подскажите подробнее куда вставлять эти функции, вместо критерия или в критерий?
|
11.01.2018, 11:56 | #4 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
попробовал, как работает... заодно пришлось чуть поправить код))
Код:
приметительно к Вашему примеру кода: Код:
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
11.01.2018, 12:03 | #5 |
Пользователь
Регистрация: 11.01.2018
Сообщений: 14
|
Спасибо огромное, завтра попробую
|
11.01.2018, 14:47 | #6 |
Пользователь
Регистрация: 11.01.2018
Сообщений: 14
|
Скачал зип (несколько раз) он пустой, а критерий поставлял в свой файл Эксель (в автофильтр который писал до этого) пишет что не распознал функцию. Может я что-то не понял. Загрузить пожалуйста зип ещё раз а я попробую на другом пк
|
11.01.2018, 15:02 | #7 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
|
11.01.2018, 21:05 | #8 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
см.вложение
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
12.01.2018, 11:24 | #9 |
Пользователь
Регистрация: 11.01.2018
Сообщений: 14
|
Пробовал, все работает, немного переделал под себя, спасибо огромное, узнал что такое функции))
|
15.01.2018, 06:49 | #10 |
Пользователь
Регистрация: 11.01.2018
Сообщений: 14
|
получилось вот что
макрос фильтр 1 Rows("31:31").AutoFilter Range("AN31:AN1670").AutoFilter Field:=1, _ Criteria1:="<=" & CDbl(DateSerial(Year(Date), Month(Date) + 1, 1)) и макрос фильтр 2 Rows("31:31").AutoFilter Range("AO31:AO1670").AutoFilter Field:=1, _ Criteria1:=">=" & CDbl(DateSerial(Year(Date), Month(Date) + 1, 1)), Operator:=xlAnd, _ Criteria2:="<=" & CDbl(DateSerial(Year(Date), Month(Date) + 3, 0)) а как дополнить этот макрос поиском по нужному слову, так что бы наверно третьим критерием или сразу после этого выполнялся автофильтр по нужному слову (не вводимому а постоянному, уже забитому в кнопке с полным макросом). т.е. нажал кнопку к примеру с названием "трактор" и появились все тракторы (из общего списка техники) в соответствии с вышепреведенным фильтром (1 или 2) по дате. Вставка дополнительного фильтра после "макрос фильтр 1" или "макрос фильтр 2" не помогает, выдает ошибку. Заранее спасибо. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Определить квартал и год | Roleg | Microsoft Office Excel | 4 | 17.05.2012 00:37 |
Текущий юзер DLE | Asterious | WordPress и другие CMS | 0 | 19.02.2012 07:40 |
Текущий url webbrowser... | goofc | Общие вопросы Delphi | 13 | 18.12.2011 13:48 |
Квартал по текущей дате | kuzjaca | Microsoft Office Access | 3 | 18.07.2011 14:36 |
Текущий уровень звука ! | XuMuK | Win Api | 3 | 11.10.2007 10:25 |