Сортировка сводных таблиц по итогу в VBA - PullRequest
Новая
       10

Сортировка сводных таблиц по итогу в VBA

0 голосов
/ 03 марта 2020

У меня есть макрос VBA, который извлекает информацию из сводной таблицы, но сначала я хочу отсортировать строки сводной таблицы по итоговой сумме. У меня был макрос, который работал, но сводная таблица не всегда имеет одинаковую длину, и я обнаружил, что она не будет работать, если в макросе содержится больше столбцов, чем в сводной таблице. Но это также не будет работать должным образом, если количество столбцов не является точным. Кто-нибудь знает хороший способ сделать это. 

ActiveSheet.PivotTables("PivotTable1").PivotFields("Material").AutoSort _
        xlDescending, "Sum of QTY", ActiveSheet.PivotTables("PivotTable1"). _
        PivotColumnAxis.PivotLines(60), 1

60 мешает ему сортировать сводную таблицу только с 59 столбцами, но число, подобное 58, в этом месте не будет учитывать все данные.

Мне нужно, чтобы можно было сортировать сводные столбцы различных размеров.

1 Ответ

1 голос
/ 04 марта 2020

Я смог решить эту проблему, просто сняв это ограничение 

ActiveSheet.PivotTables("PivotTable1").PivotFields("Material").AutoSort _
        xlDescending, "Sum of QTY"

Это никак не повлияло на работу макроса, просто его уничтожив.

...