这样自动显示下拉列表的功能可以实现吗？

lk710618

我套用前辈老师们的方法，整理了一个可以根据输入的关键字，自动提示相关内容的查询表，但是不够完美，我希望在输入关键字后，不是只显示下拉三角供我选择，而是自动显示下拉列表供选择，而且可以用方向键，控制光标上下移动，来选择想要的内容，可是不知道这样的功能能否实现，希望大师们给点意见。

dragonthree

左侧A列已经可以根据输入的关键字自动提示?
没有呀！没看到有VBA

lk710618

dragonthree 发表于 2015-2-11 14:02
左侧A列已经可以根据输入的关键字自动提示?
没有呀！没看到有VBA

不是使用的VBA，你输入一个关键字，再点下拉三角看看，           不过，我想自动显示下拉列表框，应该得用VBA了吧

山菊花

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column > 1 Then Exit Sub
    If Target.Row = 1 Then Exit Sub
    Application.SendKeys "%{DOWN}"
End Sub
这样不觉得给操作带来更多的方便。

kuangben8

数据有效性勉强凑合着用，非要智能化，只有VBA了。 09 根据关键字动态设置数据有效性.zip (14.37 KB, 下载次数: 648)

2015-2-11 14:35 上传

点击文件名下载附件

lk710618

山菊花 发表于 2015-2-11 14:34
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
...

山总，您的代码放进去后，不太适用，出现2个现象：1、点击A列，出现了下拉列表，但此时只能选择，无法录入了；2、按ESC键退出下拉列表后，录入关键字符，又不再调出下拉列表，只能再次点击下拉三角来选择，所以，这样真的不能给输入带来便捷。我想这主要问题还是您的代码不是针对我想要的结果来的。不过非常感谢山菊花老师的援手

lk710618

kuangben8 发表于 2015-2-11 14:35
数据有效性勉强凑合着用，非要智能化，只有VBA了。

哈哈，我的这个表，就是根据你的附件改来的。现在我就是想进一步改进一下，在录入第一个字后，不要用鼠标点击下拉三角，而是自动跳出下拉列表来，用方向键上下移动光标，来选择下拉列表中的内容（也就是用鼠标点击下拉列表，跳出下拉选择框的过程，由VBA自动执行）

lk710618

kuangben8 发表于 2015-2-11 14:35
数据有效性勉强凑合着用，非要智能化，只有VBA了。

我的水平还太菜，麻烦指导一下吧！

山菊花

不要过于钻这个牛角尖，基本上不可能实现你的目标。
关键一点在于，单元格和下拉列表虽紧密相连，但终究它们是两个部门，中间有道门槛。
处于激活状态的只能是其中一个，单元格或是下拉列表。
你在键盘上按一下↓，等于你发出一个通知，这个通知只能送达一个部门，只能送达到当前处于活动状态的部门，另一个东西（其实它不是东西，真不是东西）不会知道，它不是中统也是不是军统。
当你在单元格录入文字时，下拉列表被封闭，它不会理睬你需要什么，只有停止单元格录入时，点击一下三角按钮或按<Alt+↓>，它才被唤醒，才能为你服务。
下拉列表不是贴身秘书，它是有脾气的。

为什么说基本上不可能呢？话说回来，我也相信一切皆有可能，经常见到高手用API还是其它什么的，总能干出一些似乎不可能的事。
但我还是相信，常规办法几乎不可能。

论坛上不止你一人有这想法，实际上，大有人在。
人家是怎么干的？
用控件。在当前单元格上面覆盖一个文本框，设置隐形边框，让人觉得就是在单元格里干活，然后再在下面连接一个列表框控件伪装成数据有效性的下拉列表。用这两样东西组合，可以实现你想要的效果。
实际上，也不是很多人喜欢用。这是题外话了。

kuangben8

山菊花 发表于 2015-2-11 15:16
不要过于钻这个牛角尖，基本上不可能实现你的目标。
关键一点在于，单元格和下拉列表虽紧密相连，但终究它 ...

不过像2010版本的自动筛选功能里面的检索就非常好用！但是Excel单元格里好像很难办。