Создание диаграммы используя сводную таблицу используя VBA

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

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

Создание диаграммы используя сводную таблицу используя VBA (Макросы/Sub)

MamkinXaker

Дата: Вторник, 14.03.2023, 09:37 | Сообщение № 1

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

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

Сообщений: 1

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

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

Доброго времени суток! Подскажите пожалуйста, не понимаю как при нажатии кнопки заставить построить диаграмму используя сводную таблицы. Если просто выделять ячейки то получаются пустые значения, а хотелось бы чтобы при добавлении новых значение она (программа) была к этому готова.

Код создания сводной таблицы
[vba]

Код

Private Sub CommandButton1_Click()
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:="Таблица5").CreatePivotTable TableDestination:="", TableName:="ТаблицаСВ"
With ActiveSheet
.Name = "Сводная База данных зарплаты"
.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
End With
With ActiveSheet.PivotTables("ТаблицаСВ")
.SmallGrid = True
.PivotFields("Заработная плата").Orientation = xlDataField
.PivotFields("Дата выдачи зарплаты").Orientation = xlRowField
.PivotFields("ФИО").Orientation = xlColumnField
End With
End Sub

[/vba]

Код создания диаграммы на лист, откуда берет данные сводная

[vba]

Код

Private Sub CommandButton2_Click()
Dim myChart As Chart
'создаем объект Chart с расположением нового листа по умолчанию
Set myChart = ThisWorkbook.Charts.Add
    With myChart
        'назначаем объекту Chart источник данных
.SetSourceData PivotTable.ТаблицаСВ
        'переносим диаграмму на "Лист1" (отдельный лист диаграммы удаляется)
        .Location xlLocationAsObject, "Лист1"
    End With

End Sub

[/vba]

Ответить

СообщениеДоброго времени суток! Подскажите пожалуйста, не понимаю как при нажатии кнопки заставить построить диаграмму используя сводную таблицы. Если просто выделять ячейки то получаются пустые значения, а хотелось бы чтобы при добавлении новых значение она (программа) была к этому готова.

Код создания сводной таблицы
[vba]

Код