fieldset{padding:10px;}
VBA Function的返回值能不能是Dictionary
本帖最后由 zhengzunyao 于 2013-01-22 10:54:35 编辑
FunctionSigTop5(ByValSessionCode)AsDictionarySetSigTop5=NewDictionary'..........EndFunction
Suba()DimSessionCodeDimSig_Top5AsDictionarySetSig_Top5=NewDictionarySessionCode=......'SessionCode在这里赋值Sig_Top5=SigTop5(SessionCode)EndSub
SessionCode是一个数组，没有定义类型，这样写一个函数，调用一个函数对吗？求大神指点迷津！！！
——解决方案——————————————————–
FunctionSigTop5(ByValSessionCode)AsObjectSetSigTop5=CreateObject("Scripting.Dictionary")SigTop5.Add"A",300SigTop5.Add"B",400SigTop5.Add"C",500EndFunctionSuba()DimSessionCodeDimSig_Top6SetSig_Top6=SigTop5(SessionCode)k=Sig_Top6.keysv=Sig_Top6.ItemsFori=0ToSig_Top6.Count-1key=k(i)Value=v(i)Debug.Printkey&ValueNextEndSub
或许是某座闻名遐迩的文化古城。我们可以沿途用镜头记录彼此的笑脸，