Создайте столбчатую диаграмму с накоплением для каждых 10 строк данных - PullRequest
Новая
       7

Создайте столбчатую диаграмму с накоплением для каждых 10 строк данных

0 голосов
/ 18 февраля 2020

Так что сейчас я могу создать столбчатую диаграмму с накоплением для каждой строки (показано ниже) 

    Sub test()
 Dim Row As Integer
 Dim ws As Worksheet
 Dim rng As Range

 Set ws = Sheets("Sheet1") 

 For Row = 1 To 6
 Set rng = ws.Range("B1:D1").Offset(Row, 0) 

 ActiveSheet.Shapes.AddChart.Select
 ActiveChart.SetSourceData Source:=Range(ws.Name & "!" & rng.Address)
 ActiveChart.ChartType = xlColumnStacked
 ActiveChart.PlotArea.Select
 ActiveChart.SeriesCollection(1).XValues = "='Sheet1'!$B$1:$D$1" 
 ActiveChart.SeriesCollection(1).Name = ws.Range("A1").Offset(Row, 0).Value 
 'ActiveChart.Location Where:=xlLocationAsNewSheet 
 ActiveChart.PlotBy = xlColumns
 Next Row

 Set ws = Nothing
 Set rng = Nothing
End Sub

Однако я могу построить только одну строку за раз Показано

enter image description here

Я хотел бы построить вместе десять столбцов. Может ли кто-нибудь помочь?

Я также приложил несколько фиктивных данных.

enter image description here

Редактировать: также, если кто-то может показать мне, как добавить заголовки к столбцам (ie 111, 112), что тоже было бы замечательно

...