Создание сгруппированной гистограммы с использованием массива или матрицы вместо диапазонов - PullRequest
Новая
       49

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

0 голосов
/ 30 апреля 2020

Я пытаюсь передать данные на существующую сгруппированную гистограмму в Excel, используя массив вместо диапазонов. Я могу отправить xValue для простой гистограммы, используя массив, но я не для сгруппированной гистограммы. В приведенном ниже коде я попытался воспроизвести то, что работает с областью области в рабочей таблице, используя матрицу 

        Sub weekly_end()
Dim Mx(8, 3) As String

Mx(0, 0) = "Maggio"
Mx(1, 0) = ""
Mx(2, 0) = ""
Mx(3, 0) = ""
Mx(4, 0) = ""
Mx(5, 0) = ""
Mx(6, 0) = ""
Mx(7, 0) = ""
Mx(0, 1) = "1° Week"
Mx(1, 1) = ""
Mx(2, 1) = "2° Week"
Mx(3, 1) = ""
Mx(4, 1) = "3° Week"
Mx(5, 1) = ""
Mx(6, 1) = "4° Week"
Mx(7, 1) = ""
Mx(0, 2) = "Week"
Mx(1, 2) = "Week-End"
Mx(2, 2) = "Week"
Mx(3, 2) = "Week-End"
Mx(4, 2) = "Week"
Mx(5, 2) = "Week-End"
Mx(6, 2) = "Week"
Mx(7, 2) = "Week-End"

Dim c As Chart
  Set c = ActiveChart
  With c.SeriesCollection(1)
    .XValues = Mx
    .Values = Array(0.2, 0.21, 0.32, 0.19, 0.34, 0.26, 0, 48, 0.16)
  End With
End Sub
...