Сортировка выбр. значений макросом из Среза сводной табл.

Дата: Пятница, 22.10.2021, 21:41 | Сообщение № 1

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

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

Сообщений: 8

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

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

Добрый вечер!

Есть Сводная таблица с ДАТОЙ и соответствующими значениями (в столбцах с названием от 1 до 5).
На лист также выведен Срез сводной таблицы.

При выборе ДАТЫ в Срезе не сортируются числовые значения в Сводной таблице по убыванию (автоматическая сортировка в столбцах 1...5 по их числовым значениям не работает).
Вижу, что к Срезу можно дописать Макрос, но не знаю, как выглядит он в моем случае, чтобы уже на этапе фильтра даты через СРЕЗ автоматически происходила сортировка числовых значений в столбцах 1...5.

Прикладываю файл.

В надежде на светлые умы!

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

Дата: Пятница, 22.10.2021, 22:30 | Сообщение № 2

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

Ранг: Участник

Сообщений: 74

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

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

2010

А данные всегда в одной строке? или может быть больше.
По факту вам на событие обновления сводной
[vba]

Код

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)

[/vba]
необходимо изменять порядок столбцов согласно значений
хотя не факт что можно поменять
[vba]

Код

ActiveSheet.PivotTables("PivotTable2").PivotColumnAxis.PivotLines(n).position=Long

[/vba]
Где n элемент коллекции, long - позиция
-------
У меня изменить не получилось.
Можно конечно удалить все столбцы и и в нужном порядке их загнать в сводную.

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

Сообщение отредактировал R_Dmitry - Пятница, 22.10.2021, 22:55

Glen

Дата: Суббота, 23.10.2021, 08:57 | Сообщение № 3

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

Ранг: Участник

Сообщений: 94

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

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

Excel 2010-16

8sn888, так?

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

Пехаль киндриков куравь, пехаль киндриков лузнись.

Дата: Суббота, 23.10.2021, 10:48 | Сообщение № 4

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

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

Сообщений: 8

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

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

Glen, спасибо огромное! Всё работает превосходно!

Радостно на душе!))

Дата: Суббота, 23.10.2021, 10:50 | Сообщение № 5

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

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

Сообщений: 8

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

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

R_Dmitry, спасибо за ответ! Добавлю в макрос обновление сводной таблицы)

Дата: Суббота, 23.10.2021, 14:02 | Сообщение № 6

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

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

Сообщений: 8

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

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

Glen, небольшой вопрос-дополнение: если я расширяю количество столбцов более 5-ти (в примере для удобства было от 1 до 5), то макрос перестаёт сортировать по добавленным столбцам (60 столбцов ...).
Прилагаю файл.

Если есть возможность скорректировать, было бы здорово!

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

Сообщение отредактировал 8sn888 - Суббота, 23.10.2021, 14:04

Дата: Суббота, 23.10.2021, 21:07 | Сообщение № 7

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

Ранг: Участник

Сообщений: 74

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

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

2010

Я бы так лучше сделал

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

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

Дата: Воскресенье, 24.10.2021, 19:17 | Сообщение № 8

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

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

Сообщений: 8

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

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

R_Dmitry, добрый вечер!

Спасибо за такой вариант.
Однако при большем количестве дат (365 дней*17 лет) макрос выдает ошибку времени.

Выкладываю файл (из-за ограничения размера файла до 500 Kb, количество дат все же меньше, чем в исходном файле).

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

Дата: Воскресенье, 24.10.2021, 19:40 | Сообщение № 9

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

Ранг: Участник

Сообщений: 74

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

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

2010

Отвяжите макрос primer от среза

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

Дата: Воскресенье, 24.10.2021, 19:46 | Сообщение № 10

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

Ранг: Участник

Сообщений: 74

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

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

2010

Смотрите

К сообщению приложен файл: ABCkurz.xlsb (398.1 Kb)

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

Дата: Понедельник, 25.10.2021, 13:58 | Сообщение № 11

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

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

Сообщений: 8

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

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

R_Dmitry, добрый день!

Огромное спасибо за подсказки! Всё работает, ура!!!, как часы: с любым количеством дат (взяла за основу Ваш файл)!

Я так поняла, что проблема в моём рабочем файле была в Листе "base", в котором у меня помимо числовых значений и коэффициентов еще и текстовые столбцы.
Вышла из этой ситуации путем разделения Базы (лист "base") на две Базы: отдельно по структуре Вашего файла и отдельно с моими дополнительными текстовыми столбцами.

Спасибо!!!