Foxtable(狐表)用户栏目专家坐堂 → [分享] 超强查找替换


  共有16219人关注过本帖树形打印复制链接

主题:[分享] 超强查找替换

帅哥哟,离线,有人找我吗?
lsy
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
[分享] 超强查找替换  发帖心情 Post By:2013/6/18 16:38:00 [显示全部帖子]

表可选择,列不限数,类型不拘,自动标记。

(注:所有单元格,不管其值是何种数据类型,均按照文本(Text)处理,狐友在输入查找条件的时候,要考虑到文本比较的规则。逻辑值为假时,其值为False,而文本却为空,这影响到替换)

 


图片点击可在新窗口打开查看此主题相关图片如下:查找替换.jpg
图片点击可在新窗口打开查看
 


图片点击可在新窗口打开查看此主题相关图片如下:查找替换示例.jpg
图片点击可在新窗口打开查看 


 


以下内容只有回复后才可以浏览

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:查找替换筛选.table

[此贴子已经被作者于2013-6-19 15:10:28编辑过]

[本帖被加为精华]
 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/6/18 16:58:00 [显示全部帖子]

以下是引用狐狸爸爸在2013-6-18 16:46:00的发言:
不错,不过有个不足,按查找没有依次定位到所找到的单元格。

敬请狐爸锦上添花。


 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/6/19 15:14:00 [显示全部帖子]

查找、替换,自动标记,一目了然,连带筛选,不同于常用的筛选方法,特别是年、月、日的筛选,得心应手。

重新上传实例,希望能与更多的狐友交流。


 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/6/19 16:04:00 [显示全部帖子]

以下是引用ybil在2013-6-19 15:55:00的发言:
俺也頂!提個建議:何不利用數組簡化下一大堆的IF...END IF 呢?另 Tables(s).Rows(i).DataRow.SetError(colstr(j),cmbczz)這句既然只要 不為空都執行,就不用在每個判斷中都出現了吧?

你提的,已经试过,不行啦。俺也不想写那么啰嗦。数组绕几圈,也没见代码少多少。每段If ...End If,大体相同,想起来增加一种操作符,就复制、粘贴。方便的很。

[此贴子已经被作者于2013-6-19 16:07:58编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/6/19 17:36:00 [显示全部帖子]

以下是引用ybil在2013-6-19 17:32:00的发言:
肯定可以簡化些的,如:

If cmbczf = "等于" Then
       If Eval("""" & s1 & """ = """ & cmbczz & """")   Then
            Tables(s).Rows(i).DataRow.SetError(colstr(j),cmbczz)
            str+ = Tables(s).Rows(i)("_Identify") & ","
        End If
 End If

      

非常感谢。值得好好研究。


 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/6/20 12:04:00 [显示全部帖子]

以下是引用wqb1102在2013-6-20 12:02:00的发言:
多谢分享!
在数据较多时进行筛选或取消时,速度较慢,可能与进行标注有关,是否筛选结果不用标注更好!

取消标注很容易,相应的代码删除就行了。


 回到顶部
帅哥哟,离线,有人找我吗?
lsy
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/6/20 18:15:00 [显示全部帖子]

以下是引用wqb1102在2013-6-20 17:14:00的发言:
耗时较多,从64400条数据中筛选11000条(已取消标注), 耗时48秒,取消时间差不多,如果能优化一下会更好!
另一个相似的代码相同筛选,耗时3秒
[此贴子已经被作者于2013-6-20 17:19:50编辑过]

不知你是全表查找,还是单列查找。查的越多,耗时越多。


 回到顶部