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

Вход

Регистрация

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

 

= Мир MS Excel/Одновременный выбор всех полей сводной талицы и добавление % - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Одновременный выбор всех полей сводной талицы и добавление % (Сводные таблицы/Pivot Table)
Одновременный выбор всех полей сводной талицы и добавление %
WestMan Дата: Воскресенье, 04.12.2016, 19:18 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Всем доброго времени суток !
Недавно столкнулся вот с такой проблемой:
Есть таблица с огромным кол-вом столбцов (350+). Когда из нее делаем сводную таблицу, очень не удобно отщелкивать каждое поле в графу "значение". Есть ли способ с помощью которого можно добавить все поля разом ?

+ Еще маленький вопросик, как в готовой сводно осуществить функцию "% от общей суммы по столбцу" на все столбцы сразу ?

Файл прилагаю (он сделан с помощью 2013 Экселя, но это решение мне нужно строго для 2007)
К сообщению приложен файл: 5622914.xlsx (13.5 Kb)


Сообщение отредактировал WestMan - Воскресенье, 04.12.2016, 19:56
 
Ответить
СообщениеВсем доброго времени суток !
Недавно столкнулся вот с такой проблемой:
Есть таблица с огромным кол-вом столбцов (350+). Когда из нее делаем сводную таблицу, очень не удобно отщелкивать каждое поле в графу "значение". Есть ли способ с помощью которого можно добавить все поля разом ?

+ Еще маленький вопросик, как в готовой сводно осуществить функцию "% от общей суммы по столбцу" на все столбцы сразу ?

Файл прилагаю (он сделан с помощью 2013 Экселя, но это решение мне нужно строго для 2007)

Автор - WestMan
Дата добавления - 04.12.2016 в 19:18
WestMan Дата: Вторник, 06.12.2016, 16:43 | Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Никто не знает ?

Если добавление всех полей в сводную не возможно реализовать, то хотя бы как в готовой сводной таблице осуществить функцию "% от общей суммы по столбцу" на все столбцы сразу ?


Сообщение отредактировал WestMan - Вторник, 06.12.2016, 16:45
 
Ответить
СообщениеНикто не знает ?

Если добавление всех полей в сводную не возможно реализовать, то хотя бы как в готовой сводной таблице осуществить функцию "% от общей суммы по столбцу" на все столбцы сразу ?

Автор - WestMan
Дата добавления - 06.12.2016 в 16:43
SLAVICK Дата: Вторник, 06.12.2016, 16:58 | Сообщение № 3
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
с огромным кол-вом столбцов (350+)

Это заведомо неправильный формат таблицы - см. как преобразовать в нормальный формат редизайнером
В приложении пример как правильно преобразовать таблицу, и сделать правильную сводную - тогда не будет сложностей в вычислениях ;) .
К сообщению приложен файл: 3397203.xlsx (21.6 Kb)


Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
с огромным кол-вом столбцов (350+)

Это заведомо неправильный формат таблицы - см. как преобразовать в нормальный формат редизайнером
В приложении пример как правильно преобразовать таблицу, и сделать правильную сводную - тогда не будет сложностей в вычислениях ;) .

Автор - SLAVICK
Дата добавления - 06.12.2016 в 16:58
WestMan Дата: Вторник, 06.12.2016, 17:14 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Это заведомо неправильный формат таблицы

Да знаю, что это косячный способ, но поменять к сожалению не представляется возможным по ряду причин..

Со столбцами уже смирился, а "% от общей суммы по столбцу" на каждый столбец делать - невыносимо..

P.S. За редизайнером огромное спасибо ! Давно искал нечто на подобии этого ! Но к сожалею в данном случае он мне бесполезен.


Сообщение отредактировал WestMan - Вторник, 06.12.2016, 17:24
 
Ответить
Сообщение
Это заведомо неправильный формат таблицы

Да знаю, что это косячный способ, но поменять к сожалению не представляется возможным по ряду причин..

Со столбцами уже смирился, а "% от общей суммы по столбцу" на каждый столбец делать - невыносимо..

P.S. За редизайнером огромное спасибо ! Давно искал нечто на подобии этого ! Но к сожалею в данном случае он мне бесполезен.

Автор - WestMan
Дата добавления - 06.12.2016 в 17:14
SLAVICK Дата: Вторник, 06.12.2016, 18:02 | Сообщение № 5
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
но поменять к сожалению не представляется возможным по ряду причин..

ну тогда вот так:
[vba]
Код
Sub d()
    Set r = Sheets("Лист1").Range("A2").CurrentRegion
    Set pc = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=r, Version:=6)
    Set pt = pc.CreatePivotTable(TableDestination:="Лист2!R1C1", TableName:="PivotD", DefaultVersion:=6)
    With pt
    .PivotFields("Машины").Orientation = xlRowField
      For i = 2 To r.Columns.Count
        Set pf = .AddDataField(.PivotFields(CStr(r.Cells(1, i))), " " & r.Cells(1, i), xlSum)
        With pf
            .Calculation = xlPercentOfParentRow
            .NumberFormat = "0.00%"
        End With
      Next
    End With
End Sub
[/vba]
Поменял код - заменил файл.
К сообщению приложен файл: 3397203-1-.xlsm (24.2 Kb)


Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Вторник, 06.12.2016, 18:05
 
Ответить
Сообщение
но поменять к сожалению не представляется возможным по ряду причин..

ну тогда вот так:
[vba]
Код
Sub d()
    Set r = Sheets("Лист1").Range("A2").CurrentRegion
    Set pc = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=r, Version:=6)
    Set pt = pc.CreatePivotTable(TableDestination:="Лист2!R1C1", TableName:="PivotD", DefaultVersion:=6)
    With pt
    .PivotFields("Машины").Orientation = xlRowField
      For i = 2 To r.Columns.Count
        Set pf = .AddDataField(.PivotFields(CStr(r.Cells(1, i))), " " & r.Cells(1, i), xlSum)
        With pf
            .Calculation = xlPercentOfParentRow
            .NumberFormat = "0.00%"
        End With
      Next
    End With
End Sub
[/vba]
Поменял код - заменил файл.

Автор - SLAVICK
Дата добавления - 06.12.2016 в 18:02
WestMan Дата: Вторник, 06.12.2016, 19:37 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Поменял код - заменил файл.

А без VBA, штатными функциями это нельзя решить ?
 
Ответить
Сообщение
Поменял код - заменил файл.

А без VBA, штатными функциями это нельзя решить ?

Автор - WestMan
Дата добавления - 06.12.2016 в 19:37
SLAVICK Дата: Среда, 07.12.2016, 09:59 | Сообщение № 7
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
штатными функциями

Можно - еще два варианта:
Формулами
Мастер сводных таблиц и диаграмм.
К сообщению приложен файл: 3397203-1-2-.xlsm (24.6 Kb)


Иногда все проще чем кажется с первого взгляда.
 
Ответить
Сообщение
штатными функциями

Можно - еще два варианта:
Формулами
Мастер сводных таблиц и диаграмм.

Автор - SLAVICK
Дата добавления - 07.12.2016 в 09:59
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Одновременный выбор всех полей сводной талицы и добавление % (Сводные таблицы/Pivot Table)
  • Страница 1 из 1
  • 1
Поиск:

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