Автофильтр для сводных таблиц

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

Автофильтр для сводных таблиц (Макросы/Sub)

argetlam

Дата: Вторник, 28.10.2014, 16:51 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 46

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

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

Excel 2010

Доброе время суток.

Необходимо, чтобы фильтры нескольких таблиц соответствовали значениям определенных ячеек. То есть если поменять значения в ячейках, то и фильтры изменятся.

Нашел код для одного значения, но он мне не подходит:

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False: Application.DisplayAlerts = False
If Target.Address = "$F$1" Then
Dim z, x As String
z = Sheets("Свод").[F1].Value
Sheets("Свод").PivotTables("Сводная таблица3").PivotFields("Дата").CurrentPage = z
End If
Application.ScreenUpdating = True ': Application.DisplayAlerts = True
End Sub

[/vba]

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

Ответить

gling

Дата: Среда, 29.10.2014, 07:29 | Сообщение № 2

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

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

Сообщений: 2663

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

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

2010

Здравствуйте. Придумка в файле, может как то доработаете.

К сообщению приложен файл: 8193614.xlsm (24.9 Kb)

ЯД-41001506838083

Ответить

argetlam

Дата: Среда, 29.10.2014, 13:23 | Сообщение № 3

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

Ранг: Новичок

Сообщений: 46

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

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

Excel 2010

Спасибо! А можно с комментариям по строкам?) не могу разобраться, как работает привязка к ячейкам на листе(

Ответить

argetlam

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

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

Ранг: Новичок

Сообщений: 46

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

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

Excel 2010

Решил вот таким способом:

Идею содрал у RAN с Планеты

Но при использовании кейсов каждый раз приходится сбрасывать фильтры, чтобы они потом корректно проставились. Как этого можно избежать?