powered by simpleCommunicator - 2.0.38     © 2025 Programmizd 02
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Фильтры
2 сообщений из 2, страница 1 из 1
Фильтры
    #39584224
Здравствуйте уважаемые форумчане, есть фильтр (макрос эксель), такого вида

макрос фильтр 1


Код: vbnet
1.
2.
3.
Rows("31:31").AutoFilter
Range("AN31:AN1670").AutoFilter Field:=1, _
Criteria1:="<=" & CDbl(DateSerial(Year(Date), Month(Date) + 1, 1))


и

макрос фильтр 2

Код: vbnet
1.
2.
3.
4.
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))



Модератор: Учимся использовать тэги оформления кода - FAQ

а как дополнить этот макрос поиском по нужному слову, так что бы сразу после этого выполнялся автофильтр по нужному слову (не вводимому а постоянному (в другойм столбце), уже забитому в кнопке с полным макросом). т.е. нажал кнопку к примеру с названием "трактор" и появились все тракторы (из общего списка техники) в соответствии с вышепреведенным фильтром (1 или 2) по дате.

Вставка дополнительного фильтра после "макрос фильтр 1" или "макрос фильтр 2" не помогает, выдает ошибку. А если по новой запускаешь автофильтр то сбрасывается старый. Т.е. эти фильтры не запускаются со стандартными автофильтрами.
Заранее спасибо за ответ

Заранее спасибо.
...
Рейтинг: 0 / 0
Фильтры
    #39584470
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Анатолий8383,
Вставка дополнительного фильтра после "макрос фильтр 1" или "макрос фильтр 2" не помогает, выдает ошибку
Значит неправильно вставляете. Запишите действие макрорекордером, посмотрите, что получается.

А если по новой запускаешь автофильтр то сбрасывается старый
Это из-за первой строки - .AutoFilter без параметров.
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Фильтры
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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