实现输入字符后自动显示符合条件的下拉选项

huang1314wei

daxiaotong 发表于 2016-3-26 22:22
感谢您的帮助，可是我在您的附件中没有看到代码哈，还请指点

附件有代码的，在录入表点击C列单元格，输入你要搜索的关键字，然后选中即可完成输入，如图

huang1314wei

qwwyyc 发表于 2016-3-26 22:34
在B列实现，打错字了

If Target.Column <> 3 Then Me.TextBox1.Visible = False: Me.ListBox1.Visible = False: Exit Sub

当中的3改成2

qwwyyc

huang1314wei 发表于 2016-3-26 22:36
If Target.Column  3 Then Me.TextBox1.Visible = False: Me.ListBox1.Visible = False: Exit Sub

当 ...

谢谢老师指点！

daxiaotong

huang1314wei 发表于 2016-3-26 22:34
附件有代码的，在录入表点击C列单元格，输入你要搜索的关键字，然后选中即可完成输入，如图

谢谢指点，代码找到了。若基础数据表里有两列，分别对应录入表两列不同的内容，如何更改？

qwwyyc

huang1314wei 发表于 2016-3-26 22:36
If Target.Column  3 Then Me.TextBox1.Visible = False: Me.ListBox1.Visible = False: Exit Sub

当 ...

老师，我按您的指点已更改完成，实现了功能，但不能用鼠标点击选取，不知道是哪里没有对，现上传附件，请老师看一下，谢谢老师

qwwyyc

huang1314wei 发表于 2016-3-26 22:36
If Target.Column  3 Then Me.TextBox1.Visible = False: Me.ListBox1.Visible = False: Exit Sub

当 ...

现在测试出的问题是，点击1次择取后，第2次就不能选取，然后点击其它单元格，再回来点击这个单元格输入后又能选择，如此重复，您为上个同学写的代码就不会出现这个情况，是不是我哪里没有改对？还是我的数据太多的问题？数据还会不断增加，请老师帮忙看一下，先前附件忘记取消密码了，这次取消了重新上传，感谢老师！

huang1314wei

qwwyyc 发表于 2016-3-26 23:23
现在测试出的问题是，点击1次择取后，第2次就不能选取，然后点击其它单元格，再回来点击这个单元格输入后 ...

问题已经解决，就是速度没有之前理想

附件参考.rar (347.04 KB, 下载次数: 222)

2016-3-27 13:44 上传

点击文件名下载附件

huang1314wei

daxiaotong 发表于 2016-3-26 22:47
谢谢指点，代码找到了。若基础数据表里有两列，分别对应录入表两列不同的内容，如何更改？

请提供两列的数据源

qwwyyc

huang1314wei 发表于 2016-3-27 13:44
问题已经解决，就是速度没有之前理想

老师改的问题已解决，就是速度有点影响，还有，就是请教老师，输入完整的姓名后，可否直接按回车提交，而不用再去选择输入，因为打五笔的，有些名字都是词组，基本上直接就打出来了，为了提高效率，输入完成后直接回车键就提交了，如果可以实现，烦请老师再帮忙看看该如何改，衷心感谢

daxiaotong

huang1314wei 发表于 2016-3-27 13:45
请提供两列的数据源

好的，数据已经上传，麻烦您了