学习 字典（DICTIONARY） 讨论答疑帖

ldy

先参考 这两帖

浅谈DICTIONARY(字典)对象

http://club.excelhome.net/dispbbs.asp?boardID=2&ID=265056&page=1&px=0

DICTIONARY(字典)对象 补遗（一）

http://www.excelpx.com/forum.php?mod=viewthread&tid=27869&replyID

如果看完上述两帖，还有不懂的，到不如把问题提出来，

论坛里高手不少，谁有空谁解答。大家都能看见。

ps：如果不懂数组，请先学习数组。

hhzjxss

谢谢ldy老师，这么晚了还在发帖，辛苦了！

有时间学学字典，这个东东好象跟我雾查字典大不一样了！

[em01]

hhzjxss

ps：如果不懂数组，请先学习数组。

那就麻烦了，数组我是基础为零呀！

龙行天下8888

我也不懂数组  基础为0

杨副官

这段时间在刮字典风。

杨副官

Sub macro1()
Dim d As New Dictionary, s, i As Long
s = [{"aa","Aa","aA"}]
On Error Resume Next
d.CompareMode = BinaryCompare '二进制方式比较,即a,A是不同字符
For i = 1 To 3
d.Add s(i), ""
Next
Debug.Print Join(d.Keys, vbCrLf); vbCrLf; "d.Count=" & d.Count　　这一句是什么意思？print不是打印吗？
End Sub

 

ldy

QUOTE:

以下是引用杨副官在2007-10-7 11:34:09的发言：

Debug.Print Join(d.Keys, vbCrLf); vbCrLf; "d.Count=" & d.Count　　这一句是什么意思？print不是打印吗？

 

相当于 msgbox 的功能

http://www.excelpx.com/forum.php?mod=viewthread&tid=27869&replyID

这里面的附件中的代码注释里有说明

[此贴子已经被作者于2007-10-7 12:17:15编辑过]

lpz001

ldy老师：

全国地区代码.XLS中

For i = 1 To UBound(arr) '遍历
        d.Add arr(i, 1), arr(i, 2) '地名查邮编
        d.Add arr(i, 2), arr(i, 1) '邮编查地名
       
        If arr(i, 2) Like "##0000" Then d("all") = d("all") & "," & arr(i, 1) '省级
       
        If Mid(arr(i, 2), 3) > "0000" Then '省级以下
            If Right(arr(i, 2), 2) = "00" Then '地市级
                Mid(arr(i, 2), 3, 4) = "0000"
                d(d(arr(i, 2))) = d(d(arr(i, 2))) & "," & arr(i, 1) '嵌套字典对象,反查
            Else
                Mid(arr(i, 2), 5, 2) = "00" '县区级
                d(d(arr(i, 2))) = d(d(arr(i, 2))) & "," & arr(i, 1)
            End If
        End If
    Next

真是搞的我晕头转向

另外：

[a2:a40].Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Mid(d("all"), 2) '省份名称

这句也不太能理解

 

[em04][em04]

[此贴子已经被作者于2007-10-7 17:23:31编辑过]

不看不看

001 偶写的那个"查询" 该怎么用上字典[em23]

不看不看

就这个问题 指教一下