Excel联想输入（一输多）

msyangyi

{:912:}                                             

老糊涂

谢谢分享  

114yes

不错。学习了

小安安

{:011:}看看

hhl395015715

心无间丶

看看               

无聊的疯子

回复 yjwdjfqb 的帖子

将你文件中的  模块>拼音 整个删除,这样拼音模块就没有了!


用数字(1~9)选择对应项只能是当光标在 <列表框> 中时,因为 TextBox 主要是做为输入数据时查找是否有匹配项的
在附件中的数据是有包含 <数字> 的内容的,所以即时想使用此功能也只能是 数据中没有数字项的内容时才可行

使用 With Worksheets("数据库").Range("D4") 和 With sheet3.Range("D4") 效果是一样的,相对新人来说,后者更"适合"新人
因为 输入  sheet3. 后再输入一个 "R" 然后按 Ctrl + J 可以出现帮助列表框,  
而输入  Worksheets("数据库"). 再输入 "R" 然后再按   Ctrl + J  是不会出现帮助列表框的
也就是说只有使用内置默认的 方法才能出现列表框

联想输入的使用区域可以根据你的需要自行修改!

关于"不管输入框输入什么，选项框的光标始终在第一项中，这样我们就减少了一步按右方向键，才能进行选项的问题"
该问题是一个问题,首先光标要在Listbox中你才能做出选择,光标要在Textbox中你才能输入内容,在E中只有一个光标,所以没办法两边都做出反应

关于 "恢复"按键中的代码
  程序中使用的这个 Application.EnableEvents = False  意思是 "是否使用事件",False意思是"否",也就是关闭了工作表的事件功能
  程序最后 Application.EnableEvents =True  意思是"开启事件功能"
当程序运行过程中发生了错误,会出现"调试,终止"选项,也有可能直接终止,
该后果是 "事件功能在前面已关闭"(事件功能未开启) 那么,你选择联想输入使用区域的单元格,将不会出现联想输入提示框,也不会触发任何事件
所以"恢复"按钮主要是执行  Application.EnableEvents =True  代码  

kenking

看看，学习学习

yangkd

谢谢提供  很高兴下载观赏试试

007feiren

正在学习VBA，学习一下。