[问题]字典问题（已解决）

youke333

oC9g7Vat.rar (6.06 KB, 下载次数: 18)

2008-1-12 10:59 上传

点击文件名下载附件
[问题]字典问题

Sub 编写字典()
Dim d As New Dictionary
  For i = 1 To 4
    d(Cells(i, 1).Value) = Cells(i, 2)
  Next i
MsgBox d("男孩")
Set d = Nothing
End Sub

===========================================================
Sub 修改字典()
Dim d As New Dictionary
  For i = 1 To 4
    d(Cells(i, 1).Value) = Cells(i, 2)
  Next i
d("男孩") = "myboy"
MsgBox d("男孩")
Set d = Nothing
End Sub

===============================================
Sub 唯一的编号字典方法()
'Set d = CreateObject("Scripting.Dictionary")
Dim d As New Dictionary
Dim arr1, arr2, x As Integer, y As Integer, t
t = Timer
Range("d2:d" & Range("d65536").End(xlUp).Row) = ""
arr1 = Range("a2:b11")
arr2 = Range("b2:b11")
mrow1 = UBound(arr1)
mrow2 = UBound(arr2)
ReDim arr3(1 To mrow1 + mrow2, 1 To 1)
For x = 1 To mrow1
  d(arr1(x, 1)) = ""
Next x
For y = 1 To mrow2
  d(arr2(y, 1)) = ""
Next y
Range("d2").Resize(d.Count, 1) = Application.Transpose(d.Keys)
MsgBox Timer - t
End Sub

================================================

这是有关字典的3个代码，前2个代码是在兰版的视频教程中学习的，最后一个是第8讲的课堂例题。

我的问题是：三个代码中向字典中添加值和修改值   d(Cells(i, 1).Value) = Cells(i, 2)　　；　d("男孩") = "myboy"　　；　　　　
　　　  d(arr1(x, 1)) = ""　　为什么有的加了.value，有的没有呢？value这个在这里有什么意义？在什么情况使用什么情况下不使用它啊?

[此贴子已经被作者于2008-1-13 9:53:13编辑过]

兰色幻想

字典中添加单元格的值时,需要加上vlaue 如cells().value

而数组和常量则不用

guideming

QUOTE:

以下是引用兰色幻想在2008-1-12 11:35:00的发言：

字典中添加单元格的值时,需要加上vlaue 如cells().value

而数组和常量则不用

原来如此……

有些了解了

谢谢兰版

hhzjxss

QUOTE:

以下是引用guideming在2008-1-12 11:40:00的发言：

QUOTE:

以下是引用兰色幻想在2008-1-12 11:35:00的发言：

字典中添加单元格的值时,需要加上vlaue 如cells().value

而数组和常量则不用

原来如此……

有些了解了

谢谢兰版

[em12]

youke333

理解啦，谢谢版主！[em23][em23][em23]

laosanjie

又跟着兰版学习了一个知识点！谢谢！！！

zjxia889

恩

箫风

字典还是应该很好地学习下的。

alexpan

好问题.我也理解了.