在VBA词典更改数组值 [英] Changing array values in a VBA dictionary

问题描述

我有一块code那似乎并没有做什么预期的事情。 VBA数组是通过各种手段可变，但似乎当它们存储到字典一些按键的值，它们是不可变的了。任何想法？

 子富（）
    昏暗mydict作为新解释
    mydict.AddA，阵列（1，2，3）
    MSGBOX mydict（A）（1）
    ''＃上面显示2，这是罚款
    mydict（A）（1）= 34
    MSGBOX mydict（A）（1）
    ''＃上面还示出2，这是不精
结束小组
 

解决方案

看来你需要还另设VAR更新数组值。

  MARRAY = mydict.Item（1）
MARRAY（1）= 34
mydict.Item（1）= MARRAY
 

I have a piece of code that does not seem to do what it is expected to do. VBA Arrays are mutable by all means, but it seems that when they are stored into a Dictionary as values of some keys, they are not mutable anymore. Any ideas?

Sub foo()
    Dim mydict As New Dictionary
    mydict.Add "A", Array(1, 2, 3)
    MsgBox mydict("A")(1)
    ''# The above shows 2, which is fine
    mydict("A")(1) = 34
    MsgBox mydict("A")(1)
    ''# The above also shows 2, which is not fine
End Sub

解决方案

It seems you'll need yet to set another var to update the array value.

mArray = mydict.Item(1)
mArray(1) = 34
mydict.Item(1) = mArray

这篇关于在VBA词典更改数组值的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！