Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Отмена всех фильтров
 
#1
27.11.2008 16:21:16
Selection.AutoFilter Field:=1  
   Selection.AutoFilter Field:=2  
   Selection.AutoFilter Field:=3  
   Selection.AutoFilter Field:=4  
   Selection.AutoFilter Field:=5  
   Selection.AutoFilter Field:=6 Этот кусок записал макрорекодер  
Возможноли это выполнить проще спомощью языка VBA. Выше стоящий кусок кода долго выполняется. Зарание спасибо всем.
 
 
 
#2
27.11.2008 16:26:15
мой рекордер записал вот это  
ActiveSheet.ShowAllData  
воспользовался меню Данные->Фильтр->Отобразить все
 
 
 
#3
27.11.2008 19:55:29
См. файл
 
 
 
#4
28.11.2008 09:12:00
Спасибо всем!!!
 
 
 
#5
28.11.2008 10:29:43
мне кажется, что правильнее так:  
Sub filter_off()  
   On Error Resume Next  
    ActiveSheet.AutoFilter.Range.AutoFilter  
   If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData  
End Sub  
ибо именно отключает фильтры, а вышеприведенный код включает фильтр, если его не было..
Живи и дай жить..
 
 
 
#6
28.11.2008 16:50:34
Ребята, а зачем макрос для "Отобразить все"? Мы не ищем легких путей? :)) Не проще кнопку вынести на панель инструментов? Вот тут даже написано как это сделать: http://www.planetaexcel.ru/tip.php?aid=45 (даже слишком подробно).    
А если нужно не отобразить все, а вообще удалить автофильтр, то у меня кнопке назначен вот такой микромакрос:    
 
Sub Remove_Autofilter()  
 
   Selection.AutoFilter  
End Sub
 
 
 
#7
28.11.2008 18:45:10
{quote}{login=Электророзетка}{date=28.11.2008 04:50}{thema=}{post}Ребята, а зачем макрос для "Отобразить все"? Мы не ищем легких путей? :)) Не проще кнопку вынести на панель инструментов? Вот тут даже написано как это сделать: http://www.planetaexcel.ru/tip.php?aid=45 (даже слишком подробно).    
А если нужно не отобразить все, а вообще удалить автофильтр, то у меня кнопке назначен вот такой микромакрос:    
 
Sub Remove_Autofilter()  
 
   Selection.AutoFilter  
End Sub{/post}{/quote}  
 
С кнопкой "Отобразить всё" согласен. А вот с макросом, чтобы автофильтр включать-выключать - нет. Для этого можно пункт меню перенести поближе на панель, чтобы быстрее было к нему добираться :)
 
 
 
#8
29.11.2008 09:34:20
{quote}{login=Электророзетка}{date=28.11.2008 04:50}{thema=}{post}Ребята, а зачем макрос для "Отобразить все"? Мы не ищем легких путей? :)) Не проще кнопку вынести на панель инструментов? Вот тут даже написано как это сделать: http://www.planetaexcel.ru/tip.php?aid=45 (даже слишком подробно).    
А если нужно не отобразить все, а вообще удалить автофильтр, то у меня кнопке назначен вот такой микромакрос:    
 
Sub Remove_Autofilter()  
 
   Selection.AutoFilter  
End Sub{/post}{/quote}  
 
макрос - он для использования в других макросах..  :) это ВАм сразу ясно есть автофильтр на листе или нет, а макросы   - они глупые..  
 
 
хотя и к макросу можно кнопку прикрутить - в общем оно универсальнее..
Живи и дай жить..
 
 
 
#9
29.11.2008 09:39:47
а по контексту вопроса - первый ответ самый подходящий, ибо понятно, что человеку надо только сбросить все условия, а не выключить автофильтр, причем кодом, а не ручками..
Живи и дай жить..
 
 
 
Страницы: 1
Читают тему
Наверх