[分享]高级查找搜索工具加载宏

SpeedRat · 发表于 2006-11-16 00:02

打开其它工作簿进行查找时也是相同的值

sFindStr=查找的关键词

LookinFlag=-4163

LookatFlag=2

bMatchCase=False

bMatchByte=False

northwolves · 发表于 2006-11-16 00:09

wb.Name, sht.Name的值看不到,估计问题就在这里

SpeedRat · 发表于 2006-11-16 00:14

打开其它工作簿能正常查找时(加载宏不出错)，wb.Name, sht.Name的值也是看不到。其它值相同。

sFindStr=查找的关键词

LookinFlag=-4163

LookatFlag=2

bMatchCase=False

bMatchByte=False

SpeedRat · 发表于 2006-11-16 00:33

奇了怪了!

我将C工作簿删除只剩几个工作表时，工作表的命名规则也是含有“-”或“()”时，可以正常查找。

C工作簿中的工作表数量少时，不管是打开多少个工作簿，也不管是在哪个工作簿中调用这个加载宏，可以正常使用。

但工作簿中的工作表数量一多了就不行(近几百个工作表)。

就算是只打开一个工作簿，只要工作表的数量太多(具体极限的数量没测试过，但我的200个工作表就会出错了)，不管查找范围中是选择“当前工作簿”还是“所有打开的工作簿”，都会出错。

[此贴子已经被作者于2006-11-16 3:21:46编辑过]

SpeedRat · 发表于 2006-11-16 12:51

请哪位帮忙解决！

爱歌学习 · 发表于 2006-11-16 20:30

不可能看不到啊，是你查看方式不对吧？你选中

Select Case CombRange.ListIndex

这一句，按 F9 设置断点，然后再回到主界面，运行程序，弹出窗口，输入条件，点击确定，光标会停在断点，接着按 F8 ，如果停在

Call SearchInSheet(wb.Name, sht.Name, sFindStr, LookinFlag, LookatFlag, bMatchCase, bMatchByte)

这一句，选中 sht.Name ，点右键，选“添加监视”，就可以在下方看到 sht.Name 的值，应该能看到是哪个表出问题～

SpeedRat · 发表于 2006-11-16 22:34

找出来了。就在出错的那个工作表中VBE编辑器中看到一个英文字母“D”，删除掉即可。(是以前我删除掉VBA代码时没删除干净)

可想不明白：为什么这个会影响这个加载宏的搜索呢？不是只是搜索单元格中的值的吗？

谢谢爱歌学习：知道怎么用设断点来测试，可一直纳闷这个“添加监视”是怎么用的，现在终于搞清楚了。

爱歌学习 · 发表于 2006-12-30 09:21

添加了不打开工作簿查找(不显示工作簿)及显示整行结果，收进了我的加载宏[em24]

liujy · 发表于 2006-12-30 09:34

谢谢斑竹分享！斑竹辛苦了！！再次向斑竹的无私奉献表示感谢！！！

zenitron · 发表于 2006-12-30 11:21

清风大师的作品真的太经典了。

不知是否可以

当点查询结果的时候，可以直接指向并显示到该单元格。

因为如果搜索结果在工作表的100多行时，必须自己拉动

滚动条往下找。很麻烦

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