Фильтрация параметров из таблицы

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

Фильтрация параметров из таблицы (Формулы/Formulas)

dabl2

Дата: Среда, 07.06.2017, 15:29 | Сообщение № 1

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

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

Сообщений: 3

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

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

Excel 2010

Здравствуйте!

Помогите разобраться:
есть три взаимозависимых списка: дата, продукт, цена

нужно сделать отдельных 3 окошка (может с помощью Activex) где можно совершать фильтрацию кликаньем по необходимым данным без использования ручного автофильтра в таблице. Конкретно эту задачу можно реализовать без VBA?

Как-то можно сделать? Спасибо большое!

К сообщению приложен файл: 2745032.xlsx (14.0 Kb)

Ответить

buchlotnik

Дата: Среда, 07.06.2017, 15:32 | Сообщение № 2

Группа: Заблокированные

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

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

Можно отформатировать как таблицу и воткнуть срезы (см. Лист1)

UPD Не посмотрел на версию Excel - в 2010 - сделать сводную и в ней уже воткнуть срезы (см. Лист4)

К сообщению приложен файл: 0052402_.xlsx (26.8 Kb)

Сообщение отредактировал buchlotnik - Среда, 07.06.2017, 15:35

Ответить

dabl2

Дата: Среда, 07.06.2017, 16:45 | Сообщение № 3

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

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

Сообщений: 3

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

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

Excel 2010

buchlotnik, большое Вам спасибо, супер!

а как очистить сразу все фильтры по нажатию кнопки? понимаю, что на нее надо назначить макрос:

[vba]

Код

Sub МакросСнятьФильтры()
ActiveSheet.ShowAllData
End Sub

[/vba]

но завершается он с ошибкой и не очищает фильтры

Сообщение отредактировал dabl2 - Среда, 07.06.2017, 17:34

Ответить

buchlotnik

Дата: Среда, 07.06.2017, 17:05 | Сообщение № 4

Группа: Заблокированные

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

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

Тут фильтры не листа, а таблицы. Я пользуюсь чем-то вроде этого
[vba]

Код

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
On Error Resume Next
For i = 1 To Worksheets.Count
For j = 1 To Worksheets(i).ListObjects.Count
Worksheets(i).ListObjects(j).AutoFilter.ShowAllData
Next j, i
End Sub

[/vba]

Ответить

_Boroda_

Дата: Среда, 07.06.2017, 17:21 | Сообщение № 5

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

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

Сообщений: 16885

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

dabl2, оформите код макроса тегами - в режиме правки поста выделите код и нажмите кнопку #
И прочитайте Правила форума
Ответ пока скрыт

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

Ответить

Фильтрация параметров из таблицы (Формулы/Formulas)

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