[已解决]VBA字典查找问题

twhyl

用VBA的字典来解决；需要实现像函数那样的效果，所谓的联动功能！在下QQ1162612027。

最佳答案

月排行榜 / 总排行榜

lisachen

2013-10-1 15:47

Private Sub Worksheet_Change(ByVal Target As Range)
Dim d As Object
Dim x
If Target.Address = "$E$1" Then '如果改变的单元格地址是$E$1
Set d = CreateObject("scripting.dictionary") '创建字典d
For x = 2 To 11
d(Cells(x, 1).Value) = Cells(x, 2) '将Cells(x, 1)单元格的值装入字典d，item是Cells(x, 2)
Next x
Cells(1, 6) = d(Cells(1, 5).Value) 'Cells(1, 6)单元格等于字典key为Cells(1, 5)的item
End If
End Sub

跳转到最佳答案楼层

联乔

                      .

lisachen

VBA.rar (8.68 KB, 下载次数: 176)

2013-10-1 14:29 上传

点击文件名下载附件

twhyl

谢谢 ，十分感谢！经过测试，非常不错！但是本人对代码不是十分熟悉，能否将上诉代码一一解析下！？

lisachen

twhyl 发表于 2013-10-1 14:31
谢谢 ，十分感谢！经过测试，非常不错！但是本人对代码不是十分熟悉，能否将上诉代码一一解析下！？

这是最简单的字典运用，如果还看不懂，建议从基础学习。
这里的代码解释了对您的帮助还是不大。

lisachen

Private Sub Worksheet_Change(ByVal Target As Range)
Dim d As Object
Dim x
If Target.Address = "$E$1" Then '如果改变的单元格地址是$E$1
Set d = CreateObject("scripting.dictionary") '创建字典d
For x = 2 To 11
d(Cells(x, 1).Value) = Cells(x, 2) '将Cells(x, 1)单元格的值装入字典d，item是Cells(x, 2)
Next x
Cells(1, 6) = d(Cells(1, 5).Value) 'Cells(1, 6)单元格等于字典key为Cells(1, 5)的item
End If
End Sub

木牙水

帮不上什么忙 ，给你提供点资料
VBA字典与数组班第二课：字典.rar (202.89 KB, 下载次数: 154)

2013-10-1 17:18 上传

点击文件名下载附件

twhyl

谢谢7楼，你帮上大忙了，现在问题是感觉资料太少了，能否多来点相关方面的资料！感激不尽！

水上漂123

看看学习一下

twhyl

谢谢6楼的，解释很清楚！知晓一二了！