Find查询与字典的应用

贝妮 · 发表于 2011-7-18 21:37

就是不用数组，不不必一个个地写单元格，用COPY可以。看来版主就是版主，拍马屁的贼多，无语！

刘志文 · 发表于 2011-7-18 23:44

学习了

opelwang · 发表于 2011-7-19 01:01

原帖由 Zamyi 于 2011-7-18 15:56 发表
二点数建议：
1、用数组不会比FIND差，2、在Worksheet_Change中改变单元格加Application.EnableEvents开关，不必做无谓的循环触动。Private Sub Worksheet_Change(ByVal Target As Range)
If Target(1).Address = ...

這個方法不會比羅版的速度慢...
支持下，學習了....

andysky · 发表于 2011-7-19 07:51

原帖由 opelwang 于 2011-7-19 01:01 发表

這個方法不會比羅版的速度慢...
支持下，學習了....

两者各有所长，不能抛开具体的数据来做比较。
Find优势在于目标少时循环的次数少，执行速度相当快。例如在10000个单元格中搜索目标，如果目标只有两个时，它只循环两次；而采用数组需要循环10000次。
当10000个单元格中有5000个以上的搜索目标时，Find就毫无优势了。所以谁快谁慢要看实际情况。

另外，本例中Application.EnableEvents开关使用与否无关紧要，大家可以测试速度，没有任何影响、功能也绝无影响。

[ 本帖最后由 andysky 于 2011-7-19 07:54 编辑 ]

dsmch · 发表于 2011-7-19 08:46

With [k3].Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(Dic1.items, ",")
End With
这种方法用于数据有效性，超过了88个就会出错，如果不借用辅助列，是否有其他办法解决？请版主指教。

[ 本帖最后由 dsmch 于 2011-7-19 08:58 编辑 ]

minjiwei · 发表于 2011-7-19 09:00

罗版有这么多好东西啊，收藏了

蓝天云朵 · 发表于 2011-7-19 09:15

谢谢分享，收藏学习。

cbtaja · 发表于 2011-7-19 09:21

原帖由 dsmch 于 2011-7-19 08:46 发表
With [k3].Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(Dic1.items, ",")
End With
这种方法用于数据有效性，超过 ...

大家都来给斑竹挑挑刺，呵呵

andysky · 发表于 2011-7-19 10:24

原帖由 dsmch 于 2011-7-19 08:46 发表
With [k3].Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Join(Dic1.items, ",")
End With
这种方法用于数据有效性，超过 ...

实际工作中当然根据自己的情况选择用什么方法
当字符长时,将Dic1.items写入辅助列,再将辅助列的地址写入有效性中才是上策

ctp_119 · 发表于 2011-7-19 10:26

原帖由贝妮于 2011-7-18 21:37 发表
就是不用数组，不不必一个个地写单元格，用COPY可以。看来版主就是版主，拍马屁的贼多，无语！

你无语，我更无语……

		自动登录	找回密码
密码			免费注册

[原创] Find查询与字典的应用

回复 14楼 andysky 的帖子