vba - Byref 参数类型不匹配

Question

=Test2(5)将代码放入模块后，在 Excel 中键入。为什么这会给我一个Byref argument type mismatch错误？

如果在一开始Test2我做一行来创建我的数组：

Dim X1(5), X2(5) As Double，然后它会工作。但是当我b从函数的参数列表中使用时，我必须ReDim（因为b是变量，而不是常量），这会导致错误。

 Function Test1(a As Double)

 Test1 = a * 2

 End Function

 Function Test2(b As Integer)
 Dim X1(), X2() As Double
 ReDim X1(b), X2(b) As Double
 Dim i As Integer

 For i = 0 To b
     X1(i) = i
     X2(i) = Test1(X1(i))
 Next i

 Test2 = X2(1)
 End Function

Answer 1

这：

Dim X1(), X2() As Double

仅声明X2()为双精度，X1()将存储b(integer) 的类型，而不是b转换为双精度（因此防止传递As Double）。

要使它们都加倍，您必须重复类型声明；

Dim X1() As Double, X2() As Double
ReDim X1(b), X2(b)

这意味着正确的双精度类型被传递给Test1