自动展开数据有效性下拉列表.xls

1-1 自动展开数据有效性下拉列表21 选择工作表单元格时自动展开数据有效性的下拉列表, 如下面的代码所示。 22 #001 Private Sub Worksheet _Selectio nChange(B yVal Target As Range) 2 #002 If lumn =5Then Applicati ys "%{down}" #003 End Sub 代码解析: 当选择工作表的 E列中有数据有效性的单元格时使 用 SendKeys 方法发送 Alt+ 向下键, 打开数据有效性的下拉列表。应用于 Applicatio n 对象的 SendKeys 方法将击键发送给活动应用程序,语法如下: expressio s(Keys, Wait) 参 数 expression 是可选的, 该表达式返回一 个 Applicatio n对象。参数 Keys 是必需的, 要发送的键或者组合键, 以文本方式表示。 Keys 参数可以指定任何单个键或与 Alt 、 Ctrl 或 Shift 的组合键(或者这些键的组合) 。每个键可用一个或多个字符表示。例如,"a" 表示字符 a, 或者"{ENTER} " 表示 Enter 。若要指定在按相应键时不会显示的字符(例如, Enter 或 Tab ), 请使用如表格 12 2所列的代码来表示相应的键, 表中的每个代码表示键盘上的一个键。键代码 Backspace {BACKSPA CE} 或{BS} Break {BREAK} Caps Lock {CAPSLOC K} Clear {CLEAR} Delete 或 D