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

zjx10 · 发表于 2011-4-23 07:53

虽然我看不懂，还是收藏吧！

ringdove · 发表于 2011-4-30 21:08

刚看完了第一页，学习了

发现应用实例5运行速度比较慢，可以写成下面的代码，可以快很多

Sub macro2()
Dim i As Long, dic As Object, arr
Set dic = CreateObject("scripting.dictionary")
For i = 1 To 10000
If Abs((i Mod 6) - 3) = 2 Then dic.Add i, ""
Next
arr = WorksheetFunction.Transpose(dic.keys)
[a1].Resize(dic.Count, 1) = arr
Set dic = Nothing
End Sub

ringdove · 发表于 2011-4-30 23:30

应用实例8下面的练习题怎么做啊？

我差不多照搬了实例8的代码，然后做了下修改，结果excel运行到死机了

练习题:

1.试编码统计1-100000000范围内分别以1-99开始的数字的频率

wangsp · 发表于 2011-5-1 23:36

关于字典的用法，以前没接触过，学习。
版主5.1快乐

Ericall · 发表于 2011-5-6 19:55

谢谢狼版了，好贴啊

zhouyq0706 · 发表于 2011-5-10 16:49

简直太精彩了！

Ericall · 发表于 2011-5-11 12:47

感谢狼版，终于知道在引用字典的两种方法

sqhsqhli · 发表于 2011-5-12 08:55

我居然晚了几年

可爱天使 · 发表于 2011-5-14 19:35

好贴，收藏起来慢慢学习，谢谢！

wyrjn · 发表于 2011-5-20 12:14

学习字典的好文章，收藏了

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