ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 24001|回复: 96

[分享] 最强大的智能提示表格模板 新增多项贴心设计 便于移植

  [复制链接]

TA的精华主题

TA的得分主题

发表于 2017-12-18 20:39 | 显示全部楼层 |阅读模式
本帖最后由 ggmmlol 于 2017-12-21 17:11 编辑


更新功能:
1、新增6项表格结构参数,便于移植;3项用户习惯参数,随心所愿;
2、自动检测输入内容的格式不符合Like运算符或正则表达式Test方法运算规则的错误(主要是小括号或中括号不配对造成),并以文本框改变背景 颜 色来提醒注意,但并不打断输入,保持工作连贯。当纠正后(比如继续输入了配对的右括号),就自动恢复正常显示,并完成模糊搜索。
3、匹配项的数量过多时,列表框字体自动变 色,超过双倍限值时,再次改变为红 色,并且结束无意义的搜索(这就意味着,你还需要输入更多字符,来缩小目标范围)
4、修正一处功能不稳定的Bug:弹出文本时框时,有自动改变为英文输入状态的功能,便于输入拼音进行模糊搜索。原代码中,此项自动切换的功能 不稳定,有时会失效,现在已经修正。新下载的朋友可以测试反馈一下。
5、贴心的自动卷屏功能,使输入单元格总显示在让你舒心的屏幕位置。一句小代码,几分人间情!
效果如图所示:
无标题.png

智能查询生成下拉列表.rar (58.37 KB, 下载次数: 1512)

评分

9

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-1-9 10:31 | 显示全部楼层
本帖最后由 ggmmlol 于 2018-1-9 18:30 编辑

这是为论坛会员imecco的求助贴做的应用实例。套用本模板,只需修改几个参数,充分说明了本模板确实是非常便于移植的。

原求助贴见:如何模糊匹配或者分类列表下拉
模糊查询应用实例_领料单.rar (99.11 KB, 下载次数: 994)


补充内容 (2019-11-29 12:10):
请各位自己对照修改移植。如需我帮你修改移植,请发站内短消息给我。

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-1-9 11:03 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
发一个效果图:

模糊查询_一键输入.png

TA的精华主题

TA的得分主题

发表于 2018-1-9 15:14 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 imecco 于 2018-1-9 15:18 编辑

确实很好用,我膜拜了,感觉像山顶洞人用上了激光武器哈哈
我原表是自己按需求然后百度列子慢慢加公式凑的,完全被楼主折服了
现在的问题是,这些列表的参数我上哪里修改啊?比如我希望在物品名称输入的时候才显示智能下拉菜单
因为习惯都是只记得名称,代码很少记得住。除了物品名称那一列我会把其他单元格锁死。
三列里面任何一个单元都回弹出下拉菜单也行

评分

2

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-1-9 19:13 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
imecco 发表于 2018-1-9 15:14
确实很好用,我膜拜了,感觉像山顶洞人用上了激光武器哈哈
我原表是自己按需求然后百度列子慢慢加公式凑的 ...

15楼附件,已经按你的反馈意见做了更新:把弹出提示框的列设在“产品名称” 所在的列。请重新下载使用。

对你20楼的问题,回复如下:
如果输入错了,想删除,可以根据情况如下处理:
1、按Delete键,删除文本框的全部内容,重新输入;
2、按BackSpace键(退格删除键)删除光标前方的一个字符。如果输错的字符不是恰好在光标的前面,可以按左右方向键调整光标的插入位置,再按退格删除键;但这种情况,更适合用第1种方式整体删除、再重新输入。
3、如果只是为了删除表格中的内容,而不再需要重新输入,则:先按Delete键,清空文本框的内容,再按回车键,就会把表格中当前行的自动输入项的单元格都予以清空(分成两步完成,这是特意设置的,因为自动宏会影响撤消功能,为避免误动作意外删除而不可恢复,需要按回车键确认一下)。在其它列,提示框不会显示,因此,删除、修改等动作都按常规方法,不受影响。

4、另外说明一下,开启“智能提示”时,由程序自动完成输入的各列,都不能设置保护,否则程序不能完成自动输入。   你可以按Ctrl+Shift+Z快捷键,随时关闭或重新开启“智能提示”功能。

TA的精华主题

TA的得分主题

发表于 2017-12-18 21:50 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2017-12-19 12:20 | 显示全部楼层
本帖最后由 hhrt321 于 2017-12-19 13:24 编辑


再请教大神下,如果我把数据表里单位的位置从D列改到E列,相应的拼音从E列改到F列,我要怎么改代码,
也就是说我要在数据表里单位前面加一列,如何修改代码而不影响现在的使用
还有全局键Ctrl + Shift + Z如果在搜索那个单元格使用,TextBox1和ListBox1都不会消失,而是一直显示!!

那个帖子我也问你了,怕你没看到,来这再说一次,谢谢!

TA的精华主题

TA的得分主题

发表于 2017-12-20 11:43 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2017-12-21 11:17 | 显示全部楼层
感谢楼主分享,楼主限制搜索行数的想法跟我不谋而合,我写过的代码中,只搜索30条匹配的数据,因为多余的选项是毫无意义的(谁也不会从上百条记录中选一个出来),且严重影响查询性能

TA的精华主题

TA的得分主题

 楼主| 发表于 2017-12-22 10:00 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
本帖最后由 ggmmlol 于 2017-12-22 10:44 编辑

再次更新:
1、增加2个与工作表结构相关的参数,用于给 源数据 与 目标数据的字段建立一 一对应的关系,这样,就可以适应 这两者相互 的顺序不一致,或各自的字段所在列不连续的问题。真正实现本模板对任意需要自动提示的表格的适应能力和移植的便利!

2、根据3楼的反馈,对禁用或启用自动宏的快捷命令代码进行小的调整:当禁用了自动宏时,现在直接把文本框和列表框隐藏,且取消原来改变列表框背景颜 色 的代码,同时当改变了自动宏功能的开启或禁止状态时,自动报告当前状态。

智能查询生成下拉列表.rar (63.4 KB, 下载次数: 573)

补充内容 (2018-1-4 00:32):
最新更新,请到12楼。

TA的精华主题

TA的得分主题

发表于 2018-1-1 20:35 | 显示全部楼层
本帖最后由 hhrt321 于 2018-1-1 20:38 编辑
ggmmlol 发表于 2017-12-22 10:00
再次更新:
1、增加2个与工作表结构相关的参数,用于给 源数据 与 目标数据的字段建立一 一对应的关系,这 ...

我只是改数据源表里面的单位列位置,录入表里不改变,不增加规格那一列,还是名称、型号、单位,而且录入表不能复制使用!!

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-1-1 21:19 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
hhrt321 发表于 2018-1-1 20:35
我只是改数据源表里面的单位列位置,录入表里不改变,不增加规格那一列,还是名称、型号、单位,而且录入 ...

把你的附件传上来吧。

TA的精华主题

TA的得分主题

发表于 2018-1-3 20:03 | 显示全部楼层
ggmmlol 发表于 2018-1-1 21:19
把你的附件传上来吧。

录入表不要规格这一列,录入表格能复制使用

智能查询生成下拉列表(修改).rar

56.47 KB, 下载次数: 183

TA的精华主题

TA的得分主题

 楼主| 发表于 2018-1-3 21:03 | 显示全部楼层
hhrt321 发表于 2018-1-3 20:03
录入表不要规格这一列,录入表格能复制使用

我6楼的更新,专门说明了是为你3楼的反馈而更新的。你看过了吗?
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-5-13 17:48 , Processed in 0.054092 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表