Я работаю над макросом для автоматического запуска, который создаст новые таблицы с критериями фильтра отчетов. У меня есть 5 критериев фильтрации So Cal, Чикаго, Джорджия, Огайо и Техас. Теперь у меня есть настройка, чтобы скопировать сводную таблицу и просто поместить новое значение фильтра. В приведенном ниже коде я просто меняю «Чикаго» на «Техас» для следующей сводной таблицы. Проблема в том, что не все критерии фильтра всегда будут в данных. Способ настройки - это создание сводной таблицы со всеми данными из таблицы данных. Есть два варианта: я либо не хочу, чтобы он создавал сводную таблицу, если значение не соответствует критериям фильтра, либо просто оставьте пустую таблицу.Создание сводной таблицы в макросе с значением фильтра
Sheets("Sheet3").Name = "So Cal Summary"
Range("B35").Select
Sheets("So Cal Summary").Select
Sheets("So Cal Summary").Copy Before:=Sheets(2)
Sheets("So Cal Summary (2)").Select
Sheets("So Cal Summary (2)").Name = "Chicago Summary"
ActiveSheet.PivotTables("PivotTable5").PivotFields("Pool").CurrentPage = _
"CHICAGO"
Это может быть неправильный способ кодирования. Я использовал запись макроса, чтобы получить этот код. У меня нет фона кодирования, но я могу сделать достаточно с записью макросов, а затем манипулировать.