字典关键字对应两个Item，如果想要只修改对应第二个item的值，代码要怎么写

feixiangye

字典关键字对应有两个item，如果想要只修改第二个item的值，代码要怎么写，谢谢！

Sub 字典测试()

    Set d = CreateObject("scripting.dictionary")
    For i = 1 To 3
        d(i) = Array(i + 1, i + 5)
    Next
    For i = 1 To 3
        If d(i)(1) = 7 Then
           '此处如果想要只修改字典关键字，对应第二个item的值；比如想要把d(i)的第二个item修改为"A"，代码要怎么写
        End If
    Next
End Sub

沈默00

上传个附件吧，

sdytsxd991122

应该是只能重新赋值 d(i) = Array(3, "A")

shiruiqiang

DevilW

d(i) = Array(i + 1, "A")

gwjkkkkk

将字典item 赋值给数组，改写数组第2一个值，然后再赋值给字典

micch

字典是键值对，要改可以直接对item整体修改，也就是d(i)=newarray

feixiangye

gwjkkkkk 发表于 2023-7-5 17:25
将字典item 赋值给数组，改写数组第2一个值，然后再赋值给字典

非常感谢，就是想要这个结果，太感谢了！

xunanming

1. If d(i)(1) = 7 Then
   
2.      d(i) = Array(i + 1, "A")                                                   
   
3. End If

复制代码

这样改一下就OK!!!!

全党

Sub 字典测试()

    Set d = CreateObject("scripting.dictionary")
    For i = 1 To 3
        d(i) = Array(i + 1, i + 5)
    Next

    For i = 1 To 3
    ss = d(i)
    ss(1) = "a"
    d(i) = ss
           '此处如果想要只修改字典关键字，对应第二个item的值；比如想要把d(i)的第二个item修改为"A"，代码要怎么写
      
    Next
End Sub