Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Макросом убрать автофильтр - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макросом убрать автофильтр (Макросы/Sub)
Макросом убрать автофильтр
Viper25 Дата: Среда, 28.12.2016, 16:12 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 93
Репутация: 4 ±
Замечаний: 20% ±

Excel 2007
Есть файл "12_TEMP" с исходными данными на двух листах. (На втором листе применен фильтр.)
Необходимо копировать данные в файл "ALL", проверяя есть ли фильтр.
Если фильтр установлен, убирать его.
Использовал такую конструкцию [vba]
Код
If Worksheets("1").AutoFilterMode = True Then
Workbooks(Month + "_TEMP.xlsx").Worksheets("1").ShowAllData
End If
[/vba]
Увы. Не работает.
Спасибо.
К сообщению приложен файл: 7555455.xlsx (11.0 Kb) · 9798367.xlsm (19.3 Kb)
 
Ответить
СообщениеЕсть файл "12_TEMP" с исходными данными на двух листах. (На втором листе применен фильтр.)
Необходимо копировать данные в файл "ALL", проверяя есть ли фильтр.
Если фильтр установлен, убирать его.
Использовал такую конструкцию [vba]
Код
If Worksheets("1").AutoFilterMode = True Then
Workbooks(Month + "_TEMP.xlsx").Worksheets("1").ShowAllData
End If
[/vba]
Увы. Не работает.
Спасибо.
Автор - Viper25
Дата добавления - 28.12.2016 в 16:12
Pelena Дата: Среда, 28.12.2016, 16:17 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19187
Репутация: 4421 ±
Замечаний: ±

Excel 365 & Mac Excel
Посмотрите в Готовых решениях
Последний пример

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеПосмотрите в Готовых решениях
Последний пример
Автор - Pelena
Дата добавления - 28.12.2016 в 16:17
Viper25 Дата: Среда, 28.12.2016, 17:09 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 93
Репутация: 4 ±
Замечаний: 20% ±

Excel 2007
Pelena, как всегда на высоте.
Спасибо.
 
Ответить
СообщениеPelena, как всегда на высоте.
Спасибо.
Автор - Viper25
Дата добавления - 28.12.2016 в 17:09
Viper25 Дата: Среда, 28.12.2016, 17:12 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 93
Репутация: 4 ±
Замечаний: 20% ±

Excel 2007
[vba]
Код
'отобразить все данные, если применен фильтр (FilterMode)
With ActiveSheet
If .FilterMode Then .ShowAllData
End With
[/vba]
 
Ответить
Сообщение[vba]
Код
'отобразить все данные, если применен фильтр (FilterMode)
With ActiveSheet
If .FilterMode Then .ShowAllData
End With
[/vba]
Автор - Viper25
Дата добавления - 28.12.2016 в 17:12
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макросом убрать автофильтр (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!