VBA Function的返回值能不能是Dictionary

郑尊耀 2013-01-22 10:54:02

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是一个数组,没有定义类型,这样写一个函数,调用一个函数对吗?求大神指点迷津!!!
...全文
840 2 打赏 收藏 举报
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
郑尊耀 2013-01-22
版主真乃神人也!!!!牛逼!!!佩服!!!!
  • 打赏
  • 举报
回复
dsd999 2013-01-22
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
  • 打赏
  • 举报
回复
相关推荐
发帖
VBA

2184

社区成员

VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
帖子事件
创建了帖子
2013-01-22 10:54
社区公告
暂无公告