Программный просмотр критерия автофильтра столбца

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Программный просмотр критерия автофильтра столбца (Макросы/Sub)

varan

Дата: Понедельник, 28.04.2014, 14:30 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Как программно в VBA посмотреть установленный критерий автофильтра столбца

Усердный в службе не должен бояться своего незнания, ибо каждое новое дело он прочтет

Ответить

_Boroda_

Дата: Понедельник, 28.04.2014, 14:40 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16886

Репутация: 6599 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

nn = ActiveSheet.AutoFilter.Filters(2).Criteria1

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

varan

Дата: Понедельник, 28.04.2014, 14:56 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Спасибо. Все работает.
Только возникла одна проблема. Если автофильтр не установлен, то выдает ошибку.
А можно ли посмотреть, устновлен ли автофильтр на столбце вообще?

Усердный в службе не должен бояться своего незнания, ибо каждое новое дело он прочтет

Ответить

_Boroda_

Дата: Понедельник, 28.04.2014, 15:36 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16886

Репутация: 6599 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

[vba]

Код

If ActiveSheet.AutoFilterMode ...

[/vba]

Ответить

varan

Дата: Понедельник, 28.04.2014, 17:08 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Спасибо! Но, чем дальше в лес, тем больше дров!

If ActiveSheet.AutoFilterMode - это проверка установлен ли фильтр вообще
If ActiveSheet.FilterMode - это проверка примен ли фильтр

Возникает такая проблема.
Фильтр применен в столбце А. В столбце Б фильтр не применен.
При проверке критерия фильтра столбца Б возникает ошибка.
А как узнать в каком столбце применен фильтр?

Усердный в службе не должен бояться своего незнания, ибо каждое новое дело он прочтет

Ответить

anvg

Дата: Вторник, 29.04.2014, 05:20 | Сообщение № 6

Группа: Друзья

Ранг: Ветеран

Сообщений: 581

Репутация: 271 ±

Замечаний: 0% ±

2016, 365

Доброе время суток
[vba]

Код

Public Sub AF()
     Dim pFilter As Filter
     With ActiveSheet.AutoFilter
     If .FilterMode Then
         For Each pFilter In .Filters
             Debug.Print pFilter.On
         Next
     End If
     End With
End Sub

[/vba]
Успехов.

Ответить

varan

Дата: Вторник, 29.04.2014, 17:18 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2003

Спасибо! Буду пробовать. yes

Усердный в службе не должен бояться своего незнания, ибо каждое новое дело он прочтет

Ответить

Viper25

Дата: Среда, 28.12.2016, 15:56 | Сообщение № 8

Группа: Пользователи

Ранг: Участник

Сообщений: 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]
Спасибо.