[分享]浅谈DICTIONARY(字典)对象

lovexcelh

不错，，，有学习的价值。。。。

jhmzzj

学习了，还是“雾里看花”。先收藏慢慢啃！

youliqi

好好学习学习，谢谢楼主

赵文竹

学习ING……

赵文竹

Sub x()                 
  Dim arr, a
    arr = [column(a:iv)]
    arr = Filter(arr, "3")
    MsgBox Join(arr, ",")
    a = Application.WorksheetFunction.Large(arr, 2)
    Debug.Print a
End Sub

a = Application.WorksheetFunction.Large(arr, 2)，此代码不对吗？请帮忙看错在什么地方？呵呵，谢谢老师！

3dcapture

感谢狼版分享。

qr1008

太好了找了好久了终于有了

weixiaoji

路过，学习

xrmbysj

浅谈DICTIONARY(字典)对象

赵文竹

原帖由 赵文竹 于 2010-7-2 22:57 发表
Sub x()                 
  Dim arr, a
    arr = [column(a:iv)]
    arr = Filter(arr, "3")
    MsgBox Join(arr, ",")
    a = Application.WorksheetFunction.Large(arr, 2)
    Debug.Print a
End Sub ...

该问题在ggsmart(叶枫）老师的帮忙下，已经解决，是因为使用filter函数后arr的元素属性发生了改变，成了文本（字符串），所以运行出错。呵呵，并且还得到了关于一个判断数组中元素的属性的方法：TypeName(arr(5))  这样可以判断一下数组中的元素属性。在此，感谢叶枫老师的帮忙，谢谢！