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

lovexcelh · 发表于 2010-6-19 15:00

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

jhmzzj · 发表于 2010-6-19 16:45

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

youliqi · 发表于 2010-6-19 17:56

好好学习学习，谢谢楼主

赵文竹 · 发表于 2010-7-2 11:36

学习ING……

赵文竹 · 发表于 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

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

3dcapture · 发表于 2010-7-3 05:58

感谢狼版分享。

qr1008 · 发表于 2010-7-3 11:29

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

weixiaoji · 发表于 2010-7-3 18:49

路过，学习

xrmbysj · 发表于 2010-7-3 21:25

浅谈DICTIONARY(字典)对象

赵文竹 · 发表于 2010-7-4 15:25

原帖由 赵文竹 于 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)) 这样可以判断一下数组中的元素属性。在此，感谢叶枫老师的帮忙，谢谢！

		自动登录	找回密码
密码			免费注册