ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сохранение - восстановление автофильтра
8 сообщений из 8, страница 1 из 1
Сохранение - восстановление автофильтра
    #36117234
AlexLev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexLev
Участник
Люди добрые! Прошу привести решение:

1/1. Как можно сохранить значения автофильтра, в случае его присутствия.
1/2. Последующего его отключения.
2. Восстановления автофильтра с прежними параметрами.

Большое, большое спасибо!
...
Рейтинг: 0 / 0
30.07.2009, 11:08:44
| Ответить | Цитировать | Написать  
Сохранение - восстановление автофильтра
    #36117985
AlexLev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexLev
Участник
Возможно это слишком трудно...
Я вот нашел на похожую тему:
VBA Excel Автофильтр снять - вернуть, Автофильтр снять - вернуть
только мне там не понятно...
...
Рейтинг: 0 / 0
30.07.2009, 14:08:25
| Ответить | Цитировать | Написать  
Сохранение - восстановление автофильтра
    #36117992
AlexLev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexLev
Участник
Не получилась ссылка, попытка №2:
VBA Excel Автофильтр снять - вернуть, Автофильтр снять - вернуть
...
Рейтинг: 0 / 0
30.07.2009, 14:11:12
| Ответить | Цитировать | Написать  
Сохранение - восстановление автофильтра
    #36118433
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
как я понимаю, автофильтр привязывается к таблице или диапазону, таким образом не совсем всё равно, куда его программно определишь...а команда удаления и добавления автофильтра одна и та же.
Я, например, хотел сделать кнопку, по которой у меня сбрасывался автофильтр. Ничего кроме этого придумать не удалось:
Код: plaintext
1.
2.
3.
Private Sub CommandButton10_Click()
    ThisWorkbook.ActiveSheet.Cells( 9 ,  1 ).CurrentRegion.AutoFilter
    ThisWorkbook.ActiveSheet.Cells( 9 ,  1 ).CurrentRegion.AutoFilter
End Sub
Назначал условия автофильтру я так (это, правда, по двойному щелчку происходит, но принцип, думаю, понятен):
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column =  4  And Target.Row >  9  Then
        'сбросили и назначили заново
        ThisWorkbook.Worksheets( 3 ).Cells( 9 ,  1 ).AutoFilter
        ThisWorkbook.Worksheets( 3 ).Cells( 9 ,  1 ).AutoFilter Field:= 4 , Criteria1:=Target.Value
        Sheets( 3 ).Activate
    End If
End Sub
Резюмируя вышеизложенное, думаю, что логичнее всего прямо над АФ сделать строку, в соответствующие ячейки которой писать условия на АФ. По кнопке ставить его пустым или с условиями.
...
Рейтинг: 0 / 0
30.07.2009, 16:14:53
| Ответить | Цитировать | Написать  
Сохранение - восстановление автофильтра
    #36118536
AlexLev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexLev
Участник
PlanB... логичнее всего прямо над АФ сделать строку, в соответствующие ячейки которой писать условия на АФ...

Благодарю за отклик.
Я что-то не до конца понял идею...
Видете ли, обычно выбор автофильтра часто меняется... Я так понимаю, что можно как-то программно сохранить выбор автофильтра в ячейках?
На тему автофильтра, есть еще наработки в Plex.xla. Возможно там можно подчерпнуть решение?
...
Рейтинг: 0 / 0
30.07.2009, 16:45:08
| Ответить | Цитировать | Написать  
Сохранение - восстановление автофильтра
    #36119477
PlanB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PlanB
Участник
AlexLevЯ так понимаю, что можно как-то программно сохранить выбор автофильтра в ячейках?Ну, а почему нельзя-то? вопрос в том, когдаAlexLevНа тему автофильтра, есть еще наработки в Plex.xla. Возможно там можно подчерпнуть решение?ну и сделайте такую штуку, а потом сохраните строку как значение, тем мамым узнаете предыдущие значения автофильтра.
...
Рейтинг: 0 / 0
31.07.2009, 09:48:40
| Ответить | Цитировать | Написать  
Сохранение - восстановление автофильтра
    #36131716
AlexLev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexLev
Участник
В своей первой ссылке "VBA Excel Автофильтр снять - вернуть...", я не заметил готового примера, и вот сам написал код для сохранения - восстановления автофильтра.
Это реально рабочий код, но если у кого возникнет желание его доработать, оптимизировать - то это приветствуется.
Самому же мне, реально, - требуется одновременно сохранять несколько автофильтров расположенных на разных листах. Но компактного решения не приходит в голову. Может у кого будут идеи?
Сейчас я нахожусь в отпуске, в связи с чем доступ к Интернету ограничен (только когда появляюсь на работе); поэтому, если у кого будут вопросы - вероятно отвечу с задержкой.
...
Рейтинг: 0 / 0
07.08.2009, 10:29:50
| Ответить | Цитировать | Написать  
Сохранение - восстановление автофильтра
    #36131719
AlexLev
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexLev
Участник
2-я попытка загрузить файл...
...
Рейтинг: 0 / 0
07.08.2009, 10:31:33
| Ответить | Цитировать | Написать  
8 сообщений из 8, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Сохранение - восстановление автофильтра
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=188&tid=2179186]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 27ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 237ms
total:  338ms
созд. / загр.: 338ms
x
x
Закрыть


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