关于字典exists方法的问题,非常奇怪,求网友帮下!

zpy2

lyj344600 发表于 2024-6-23 10:32
还是出现这种问题!

Set DicA = CreateObject("scripting.dictionary")
arr=array(1,2,3)
dicA(arr(0))="x"
msgbox dicA.exists(arr(0))
msgbox dicA.exists(arr(1))


不会吧，试试这个

wanao2008

lyj344600 发表于 2024-6-23 10:15

我刚下载，运行了一下，什么问题都没有！

你这样，当出现问题时，关闭Excel程序，再重新打开试试。

还有，你写的代码究竟想要达到一个什么样的结果，有点看不懂？

当然，对你认真的学习态度点赞！！

ynzsvt

mmwwdd 发表于 2024-6-23 04:37
你怎么得出true的，我这运行是false

你看看是不是你的A了全是空白，那么第一行False，其它全true

Qs18

Sub test()
Dim Dic As Object, i%, j%, k%, arr, brr
brr = Sheet2.Range("a1").CurrentRegion.Value
Set Dic = CreateObject("scripting.dictionary")
arr = Sheet1.Range("a1").CurrentRegion.Value
For i = 2 To UBound(arr)
    s = Val(arr(i, 7))
    If Not Dic.exists(s) Then
        Dic(s) = Array(1, Val(arr(i, 3)), Val(arr(i, 4)))
    Else
        Dic(s) = Array(Dic(s)(0) + 1, Dic(s)(1) + Val(arr(i, 3)), Dic(s)(2) + Val(arr(i, 4)))
    End If
Next
For j = 2 To UBound(brr)
    brr(j, 2) = Dic(brr(j, 1))(0)
    brr(j, 3) = Dic(brr(j, 1))(1)
    brr(j, 4) = Dic(brr(j, 1))(2)
Next
Sheet2.Range("a1").Resize(UBound(brr), UBound(brr, 2)) = brr
Set Dic = Nothing
End Sub

Qs18

试一下.............

Qs18

试一下...........

lyj344600

wanao2008 发表于 2024-6-23 17:46
我刚下载，运行了一下，什么问题都没有！

你这样，当出现问题时，关闭Excel程序，再重新打开试试。

我这样做的目的是让字典保存数组某个学生参加了3次考试,这样就可以名字为键值,保存这三次考试情况.

另外这个问题问了其他网友搞清楚原因了 在此谢谢论坛各位网友!