[已解决]能不能解释下代码的含义？

sfdsfs

Private Sub CommandButton1_Click()
    Dim arr, i&, j&, d As Object
    Set d = CreateObject("scripting.dictionary")
    d(0) = "A"
    d(1) = "B"
    d("03") = "C"
    d("13") = "D"
    d("04") = "E"
    d("14") = "F"
    d("05") = "X"
    d("15") = "Y"
    d("25") = "Z"
    arr = [m5].CurrentRegion
    For i = 1 To UBound(arr)
        If d.Exists(arr(i, 1)) Then
            arr(i, 1) = d(arr(i, 1))
            arr(i, 2) = arr(i, 2) & "/" & arr(i, 2)
            For j = 3 To 5
                arr(i, j) = d(arr(i, j) & j)
            Next
        End If
    Next
    [m5].CurrentRegion = arr
End Sub

最佳答案

月排行榜 / 总排行榜

我心飞翔410

2013-8-27 01:10

http://www.excelpx.com/forum.php?mod=viewthread&tid=186721  代码解释器
http://www.excelpx.com/forum.php?mod=viewthread&tid=246624  初识字典
http://www.excelpx.com/forum.php?mod=viewthread&tid=148423&replyID=&skin=1  兰版字典总结
你可以看看 这两个 看了 大体明白了

跳转到最佳答案楼层

我心飞翔410

Private Sub CommandButton1_Click()              '私有的子程序 CommandButton1_Click()
Dim arr, i&, j&, d As Object                    '定义变量 arr,i&,j&,d 为 对象
Set d = CreateObject("scripting.dictionary")    '设定d=创建字典对象("scripting.dictionary")
d(0) = "A"                                      'd(0)="A"
d(1) = "B"                                      'd(1)="B"
d("03") = "C"                                   'd("")="C"
d("13") = "D"                                   'd("13")="D"
d("04") = "E"                                   'd("")="E"
d("14") = "F"                                   'd("14")="F"
d("05") = "X"                                   'd("05")="X"
d("15") = "Y"                                   'd("15")="Y"
d("25") = "Z"                                   'd("25")="Z"
arr = [m5].CurrentRegion                        'arr=[m5的当前区域
For i = 1 To UBound(arr)                        '设定变量范围为i=1到UBound(arr)
    If d.Exists(arr(i, 1)) Then                  '如果 d.Exists(arr(i,1)) 则执行
       arr(i, 1) = d(arr(i, 1))                  'arr(i,1)=d(arr(i,1))
       arr(i, 2) = arr(i, 2) & "/" & arr(i, 2)   'arr(i,2)=arr(i,2) & "/" & arr(i,2)
       For j = 3 To 5                            '设定变量范围为j=3到5
          arr(i, j) = d(arr(i, j) & j)           'arr(i,j)=d(arr(i,j) & j)
       Next                                      '下一个
    End If                                       'End如果
Next                                            '下一个
[m5].CurrentRegion = arr                        '[m5的当前区域=arr
End Sub                                         'End子程序

我心飞翔410

http://www.excelpx.com/forum.php?mod=viewthread&tid=186721  代码解释器
http://www.excelpx.com/forum.php?mod=viewthread&tid=246624  初识字典
http://www.excelpx.com/forum.php?mod=viewthread&tid=148423&replyID=&skin=1  兰版字典总结
你可以看看 这两个 看了 大体明白了

sfdsfs

我心飞翔410 发表于 2013-8-27 01:10
http://www.excelpx.com/forum.php?mod=viewthread&tid=186721  代码解释器
http://www.excelpx.com/forum ...

谢谢，能不能再详细点？