正松舒，慢匀稳——太极字典少年班

ksdw001

感谢，好好学习一下。

妞妞家的鱼

б(*｀)留个标记

aliCT

留下来学习，谢谢

tudarong

老师的这个图文并茂的字典，看得有点感动，真心感谢老师的分享

shenzewen89

山菊老师，您的太极字典少年班里帖子里的：
Private Sub Worksheet_Activate() '激活工作表 Sheet12 时运行本程序
    On Error Resume Next
    Set d = CreateObject("Scripting.dictionary") '创建一个字典，命名为 d
    Arr = Sheet11.Range("a2:b10").Value    '将 Sheet11 数据保存到数组 Arr()中
   
    '以“使用人”为关键字，将数组 Arr() 数据添加到字典 d 中。
    For i = 1 To UBound(Arr)
        d.Add Arr(i, 1), Arr(i, 2)
        If d.exists(Arr(i, 1)) Then '当字典中存在相同关键字时，发生错误
        'MsgBox Err
            Err.Clear
            'MsgBox Err
            d(Arr(i, 1)) = d(Arr(i, 1)) & "， " & Arr(i, 2)
        End If
    Next
   
    '继续，以“号码”为关键字，将数组 Arr() 数据添加到字典 d 中。
    For i = 1 To UBound(Arr)
        d.Add Arr(i, 2), Arr(i, 1)
        If Err <> 0 Then '当字典中存在相同关键字时，发生错误
            Err.Clear
            d(Arr(i, 2)) = d(Arr(i, 2)) & "， " & Arr(i, 1)
        End If
    Next
   
   
End Sub
这个代码找中Err代表什么呀，也没有找到任何的定义，怎么就突然能指代key了呢

山菊花

shenzewen89 发表于 2018-10-24 13:15
山菊老师，您的太极字典少年班里帖子里的：
Private Sub Worksheet_Activate() '激活工作表 Sheet12 时运 ...

注意，过程前面有一行代码：On Error Resume Next
它的作用是启动一个错误处理程序。
Err是一个对象，一个包含错误信息、管理错误信息的对象，“Err<>0”是一个省略写法，完整写法是“Err.Number<>0”。
Err.Number返回的结果是错误的代码，不同的代码对应不同的错误，如果代码为0，表示无错误。
更多详细信息，请按F1打开帮助，搜索“On Error”。

shenzewen89

山菊花 发表于 2018-10-24 13:50
注意，过程前面有一行代码：On Error Resume Next
它的作用是启动一个错误处理程序。
Err是一个对象， ...

我明白了~~谢谢山菊老师

jy03342543

说的很细感谢分享

xiao0527

老师 下面代码中为何要 （ If Not ds.Exists(Arr(i, 1)) Then）这个判断啊.字典本来就不会存储重复的关键字啊！ 请老师指点一下谢谢
Sub 拆分()
    Dim pp1$, pp2$, nRow%, ds, Brr(), s(1 To 3) As Integer
    Set ds = CreateObject("scripting.dictionary")
    pp1 = Join(WorksheetFunction.Transpose(Range(Range("g2"), Range("g1").End(xlDown))), ",")
    pp2 = Join(WorksheetFunction.Transpose(Range(Range("h2"), Range("h1").End(xlDown))), ",")
    nRow = Range("a1").End(xlDown).Row
    Arr = Range("a1:a" & nRow)
    ReDim Brr(1 To nRow, 1 To 3)
    For i = 2 To nRow
        If Not ds.Exists(Arr(i, 1)) Then
            ds(Arr(i, 1)) = ""
            If pp1 Like "*" & Left(Arr(i, 1), 2) & "*" Then
                s(1) = s(1) + 1
              Brr(s(1), 1) = Arr(i, 1)
            ElseIf pp2 Like "*" & Left(Arr(i, 1), 2) & "*" Then
                s(2) = s(2) + 1
                Brr(s(2), 2) = Arr(i, 1)
            Else
                s(3) = s(3) + 1
                Brr(s(3), 3) = Arr(i, 1)
            End If
        End If
    Next
    Range("c2:e" & nRow) = Brr
End Sub       

山菊花

xiao0527 发表于 2018-11-16 10:59
老师 下面代码中为何要 （ If Not ds.Exists(Arr(i, 1)) Then）这个判断啊.字典本来就不会存储重复的关键字 ...

说得对，字典本来就不会存储重复的关键字。有无这句，对于字典不会发生什么改变，但对于数组s、Brr，结果就不同。
试试把这行及对应的End If注释掉，对比一下结果便知。