VBA Excel - 从二维数组创建饼图

Question

我正在尝试根据过程中的计算值创建图表该过程的第一部分创建一个名为“varUnique”的数组（变体）

假设它具有以下值：

varUnique(0,1)="Houses"
varUnique(0,2)="Buildings"
varUnique(0,3)="Parkings"
varUnique(1,1)=4
varUnique(1,2)=3
varUnique(1,3)=9

我想创建一个新图表 sheet 来显示之前的

我的代码：

Set new_chart = Charts.Add()
    With new_chart
        .ChartType = xlPie
        .SeriesCollection.NewSeries
        .SeriesCollection(1).XValues = varUnique(0)
        .SeriesCollection(1).Values = varUnique(1)
    End With

生成运行时错误“9”：下标在 .SeriesCollection(1).XValues = varUnique(0) 步骤中超出范围

有人可以帮忙吗？

Answer 1

您可以使用 Index。请注意 Index 是从一开始的。

.SeriesCollection(1).XValues = Application.Index(varUnique, 1)
.SeriesCollection(2).Values = Application.Index(varUnique, 2)

输出：

VBA Excel - 从二维数组创建饼图

VBA Excel - Create pie chart from 2 dimensional array

arrays

excel

vba

graph