无法分配给数组-vba

Question

我正在尝试实现下一个代码并得到错误-

无法分配给数组

错误在哪里？请注意，如果输入Dim arrf() As Variant而不是Dim arrf(5) As Variant输入错误，

类型不匹配

Public Function calc(ByVal value As Integer, ByVal num As Integer) As Variant()

Dim arr(5) As Variant
Dim x As Double

If value >= num Then
    x = value - Application.RoundDown(value / num, 0) * num
    arr(0) = x
    arr(1) = num - arr(0)
    arr(2) = Application.RoundUp(value / num, 0)
    arr(3) = 1
    arr(4) = Application.RoundDown(value / num, 0)
    arr(5) = 1
Else
    x = num - Application.RoundDown(num / value, 0) * value
    arr(0) = x
    arr(1) = value - arr(0)
    arr(2) = Application.RoundUp(num / value, 0)
    arr(3) = 1
    arr(4) = Application.RoundDown(num / value, 0)
    arr(5) = 1
    calc = arr
End If

End Function


Sub cellsfunc()

With Application
    .DisplayAlerts = False
    .EnableEvents = False
    .ScreenUpdating = False
End With

Dim lastrow As Integer
Dim counter As Integer

Dim arrf(5) As Variant

lastrow = Cells(Rows.Count, 2).End(xlUp).Row
For counter = 2 To lastrow Step 2
    arrf = calc(Cells(4, counter), Cells(4, counter + 1))
Next counter

With Application
    .DisplayAlerts = True
    .EnableEvents = True
    .ScreenUpdating = True
End With

End Sub

在此先感谢所有帮助者

Answer 1

您已arrf声明为固定大小的数组：

Dim arrf(5) As Variant

数组返回函数不能返回固定大小的数组-只能返回动态数组。您只需要将其声明为动态数组即可：

Dim arrf() As Variant

Answer 2

您需要声明aarf为常规变体而不是数组。VBA 将为您转换它。

Dim arrf As Variant