新浪博客

玩的就是这么酷,我的数据有效性就是和你的不一样

2016-06-23 09:27阅读:
【数据有效性】(高级版本改名为”数据验证”)是Excel非常炫酷、实用的一个功能,相信大部分朋友都有使用过用它制作的下拉列表——什么?又讲【数据有效性】?别走!我们今天不讲怎么用【数据有效性】制作下拉列表,老调重弹不是俺星光的作风,今天我们讲……
打个响指,先问大家一个问题,使用【数据有效性】制作好的下拉菜单,需要几步?
1, 选取单元格
2, 单击单元格右侧的【下拉箭头按钮】
3, 在弹出的下拉列表中选择需要的选项
1——2——3——我数学学的好,一共三步,不服来辩!

是的,我就是这么无聊——我们今天就讲这个三步走。
这个三步能不能变成两步?第二步能不能省略?就是那个单击【下拉箭头按钮】的那步?我最近视力伴随脑力一起急剧下降, 实在很烦点击它!能不能我一选中有【数据有效性】的单元格,下拉列表就自动弹出来?
亲,伸出手,跟我来。
玩的就是这么酷,我的数据有效性就是和你的不一样

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将代码黏贴到该表右侧的代码窗口中。
玩的就是这么酷,我的数据有效性就是和你的不一样


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

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

我的更多文章

下载客户端阅读体验更佳

APP专享