Вставить колонку в сводную таблицу взяв название из ячейки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вставить колонку в сводную таблицу взяв название из ячейки (Макросы/Sub)

Elvira66

Дата: Вторник, 27.02.2018, 14:35 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 117

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

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

Excel 2010

Добрый день!

Помогите пожалуйста, не могу понять, что не верно в моем МИКРО коде, задача:вставить колонку в сводную, взяв название из ячейки, файл прилагаю.

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

Ответить

Pelena

Дата: Вторник, 27.02.2018, 14:54 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19174

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.
Так подойдёт?

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

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Elvira66

Дата: Вторник, 27.02.2018, 14:58 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 117

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

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

Excel 2010

А можно как то сделать чтобы новая колонка была между колонкой план и прогноз?

Ответить

Pelena

Дата: Вторник, 27.02.2018, 15:24 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 19174

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

Замечаний: ±

Excel 365 & Mac Excel

[vba]

Код

Sub Для_сводной()
    Dim c As Variant
    c = Range("A13").Value
    With ActiveSheet.PivotTables("Сводная таблица2")
        .AddDataField .PivotFields(c), "Сумма" & c, xlSum
        .DataPivotField.PivotItems("Сумма" & c).Position = .DataPivotField.PivotItems(" Прогноз").Position
    End With
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Elvira66

Дата: Среда, 28.02.2018, 05:59 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 117

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

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

Excel 2010

Спасибо

Ответить

Страница 1 из 1
1