VBA Function的返回值能不能是Dictionary

[郑尊耀]

Function SigTop5(ByVal SessionCode) As Dictionary
    Set SigTop5 = New Dictionary
    '..........
End Function

Sub a()
    Dim SessionCode
    Dim Sig_Top5 As Dictionary
    
    Set Sig_Top5 = New Dictionary
    SessionCode = ......     'SessionCode在这里赋值
    Sig_Top5 = SigTop5(SessionCode)
End Sub

SessionCode是一个数组，没有定义类型，这样写一个函数，调用一个函数对吗？求大神指点迷津！！！

[dsd999]

Function SigTop5(ByVal SessionCode) As Object
    Set SigTop5 = CreateObject("Scripting.Dictionary")
    SigTop5.Add "A", 300
    SigTop5.Add "B", 400
    SigTop5.Add "C", 500
End Function


Sub a()
    Dim SessionCode
    Dim Sig_Top6
    
    
    Set Sig_Top6 = SigTop5(SessionCode)
    k = Sig_Top6.keys
v = Sig_Top6.Items
For i = 0 To Sig_Top6.Count - 1
key = k(i)
Value = v(i)
Debug.Print key & Value
Next
End Sub

• 打赏
• 举报

回复 赞

[郑尊耀]

版主真乃神人也！！！！牛逼！！！佩服！！！！

• 打赏
• 举报

回复 赞