字典中的VBA多维数组

Question

我正在尝试在VBA中存储多维数组。我将数组添加到键中，但是不确定如何访问它。我需要为每个键保存三个数组。主数组是15个3维数组的列表。

Function test22()
  'Instanciate variables
  Set dict = New Scripting.Dictionary
  Dim hello As String
  hello = "Hello world"

  Dim test(0 To 15, 0 To 2) As String
  test(0, 0) = hello
  dict.add "key1", test

  'This line should print Hello World
  Debug.Print dict("key1").Value(0, 0)
End Function

Answer 1

你想要

Debug.Print dict("key1")(0, 0)

dict("key1")将返回一个数组。然后，您可以像往常一样直接在该数组中指定位置。