[已解决]如何修改字典中第一列的元素？

Saint_Zuo

1. Sub 修改()
   
2. Set D = CreateObject("scripting.dictionary")
   
3. For i = 1 To
   
4. 5
   
5.    D(Cells(i, 1).Value) = Cells(i, 2).Value
   
6. Next
   
7. i
   
8. D("a") = 100
   
9. MsgBox D("a")
   
10. <font color="purple">MsgBox D.Keys(2)  '报错
    
11. D.Keys(2) ="m"    '报错</font>
    
12. End Sub
    

复制代码

请教在分别使用set d=CreateObject("scripting.dictionary")、dim d as new dictionary创建的字典如何修改已生成字典的第一列的元素？附件中的d("a")=100语句只能修改第二列的元素。另外dim d as new dictionary语句创建的字典D.Keys(2)语句只能输出而不能赋值修改，请教set d=CreateObject("scripting.dictionary")创建的字典如何也能用序号返回第一列的内容呢？

最佳答案

月排行榜 / 总排行榜

爱疯

2013-9-13 11:29

无论怎样创建的字典，第1列里的都是key

不能修改key。只有删除，再添加。比如
d.removell "a"
d.add "ab",101

跳转到最佳答案楼层

爱疯

无论怎样创建的字典，第1列里的都是key

不能修改key。只有删除，再添加。比如
d.removell "a"
d.add "ab",101

liuguansky

后期绑定方式 的KEYS,ITEMS方法不支持直接数组引用方式。前期绑定OK。
后期绑定下，可以把KEYS,ITEMS，赋值给数组变量，再进行数组元素的引用。

ppp710715

Key不可更改，只能删除之。
Item才可更改。

Saint_Zuo

liuguansky 发表于 2013-9-13 11:33
后期绑定方式 的KEYS,ITEMS方法不支持直接数组引用方式。前期绑定OK。
后期绑定下，可以把KEYS,ITEMS，赋值 ...

老师，能否举些具体的例子，谢谢了！

liuguansky

Saint_Zuo 发表于 2013-9-13 13:09
老师，能否举些具体的例子，谢谢了！

A.引用SCRRUN.DLL,定义dim d as new dictionary,去掉SET CREATEOBJECT段语句
可以使用你推荐的方式引用,d.items(N)
B.或者按你的后期绑定方式,
dim arr
arr=d.keys
msgbox arr(n)


建议处理方式:前期绑定,但是操作ITEMS,KEYS数组时,依然赋值予变量,再处理变量.