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

Вход

Регистрация

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

 

= Мир MS Excel/Сводная Таблица копир. переменной ячейки (VBA) - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сводная Таблица копир. переменной ячейки (VBA) (Сводные таблицы/Pivot Table)
Сводная Таблица копир. переменной ячейки (VBA)
Aleksander777 Дата: Вторник, 06.07.2021, 08:41 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 39
Репутация: 0 ±
Замечаний: 60% ±

Excel 2016
Вопрос по сводной таблице
При создании сводной таблицы из 2-х и более таблиц необходимо отфильтровать все таблицы по переменной ячейке из сводной таблицы при помощи VBA
У меня получается только отфильтровать скопированное, я не понимаю как прописать переменное значение в VBA коде
Заранее всем спасибо за помощь)
К сообщению приложен файл: __2.xls(85.0 Kb)
 
Ответить
СообщениеВопрос по сводной таблице
При создании сводной таблицы из 2-х и более таблиц необходимо отфильтровать все таблицы по переменной ячейке из сводной таблицы при помощи VBA
У меня получается только отфильтровать скопированное, я не понимаю как прописать переменное значение в VBA коде
Заранее всем спасибо за помощь)

Автор - Aleksander777
Дата добавления - 06.07.2021 в 08:41
R_Dmitry Дата: Вторник, 06.07.2021, 09:54 | Сообщение № 2
Группа: Друзья
Ранг: Новичок
Сообщений: 34
Репутация: 23 ±
Замечаний: 0% ±

2010
[vba]
Код
a = ActiveSheet.PivotTables("Сводная таблица1").RowRange.Value2
'a(1,1)- заголовок 1 столбца
'a(2,1)- первое значение
[/vba]


{Skype : RDG_Dmitry} Если программа тебе понятна,значит она уже устарела
 
Ответить
Сообщение[vba]
Код
a = ActiveSheet.PivotTables("Сводная таблица1").RowRange.Value2
'a(1,1)- заголовок 1 столбца
'a(2,1)- первое значение
[/vba]

Автор - R_Dmitry
Дата добавления - 06.07.2021 в 09:54
Aleksander777 Дата: Вторник, 06.07.2021, 13:21 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 39
Репутация: 0 ±
Замечаний: 60% ±

Excel 2016
помогите в файле примере подправить формулу, что то у меня не получается сделать правильно, я в программирование VBA не силен((


Сообщение отредактировал Serge_007 - Вторник, 06.07.2021, 14:33
 
Ответить
Сообщениепомогите в файле примере подправить формулу, что то у меня не получается сделать правильно, я в программирование VBA не силен((

Автор - Aleksander777
Дата добавления - 06.07.2021 в 13:21
R_Dmitry Дата: Вторник, 06.07.2021, 21:14 | Сообщение № 4
Группа: Друзья
Ранг: Новичок
Сообщений: 34
Репутация: 23 ±
Замечаний: 0% ±

2010
[vba]
Код
Sub FilterTable()
a = Sheets("Сводная Таблица").PivotTables("Сводная таблица1").RowRange.Value2
With Sheets("Таблицы")
.ListObjects("Таблица1").Range.AutoFilter Field:=1, Criteria1:=a(2, 1)
.ListObjects("Таблица2").Range.AutoFilter Field:=1, Criteria1:=a(2, 1)
End With
End Sub
[/vba]


{Skype : RDG_Dmitry} Если программа тебе понятна,значит она уже устарела

Сообщение отредактировал R_Dmitry - Вторник, 06.07.2021, 21:14
 
Ответить
Сообщение[vba]
Код
Sub FilterTable()
a = Sheets("Сводная Таблица").PivotTables("Сводная таблица1").RowRange.Value2
With Sheets("Таблицы")
.ListObjects("Таблица1").Range.AutoFilter Field:=1, Criteria1:=a(2, 1)
.ListObjects("Таблица2").Range.AutoFilter Field:=1, Criteria1:=a(2, 1)
End With
End Sub
[/vba]

Автор - R_Dmitry
Дата добавления - 06.07.2021 в 21:14
Aleksander777 Дата: Среда, 07.07.2021, 12:02 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 39
Репутация: 0 ±
Замечаний: 60% ±

Excel 2016
Огромное спасибо, очень помогли)))


Сообщение отредактировал Serge_007 - Среда, 07.07.2021, 12:21
 
Ответить
СообщениеОгромное спасибо, очень помогли)))

Автор - Aleksander777
Дата добавления - 07.07.2021 в 12:02
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сводная Таблица копир. переменной ячейки (VBA) (Сводные таблицы/Pivot Table)
  • Страница 1 из 1
  • 1
Поиск:

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