Как сбросить все фильтры в умной таблице? - Microsoft Office Excel

RISagitov · 03.11.2015, 10:39

.. макросом
естественно без перебора циклом и проверок

Watcher_1 · 03.11.2015, 10:43

ShowAllData

RISagitov · 03.11.2015, 10:55

Цитата:

Сообщение от Watcher_1

ShowAllData

спасибо, но первый раз все ок,
второй раз ругается на
ActiveSheet.ShowAllData

"метод завершен некорректно"

пытался восстановить фильтр, в исходное состояние, но ошибка та же

Watcher_1 · 03.11.2015, 10:56

Код:

on error resume next
ActiveSheet.ShowAllData
on error goto 0

RISagitov · 03.11.2015, 11:23

Цитата:

Сообщение от Watcher_1

Код:

on error resume next
ActiveSheet.ShowAllData
on error goto 0

как не реагировать на ошибку я то знаю,
но она почему то возникает,
разве не нужно разобраться

IgorGO · 03.11.2015, 12:15

это вопрос к программистам Майкрософт
почему метод листа .ShowAllData вызывает ошибку, если все данные и так видны?
они могли бы первой строкой проверить видны-ли ВСЕ данные, а потом уже выполнять все остальное

RISagitov · 03.11.2015, 12:53

Цитата:

Сообщение от IgorGO

это вопрос к программистам Майкрософт
почему метод листа .ShowAllData вызывает ошибку, если все данные и так видны?
они могли бы первой строкой проверить видны-ли ВСЕ данные, а потом уже выполнять все остальное

даже если не все, то тоже ошибка

Watcher_1 · 03.11.2015, 13:13

У меня если есть фильтр никаких ошибок нет.
Посмотрите действительно ли активен лист с фильтром...

RISagitov · 03.11.2015, 13:19

Цитата:

Сообщение от Watcher_1

У меня если есть фильтр никаких ошибок нет.
Посмотрите действительно ли активен лист с фильтром...

нет лист правильный,

под умной таблицей я понимаю ту которая создается путем Ctrl-A Ctrl-T

если сделать просто фильтр то работает отлично

Watcher_1 · 03.11.2015, 13:57

Ваш случай такой...

Код:

Private Sub Worksheet_Activate()
    On Error Resume Next
    ActiveSheet.ListObjects(1).AutoFilter.ShowAllData
    On Error GoTo 0
End Sub

03.11.2015, 10:39	#1
RISagitov Форумчанин Регистрация: 19.05.2012 Сообщений: 237	Как сбросить все фильтры в умной таблице? .. макросом естественно без перебора циклом и проверок

03.11.2015, 10:43	#2
Watcher_1 Форумчанин Регистрация: 22.06.2011 Сообщений: 325	ShowAllData Заказать макрос можно на сайте http://excel4you.ru/

03.11.2015, 10:56	#4
Watcher_1 Форумчанин Регистрация: 22.06.2011 Сообщений: 325	Код: `on error resume next ActiveSheet.ShowAllData on error goto 0` Заказать макрос можно на сайте http://excel4you.ru/

03.11.2015, 12:15	#6
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	это вопрос к программистам Майкрософт почему метод листа .ShowAllData вызывает ошибку, если все данные и так видны? они могли бы первой строкой проверить видны-ли ВСЕ данные, а потом уже выполнять все остальное Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

03.11.2015, 13:13	#8
Watcher_1 Форумчанин Регистрация: 22.06.2011 Сообщений: 325	У меня если есть фильтр никаких ошибок нет. Посмотрите действительно ли активен лист с фильтром... Заказать макрос можно на сайте http://excel4you.ru/

03.11.2015, 13:57	#10
Watcher_1 Форумчанин Регистрация: 22.06.2011 Сообщений: 325	Ваш случай такой... Код: `Private Sub Worksheet_Activate() On Error Resume Next ActiveSheet.ListObjects(1).AutoFilter.ShowAllData On Error GoTo 0 End Sub` Заказать макрос можно на сайте http://excel4you.ru/

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Как сделать функцию MessageBox более умной	assch	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	6	06.06.2011 22:50
как отобразить в таблице (на форме) все файлы которые находятся в определённой папке?	mojohead	Помощь студентам	10	05.04.2011 10:48
Как сбросить таймер?	fezilk25	Общие вопросы Delphi	1	16.11.2010 17:54
Как можно обработать все записи в таблице из функции?	Ivan_32	SQL, базы данных	3	08.10.2010 02:11
Как сбросить зависание макроса	valerij	Microsoft Office Excel	3	26.12.2008 07:38