Проверить наличие автофильтра в умной таблице

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

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

Glen

Дата: Воскресенье, 26.11.2017, 18:53 | Сообщение № 1

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

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

Сообщений: 94

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

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

Excel 2010-16

Доброго дня.
На листе есть "умная" таблица GROUPP
Подскажите плиз как проверить наличие автофильтра не на листе, а именно в самой таблице GROUPP.
[vba]

Код

ActiveSheet.AutoFilterMode

[/vba]- в таблицу вообще не заглядывает.

Пехаль киндриков куравь, пехаль киндриков лузнись.

Сообщение отредактировал Glen - Воскресенье, 26.11.2017, 18:53

Ответить

bmv98rus

Дата: Воскресенье, 26.11.2017, 19:23 | Сообщение № 2

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

Ранг: Участник клуба

Сообщений: 4149

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

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

Excel 2013/2016

Не заглядывает так как это другой объект. ТУТ может на мысли наведут ответы.

~~Замечательный~~ Временно просто медведь ~~, процентов на 20~~.

Ответить

Nic70y

Дата: Воскресенье, 26.11.2017, 21:04 | Сообщение № 3

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

Ранг: Экселист

Сообщений: 9223

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

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

Excel 2010

[vba]

Код

ActiveSheet.ListObjects("GROUPP").ShowAutoFilterDropDown

[/vba]

ЮMoney 41001841029809

Ответить

krosav4ig

Дата: Воскресенье, 26.11.2017, 21:40 | Сообщение № 4

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

Ранг: Старожил

Сообщений: 2348

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

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

Excel 2007,2010,2013

И так тоже можно [vba]

Код

[GROUPP].ListObject.ShowAutoFilter

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

Glen

Дата: Понедельник, 27.11.2017, 07:54 | Сообщение № 5

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

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

Сообщений: 94

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

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

Excel 2010-16

Спасибо за как всегда оперативные ответы.
К сожалению не разобрался как работает
[vba]

Код

ActiveSheet.ListObjects("GROUPP").ShowAutoFilterDropDown

[/vba] и [vba]

Код

[GROUPP].ListObject.ShowAutoFilter

[/vba] и там и там ошибка.
В моем случае помогло разовое ручное назначение автофильтра и в коде принудительный общий сброс [vba]

Код

ActiveSheet.ListObjects("GROUPP").AutoFilter.ShowAllData

[/vba]
Но вопросик всё же остался - как в принципе узнать есть ли автофильтр в таблице или еще нет.

Пехаль киндриков куравь, пехаль киндриков лузнись.

Ответить

nilem

Дата: Понедельник, 27.11.2017, 08:23 | Сообщение № 6

Группа: Авторы

Ранг: Старожил

Сообщений: 1613

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

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

Excel 2013, 2016

вроде бы так:
[vba]

Код

Sub ttt()
If ActiveSheet.ListObjects(1).ShowAutoFilter Then
MsgBox "Есть AutoFilter"
Else
MsgBox "Нет AutoFilter"
End If
End Sub

[/vba]

Яндекс.Деньги 4100159601573

Ответить

Glen

Дата: Понедельник, 27.11.2017, 08:39 | Сообщение № 7

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

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

Сообщений: 94

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

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

Excel 2010-16

Точно!!
СПАСИБО.

Пехаль киндриков куравь, пехаль киндриков лузнись.

Ответить

Glen

Дата: Понедельник, 27.11.2017, 08:54 | Сообщение № 8

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

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

Сообщений: 94

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

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

Excel 2010-16

Хмм..И так тоже можно
[vba]

Код

Sub ttt()
If [GROUPP].ListObject.ShowAutoFilter Then
MsgBox "Есть AutoFilter"
Else
MsgBox "Нет AutoFilter"
End If
End Sub

[/vba]

Пехаль киндриков куравь, пехаль киндриков лузнись.

Ответить

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

Страница 1 из 1
1