无法弄清楚下面的代码有什么问题。我创建了一个包含一个键(名为“SMTH”)的字典,该键包含一个项目(包含三个整数的数组)。现在我希望它将这个数组发送到 Sub 过程,计算它并返回。
Dim SMTH As String
Dim d
Dim Myarray
SMTH = "SMTH"
Myarray = Array(10, 20, 30)
Set d = CreateObject("Scripting.Dictionary")
d.Add SMTH, Myarray
Call countSub(Myarray) 'here is mistake I can't fix
Debug.Print Myarray(0), Myarray(1), Myarray(2)
End Sub
Sub countSub(Arr() As Variant)
For N = LBound(Arr) To UBound(Arr)
Arr(N) = N * 10
Next N
End Sub
类型不匹配错误...
我将感激任何形式的帮助!