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

Вход

Регистрация

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

 

= Мир MS Excel/Фильтр ячеек в разных листах - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Фильтр ячеек в разных листах (Макросы/Sub)
Фильтр ячеек в разных листах
Nikitos79 Дата: Понедельник, 03.10.2016, 14:16 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 46
Репутация: 1 ±
Замечаний: 0% ±

Excel 2013
Привет профи!
У меня в файле много листов и в каждом я делаю фильтр везде разных ячеек по условиям -
Текстовые (или числовые везде по-разному) фильтры, Настраиваемый фильтр, и там указываю показать только те строки какие больше 0.

Естественно данные постоянно меняются и в каждом надо постоянно нажимать ПОВТОР ФИЛЬТРА, где-то да забываю и беру не те данные естественно из-за не ПОВТОРЕНИЯ ФИЛЬТРА.
Возможно ли создать кнопку, при нажатии на которую повтор фильтра производился бы автоматически во всех листах файла.


Сообщение отредактировал Nikitos79 - Понедельник, 03.10.2016, 14:17
 
Ответить
СообщениеПривет профи!
У меня в файле много листов и в каждом я делаю фильтр везде разных ячеек по условиям -
Текстовые (или числовые везде по-разному) фильтры, Настраиваемый фильтр, и там указываю показать только те строки какие больше 0.

Естественно данные постоянно меняются и в каждом надо постоянно нажимать ПОВТОР ФИЛЬТРА, где-то да забываю и беру не те данные естественно из-за не ПОВТОРЕНИЯ ФИЛЬТРА.
Возможно ли создать кнопку, при нажатии на которую повтор фильтра производился бы автоматически во всех листах файла.

Автор - Nikitos79
Дата добавления - 03.10.2016 в 14:16
Karataev Дата: Понедельник, 03.10.2016, 15:42 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 1334
Репутация: 533 ±
Замечаний: 0% ±

Excel
Повторение автофильтров на всех листах. Если на каком-то листе нет автофильтра, будет ошибка.
Если нужно обрабатывать не все листы, а некоторые, то тогда нужно будет скорректировать макрос.
[vba]
Код
Sub Повторить_автофильтры()
    Dim sh As Worksheet
    Application.ScreenUpdating = False
    For Each sh In Worksheets
        sh.AutoFilter.ApplyFilter
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]
 
Ответить
СообщениеПовторение автофильтров на всех листах. Если на каком-то листе нет автофильтра, будет ошибка.
Если нужно обрабатывать не все листы, а некоторые, то тогда нужно будет скорректировать макрос.
[vba]
Код
Sub Повторить_автофильтры()
    Dim sh As Worksheet
    Application.ScreenUpdating = False
    For Each sh In Worksheets
        sh.AutoFilter.ApplyFilter
    Next
    Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Karataev
Дата добавления - 03.10.2016 в 15:42
KuklP Дата: Вторник, 04.10.2016, 07:59 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Если на каком-то листе нет автофильтра, будет ошибка.

[vba]
Код
Sub Повторить_автофильтры()
    Dim sh As Worksheet
    Application.ScreenUpdating = False
    For Each sh In Worksheets
if sh.autofiltermode then sh.AutoFilter.ApplyFilter
    Next
    Application.ScreenUpdating = True
End Sub
[/vba] ;)


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
Сообщение
Если на каком-то листе нет автофильтра, будет ошибка.

[vba]
Код
Sub Повторить_автофильтры()
    Dim sh As Worksheet
    Application.ScreenUpdating = False
    For Each sh In Worksheets
if sh.autofiltermode then sh.AutoFilter.ApplyFilter
    Next
    Application.ScreenUpdating = True
End Sub
[/vba] ;)

Автор - KuklP
Дата добавления - 04.10.2016 в 07:59
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Фильтр ячеек в разных листах (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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