【数据有效性】（高级版本改名为”数据验证”）是Excel非常炫酷、实用的一个功能，相信大部分朋友都有使用过用它制作的下拉列表——什么？又讲【数据有效性】？别走！我们今天不讲怎么用【数据有效性】制作下拉列表，老调重弹不是俺星光的作风，今天我们讲……

打个响指，先问大家一个问题，使用【数据有效性】制作好的下拉菜单，需要几步？

1，  选取单元格

2，  单击单元格右侧的【下拉箭头按钮】

3，  在弹出的下拉列表中选择需要的选项

1——2——3——我数学学的好，一共三步，不服来辩！

是的，我就是这么无聊——我们今天就讲这个三步走。

这个三步能不能变成两步？第二步能不能省略？就是那个单击【下拉箭头按钮】的那步？我最近视力伴随脑力一起急剧下降， 实在很烦点击它！能不能我一选中有【数据有效性】的单元格，下拉列表就自动弹出来？

亲，伸出手，跟我来。

http://ww2/large/005IRek6gw1f54cx6hymhj3084064aa7.jpg

1，  快捷键Ctrl C复制下面的工作表事件代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    On Error Resume Next

    '程序出错时，继续执行下一步

    n = Target.Validation.Type

     '当单元格没有【数据验证】时，程序出错，但会继续执行

    If Err = 0 Then Application.SendKeys "%{down}"

    '如果程序没有出错，Err为0，即单元格有【数据验证】那么……

    '用SendKeys语句发送快捷键【ALT 方向键向下】，调取单元格的下拉列表

End Sub

2，  快捷键【Alt F11】调出VBE界面，在右侧的【工程资源管理器】中，左键双击相关工作表，比如此例，我想在名为【不一样的数据验证】工作表中使用代码，就双击【不一样的数据验证】工作表，最后Ctrl V将代码黏贴到该表右侧的代码窗口中。

http://ww4/large/005IRek6gw1f54czdj312j30lz0a4q79.jpg

3， 快捷键 Alt Q 关闭VBE界面，搞定。

当超人没有了三角裤——不是，当激活【数据有效性】下拉列表不再需要点击三角按钮——代码一两行，玩的就是这么酷，我的【数据有效性】就是和你的不一样~~你看：

http://ww1/large/005IRek6gw1f54dgjctabg30bm0cial4.gif

练手文件下载：http://pan.baidu.com/s/1nu7OPxn