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

Вход

Регистрация

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

 

= Мир MS Excel/Сортировка выбр. значений макросом из Среза сводной табл. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сортировка выбр. значений макросом из Среза сводной табл. (Макросы/Sub)
Сортировка выбр. значений макросом из Среза сводной табл.
8sn888 Дата: Пятница, 22.10.2021, 21:41 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

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

В надежде на светлые умы!
К сообщению приложен файл: 7562460.xlsm(24.1 Kb)
 
Ответить
СообщениеДобрый вечер!

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

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

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

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

Автор - 8sn888
Дата добавления - 22.10.2021 в 21:41
R_Dmitry Дата: Пятница, 22.10.2021, 22:30 | Сообщение № 2
Группа: Друзья
Ранг: Участник
Сообщений: 70
Репутация: 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
 
Ответить
СообщениеА данные всегда в одной строке? или может быть больше.
По факту вам на событие обновления сводной
[vba]
Код
Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
[/vba]
необходимо изменять порядок столбцов согласно значений
хотя не факт что можно поменять
[vba]
Код
ActiveSheet.PivotTables("PivotTable2").PivotColumnAxis.PivotLines(n).position=Long
[/vba]
Где n элемент коллекции, long - позиция
-------
У меня изменить не получилось.
Можно конечно удалить все столбцы и и в нужном порядке их загнать в сводную.

Автор - R_Dmitry
Дата добавления - 22.10.2021 в 22:30
Glen Дата: Суббота, 23.10.2021, 08:57 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 83
Репутация: 9 ±
Замечаний: 0% ±

Excel 2010
8sn888, так?
К сообщению приложен файл: 9514794.xlsm(29.5 Kb)


Самурай без меча подобен самураю с мечом, но только без меча.
 
Ответить
Сообщение8sn888, так?

Автор - Glen
Дата добавления - 23.10.2021 в 08:57
8sn888 Дата: Суббота, 23.10.2021, 10:48 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

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

Радостно на душе!)) :) :D :)
 
Ответить
СообщениеGlen, спасибо огромное! Всё работает превосходно!

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

Автор - 8sn888
Дата добавления - 23.10.2021 в 10:48
8sn888 Дата: Суббота, 23.10.2021, 10:50 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - 8sn888
Дата добавления - 23.10.2021 в 10:50
8sn888 Дата: Суббота, 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
 
Ответить
СообщениеGlen, небольшой вопрос-дополнение: если я расширяю количество столбцов более 5-ти (в примере для удобства было от 1 до 5), то макрос перестаёт сортировать по добавленным столбцам (60 столбцов ...).
Прилагаю файл.

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

Автор - 8sn888
Дата добавления - 23.10.2021 в 14:02
R_Dmitry Дата: Суббота, 23.10.2021, 21:07 | Сообщение № 7
Группа: Друзья
Ранг: Участник
Сообщений: 70
Репутация: 34 ±
Замечаний: 0% ±

2010
Я бы так лучше сделал
К сообщению приложен файл: 5028359.xlsm(30.7 Kb)


{Skype : RDG_Dmitry} Если программа тебе понятна,значит она уже устарела
 
Ответить
СообщениеЯ бы так лучше сделал

Автор - R_Dmitry
Дата добавления - 23.10.2021 в 21:07
8sn888 Дата: Воскресенье, 24.10.2021, 19:17 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

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

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

Выкладываю файл (из-за ограничения размера файла до 500 Kb, количество дат все же меньше, чем в исходном файле).
К сообщению приложен файл: ABCkurz.xlsm(488.3 Kb)
 
Ответить
СообщениеR_Dmitry, добрый вечер!

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

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

Автор - 8sn888
Дата добавления - 24.10.2021 в 19:17
R_Dmitry Дата: Воскресенье, 24.10.2021, 19:40 | Сообщение № 9
Группа: Друзья
Ранг: Участник
Сообщений: 70
Репутация: 34 ±
Замечаний: 0% ±

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


{Skype : RDG_Dmitry} Если программа тебе понятна,значит она уже устарела
 
Ответить
СообщениеОтвяжите макрос primer от среза

Автор - R_Dmitry
Дата добавления - 24.10.2021 в 19:40
R_Dmitry Дата: Воскресенье, 24.10.2021, 19:46 | Сообщение № 10
Группа: Друзья
Ранг: Участник
Сообщений: 70
Репутация: 34 ±
Замечаний: 0% ±

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


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

Автор - R_Dmitry
Дата добавления - 24.10.2021 в 19:46
8sn888 Дата: Понедельник, 25.10.2021, 13:58 | Сообщение № 11
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

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

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

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

Спасибо!!! :D :D :D
 
Ответить
СообщениеR_Dmitry, добрый день!

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

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

Спасибо!!! :D :D :D

Автор - 8sn888
Дата добавления - 25.10.2021 в 13:58
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сортировка выбр. значений макросом из Среза сводной табл. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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