[已解决]显示错误？帮看一下吧

lyn666666

Sub myen()
Dim dic1 As Object, arrYS, arrTJ(), temp(1 To 1000, 1 To 6), i As Long, Erow As Long, j As Byte, x As Long, y As Byte
Dim dic2 As Object, k%, s
Dim p
Set dic1 = CreateObject("scripting.dictionary")
Set dic2 = CreateObject("scripting.dictionary")
With Sheet3
    Erow = .[A65536].End(3).Row
    arrYS = .Range("B2:X" & Erow)
End With
For i = 1 To UBound(arrYS)
    s = dic2(arrYS(i, 1))
Next
Stop
Sheet13.Range("A4").Resize(dic2.Count) = Application.Transpose(dic2.keys)
arrTJ = Array("CNY", "公司", "行政")
For x = 1 To dic2.Count
    For i = 1 To UBound(arrYS)
        If arrTJ(1) = arrYS(i, 10) Then  '公司
            If arrTJ(0) = arrYS(i, 6) Then  '本币
                p = dic2.keys(x - 1)  '显示错误？？
                If arrYS(i, 1) = p Then
                    For j = 1 To 6
                        temp(x, j) = temp(x, j) + arrYS(i, j * 2 + 11)
                    Next
                End If
            End If
        End If
    Next
Next

end sub

那句代码不对吗？运行时显示错误了...   我想要那dic2的第一个键值，帮忙看一下啊，卡住了...（附件我传不上来了，急）

最佳答案

月排行榜 / 总排行榜

搁浅2008

2010-12-1 21:07

p = dic2.keys(x - 1)

代码引用的字典 不能用   手动引用的字典可以用

跳转到最佳答案楼层

搁浅2008

p = dic2.keys(x - 1)

代码引用的字典 不能用   手动引用的字典可以用

lyn666666

这样啊，谢谢

搁浅2008

所以我习惯手动引用字典[em04]