Excel自定输入数据下拉列表

对Excel进行数据有效性设置，不仅可以方便的从下拉菜单中选择相应的数据，还可以保证输入数据的准确性。但是仍然有点不方便，那就是每次要点右边的那个黑箭头才能弹出相应的选项。


有没有只要选中单元格就会出现相应的选项，而并不需要点那个黑箭头呢？方法是有的，但是需要用到一点点的VBA代码，不要担心，很简单的，认真看看我写的注释就OK 了！


Private Sub Worksheet_SelectionChange(ByVal Target As Range) ’选定单元格时触发该事件
On Error GoTo Err ’当发生错误时跳转到Err处
If Target.Validation.InCellDropdown = True Then ’如果数据有效性检验显示含有有效取值的下拉列表，则该值为 True
Application.SendKeys "%{down}" ’向应用程序发送按键，"%{down}" 其实就是按下“Alt+↓”
End If
Err:
Exit Sub ’发生错误就退出该过程
End Sub

通过以上的代码就能实现即点即选，是不是觉得更方便了！

下面是第三种方法：


定义名称,来源=定义好的名称