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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Создание диаграммы используя сводную таблицу используя VBA
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]
Код

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]

Автор - MamkinXaker
Дата добавления - 14.03.2023 в 09:37
NikitaDvorets Дата: Вторник, 14.03.2023, 14:41 | Сообщение № 2
Группа: Авторы
Ранг: Ветеран
Сообщений: 557
Репутация: 126 ±
Замечаний: 0% ±

Excel 2019
MamkinXaker, добрый день.
Цитата
Если просто выделять ячейки

Вынужден сообщить, что приложенный код не позволяет "просто выделять ячейки" на листе Excel.
 
Ответить
СообщениеMamkinXaker, добрый день.
Цитата
Если просто выделять ячейки

Вынужден сообщить, что приложенный код не позволяет "просто выделять ячейки" на листе Excel.

Автор - NikitaDvorets
Дата добавления - 14.03.2023 в 14:41
  • Страница 1 из 1
  • 1
Поиск:

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