将变量作为参数传递给VBA中的函数

Question

我有一个功能

Function convertToDict(arrayIp As Variant) As Object
Dim dict As Object
Set dict = CreateObject("scripting.dictionary")
For Each element In arrayIp

    If dict.exists(element) Then
        dict.Item(element) = dict.Item(element) + 1
    Else
        dict.Add element, 1
    End If
Next
End Function

我试图从一个子调用这个函数

Dim dict As Object
varray = Range("B4:B" & finalRow - 1).Value
dict = convertToDict(varray)

但这会引发错误：

运行时错误450，参数数量错误或属性无效

我在这里犯了什么错误？

我通过一个变体，结果是一个Object 。

Answer 1

因为要处理对象 ，所以需要在函数和子控件中都设置Set ：

Function convertToDict(arrayIp As Variant) As Object
    Dim dict As Object
    Set dict = CreateObject("scripting.dictionary")
    For Each element In arrayIp

        If dict.exists(element) Then
            dict.Item(element) = dict.Item(element) + 1
        Else
            dict.Add element, 1
        End If
    Next
    Set convertToDict = dict
End Function

Sub qwerty()
    Dim dict As Object
    finalRow = 10
    varray = Range("B4:B" & finalRow - 1).Value
    Set dict = convertToDict(varray)
End Sub

Answer 2

由于dict是一个对象，因此分配给它时需要使用Set 。 尝试

Set dict = convertToDict(varray)