常见字典用法集锦及代码详解

rcnricoh

已经收藏，谢谢蓝桥老师！

liaoliangbang

标记，字典

bigfoolishbull

讲解的非常透彻，系统性的重新复习了一遍，原来很多没理解到位的这次也终于想明白了，谢谢蓝桥玄霜老师

kimmyyang

赞赞赞赞赞！！

huangjie9032

必须收藏下来好好研读一番。蓝版太强大了。

鼹小鼠

学习了，先收藏，待有时间好好学习蓝桥老师帖子

huajunliang

版主好！

想请教下，能否用Funtion 自定义函数返回字典变量
Function ColorQty()
        Dim i, j As Long
        Dim ColorQtyDict As Object
        Set ColorQtyDict = CreateObject("Scripting.Dictionary")
        
        ThisWorkbook.Sheets("MI Temp").Select
       For i = 4 To 6
                ColorQtyDict.Add Cells(i, 30).Value, Cells(i, 44).Value
       Next i
       ColorQty = ColorQtyDict
End Function
红色代码报错：“错误的参数或无效的属性赋值”

shandongdxl

最近自己开始学习用字典，深刻地感觉到了字典的强大！

ereaser

蓝桥玄霜 发表于 2010-10-28 11:30
1，“两次转置和不用”的效果如何？你可以增加相应的语句，用F8逐句执行看看效果；
Sheet2.[a1].Resize( ...

用监视窗口看t=d.Items,t是range对象，但是为什么这个range对象不能直接赋值给range呢？
用cells(11,1).Resize(d.Count,4)=t只能得到空白

如果不用transport，那么
j=11
for each tt in t
    Range("A" & j & ":D" & j) = tt '仍然无法直接赋值，这一行运行后目标单元格还是不变
    r=tt '将每一个range对象赋值给r变量
    Range("A" & j & ":D" & j) = r '再将变量赋值给单元格居然就可以了
    j=j+1
next

这里面具体发生什么情况我就不清楚了

ereaser

蓝桥玄霜 发表于 2010-10-18 12:53
实例7  字典法排序
一、问题的提出：
A列B列是按顺序排列的全部股票代码和股票名称，C列D列和E列F列是另 ...

例8的变体，原来的例子里面字典的item属性是空的，我利用了一下，可以不用再在后面写循环判断了

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column <> 4 And Target.Column <> 3 Then Exit Sub
    Dim d, i&, Myr&, Arr, r%, Arr1(), cp$, ks&, js&, j&, ymc
    Set d = CreateObject("Scripting.Dictionary")
   
    Myr = Sheet1.[b65536].End(xlUp).Row
    Arr = Sheet1.Range("a2:b" & Myr)
   
    '字典d的key是源名称，item是代号合集
    For i = 1 To UBound(Arr)
        If Arr(i, 1) <> "" Then
            ymc = Arr(i, 1) '源名称
            d(ymc) = Arr(i, 2)
        Else
            d(ymc) = d(ymc) & "," & Arr(i, 2)
        End If
    Next
   
    If Target.Column = 3 Then
        With Target.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
            Operator:=xlBetween, Formula1:=Join(d.keys, ",")
        End With
        Target.Offset(0, 1) = ""
    ElseIf Target.Column = 4 And Target.Offset(0, -1) <> "" Then
        cp = d(Target.Offset(0, -1).Value)
        '必须引用单元格的Value或者Text属性，否则vb以为要新增一个range对象的key

        With Target.Validation
            .Delete
            .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _
            Operator:=xlBetween, Formula1:=cp
        End With
        Target = Split(cp, ",")(0)
    End If
   
    Set d = Nothing
End Sub