Find查询与字典的应用

Zamyi · 发表于 2011-7-19 10:56

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

实际应该中，也不必非用数据有效性不可，参考：
http://club.excelhome.net/viewth ... p;page=1#pid4858776

dsmch · 发表于 2011-7-19 11:04

多谢版主，用辅助列可以把整列写入公式，这样数据有效性数据就存在空格。
由于不重复的数据不确定，用其他公式测试了多次都没有成功，有没有办法避免空格或者用其他公式？

andysky · 发表于 2011-7-19 11:08

原帖由 dsmch 于 2011-7-19 11:04 发表
多谢版主，用辅助列可以把整列写入公式，这样数据有效性数据就存在空格。
由于不重复的数据不确定，用其他公式测试了多次都没有成功，有没有办法避免空格或者用其他公式？

代码可以自动排除空白区域的,这个倒是小问题了
用公式或者VBA都可以自动排除

dsmch · 发表于 2011-7-19 11:18

Formula1:="=$A$1:$A$" & x'x为变量
这样就行了，对大家的帮助表示感谢！

Zamyi · 发表于 2011-7-19 12:41

原帖由 andysky 于 2011-7-19 07:51 发表

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

1、用数组只循环一次即可，以一个数据为例子，即C2＝"测试"，数组只需0.031秒，而FIND需0.375秒；
2、不使用Application.EnableEvents开关，当CLEAR和.Value = arr时都调用Worksheet_Change，并在If Target(1).Address = "$K$3" Then退出，比当初逐个好不少，但也做了无用功。

ctp_119 · 发表于 2011-7-19 13:21

我的原则是，够用即可，如果有一天，发现自己设计的程序，速度跟不上了，这时我才会去改进。总之要有驱动理由，但这个理由自己时刻都在找！

jiminyanyan · 发表于 2011-7-19 13:24

这个学习一下。

kakaco · 发表于 2011-7-19 14:54

看来对VBA还是得慢慢来。

txygf · 发表于 2011-7-19 17:12

能不能用vba把这个解决下，或用公式完善下，学习学习，谢谢

循环引用.rar (5.66 KB, 下载次数: 28)

nonfish · 发表于 2011-7-19 17:56

收藏，学习。。。

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

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

回复 19楼 andysky 的帖子