VBA使用数组中的值创建Excel图表

Question

我有一些二维数组中的数据，我需要使用 excel 图表创建图表。但是，图表 setsourcedata 似乎只接受范围。这意味着我必须将数组存储在某个电子表格的某个范围内，然后将该范围作为输入传递给图表。所以我创建了一个临时表来将数据存储在特定范围内，然后计划将其传递给创建图表调用。这是我创建的一个类型

Private Type CItem

CName As Variant
CWeek(13) As Variant
CDisabled(13) As Variant
CEmpty(13) As Variant
CEnabled(13) As Variant

End Type

Dim CItemArray(100) As CItem
cnt1 = 0

//.. do something

ActiveWorkbook.Sheets.Add(After:=Sheets("MainSheet")).Name = "WK_Report"

Worksheets("WK_Report").Range("C3:C15").value = CItemArray(cnt1).CWeek()
Worksheets("WK_Report").Range("D3:D15").value = CItemArray(cnt1).CDisabled()
Worksheets("WK_Report").Range("E3:E15").value = CItemArray(cnt1).CEnabled()
Worksheets("WK_Report").Range("F3:F15").value = CItemArray(cnt1).CEmpty()

我的目标是将第一个 CItem 的整个 CWeek 数组分别分配给 C3:C15 的范围。但是，我上面使用的语法将 Cweek、CDisabled、CEnabled、CEmpty 的第一个元素分配给整个范围。我在 CWeek 和其他人之后尝试不带括号，但结果是一样的。

如何将数组值分配给范围？我知道这些值在数组中，因为我在分配验证后做了一个 debug.print。

Answer 1

您可以使用Application.Transpose：这是一个简化的示例

Option Explicit

Private Type CItem
    CWeek(13) As Variant
End Type

Sub Tester()

    Dim itm As CItem, x As Long

    For x = 1 To 14
        itm.CWeek(x - 1) = x
    Next x

    ActiveSheet.Range("C3:C15").Value = itm.CWeek '>> all "1"

    ActiveSheet.Range("D3:D15").Value = Application.Transpose(itm.CWeek) '>> 1 to 13

End Sub

Answer 2

您已经忽略了如何填充用户定义的类型数组，但您应该移至二维变量数组。

Private Type CItem
    CName As Variant
    CStuff(1 to 13, 1 to 4) As Variant
End Type

Dim CItemArray(100) As CItem, cnt1 as long

//.. populate 100 CItemArray.CStuff with 13 rows by 4 columns each

ActiveWorkbook.Sheets.Add(After:=Sheets("MainSheet")).Name = "WK_Report"

cnt1 = 1
with Worksheets("WK_Report").Range("C3")
    .resize(ubound(CItemArray(cnt1).CStuff, 1), ubound(CItemArray(cnt1).CStuff, 2)) = CItemArray(cnt1).CStuff
end with

从我的角度来看，用户定义的类型只会妨碍您，但是一旦您开始使用它，它就可能是“一劳永逸”的事情。我使用了一个基于 1 的数组，因此您不必将 1 添加到 ubounds。