VBA：函数数组，ReDim 给出无效的 ReDim

Question

我正在使用函数来创建数组。输入也是一个数组。运行时它给我一个

invalid ReDim

编译错误。在此之前，在子例程中运行并且

ReDim

运行良好，但现在我在函数中更改了它，并且它给出了

invalid ReDim

编译错误。我在这里缺少什么？

提前致谢！ 阿米尔

Public Function bmhussel(filemx As Variant)

rijaantal = UBound(filemx, 1)
kolomaantal = UBound(filemx, 2)


ReDim bmhussel(1 To rijaantal + 1, 1 To kolomaantal + 1)

For i = 1 To rijaantal
    bmhussel(i, 1) = filemx(i, 1)
    bmhussel(i, 2) = filemx(i, 3)
    bmhussel(i, 3) = filemx(i, 5)
    bmhussel(i, 4) = filemx(i, 28)
    bmhussel(i, 5) = bucket(filemx(i, 28)) 'buckets maken
next i

End Function

Answer 1

欢迎操作堆栈溢出。

如上所述，您无法重新调整功能本身。因此，使用临时变量并最终将其内容传输到您的函数：

Public Function bmhussel(filemx As Variant) as Variant

Dim rijaantal As Long
Dim kolomaantal As Long
Dim tmpArray as Variant

rijaantal = UBound(filemx, 1)
kolomaantal = UBound(filemx, 2)

ReDim tmpArray (1 To rijaantal + 1, 1 To kolomaantal + 1)

For i = 1 To rijaantal
    tmpArray(i, 1) = filemx(i, 1)
    tmpArray(i, 2) = filemx(i, 3)
    tmpArray(i, 3) = filemx(i, 5)
    tmpArray(i, 4) = filemx(i, 28)
    tmpArray(i, 5) = bucket(filemx(i, 28)) 'buckets maken
next i

bmhussel = tmpArray

End Function

Answer 2

bmhussel

是函数的名称，而不是变量的名称。您无法

Redim

您的 功能。

ReDim bmhussel(1 To rijaantal + 1, 1 To kolomaantal + 1)

Answer 3

出于某种原因，VBA 不允许直接 Redim 返回变量（与函数同名）。但是，您可以通过创建一个单独的子例程来处理此问题。但是，这仅在变量保存大量数据的情况下才有用，因此您可以通过避免变量复制操作来节省时间。否则，您可以简单地创建另一个变量，重新调整它，然后将其分配给返回变量。

Private Sub Redim_bmhussel(ByRef bmhussel, lUBound1 As Long, lUbound2 As Long)
    ReDim bmhussel(1 To lUBound1, 1 To lUbound2)
End Sub

Public Function bmhussel(filemx As Variant)

rijaantal = UBound(filemx, 1)
kolomaantal = UBound(filemx, 2)

Redim_bmhussel bmhussel rijaantal + 1, kolomaantal + 1

For i = 1 To rijaantal
    bmhussel(i, 1) = filemx(i, 1)
    bmhussel(i, 2) = filemx(i, 3)
    bmhussel(i, 3) = filemx(i, 5)
    bmhussel(i, 4) = filemx(i, 28)
    bmhussel(i, 5) = bucket(filemx(i, 28)) 'buckets maken
next i

End Function