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是一个数组,没有定义类型,这样写一个函数,调用一个函数对吗?求大神指点迷津!!!
...全文
1157 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
郑尊耀 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

2,503

社区成员

发帖
与我相关
我的任务
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧