#012 Private Sub Worksheet_Change(ByVal Target As Range)
#013 If Target.Column = 1 And Target.Row > 1 And Target.Count = 1 Then #014 With Target.Offset(0, 1).Validation #015 .Delete
#016 Select Case Target #017 Case \主机\
#018 .Add Type:=xlValidateList, _ #019 AlertStyle:=xlValidAlertStop, _ #020 Operator:=xlBetween, _
#021 Formula1:=\#022 Case \显示器\
#023 .Add Type:=xlValidateList, _ #024 AlertStyle:=xlValidAlertStop, _ #025 Operator:=xlBetween, _
#026 Formula1:=\三星17,飞利浦15,三星15,飞利浦17\#027 End Select #028 End With #029 End If #030 End Sub
代码解析：
第1行到第11行代码，工作表的SelectionChange事件，当选择工作表的A列单元格时，在A2以下的单元格中建立动态的数据有效性。
其中第2行代码，利用SelectionChange事件的Target参数来限制事件的触发条件。 第3行到第9行代码使用Add方法在A列单元格中建立数据有效性。应用于Validation对象的Add方法请参阅技巧1。
第12行到第30行代码，工作表的Change事件，当工作表A列单元格内容改变时，在B列单元格中建立动态的数据有效性。
其中第16行到第27行代码，根据A列单元格的内容在B列对应的单元格中建立数据有效性，其Formula1参数的值根据A列单元格的内容而变化，使之达到动态数据有效性的效果，如图 x-1、图 x-2所示。
图 x-1
动态数据有效性1
图 x-2
动态数据有效性2
4. 自动展开数据有效性下拉列表
选择工作表单元格时自动展开数据有效性的下拉列表，如下面的代码所示。
#001 Private Sub Worksheet_SelectionChange(ByVal Target As Range) #002 If Target.Column = 5 Then Application.SendKeys \#003 End Sub
代码解析：
当选择工作表的E列中有数据有效性的单元格时使用SendKeys方法发送Alt+向下键，打开数据有效性的下拉列表。
应用于Application对象的SendKeys方法将击键发送给活动应用程序，语法如下：
expression.SendKeys(Keys, Wait)
参数expression是可选的，该表达式返回一个Application对象。 参数Keys是必需的，要发送的键或者组合键，以文本方式表示。
Keys参数可以指定任何单个键或与Alt、Ctrl 或Shift的组合键（或者这些键的组合）。每个键可用一个或多个字符表示。例如，\ 表示字符 a，或者 \ 表示 Enter。
若要指定在按相应键时不会显示的字符（例如，Enter 或 Tab），请使用如表格 x-2所列的代码来表示相应的键，表中的每个代码表示键盘上的一个键。
键 Backspace Break 代码 {BACKSPACE} 或 {BS} {BREAK} Caps Lock Clear Delete 或 Del End Enter Enter（数字小键盘） Esc F1 到 F15 Help Home Ins Num Lock Page Down Page Up Return Scroll Lock Tab 向上键 向下键 向右键 向左键 {CAPSLOCK} {CLEAR} {DELETE} 或 {DEL} {END} ~（波形符） {ENTER} {ESCAPE} 或 {ESC} {F1} 到 {F15} {HELP} {HOME} {INSERT} {NUMLOCK} {PGDN} {PGUP} {RETURN} {SCROLLLOCK} {TAB} {UP} {DOWN} {RIGHT} {LEFT} 表格 x-2 按键代码
xi. 单元格中的公式
1. 在单元格中写入公式
使用Range对象的Formula属性可以在单元格区域中写入公式，如下面的代码所示。
#001 Sub rngFormula()
#002 Sheet1.Range(\
#003 End Sub
代码解析：
应用于Range对象的Formula属性返回或设置A1样式表示的Range对象的公式，语法如下：
expression.Formula
参数expression是必需的，返回一个Range对象。
还可以使用FormulaR1C1属性返回或设置以R1C1-样式符号表示的公式，如下面的代码所示。
#001 Sub rngFormulaRC()
#002 Sheet2.Range(\#003 End Sub
如果需要在单元格中写入数组公式则使用Range对象的FormulaArray属性。如下面的代码所示。
#001 Sub RngFormulaArray()
#002 Sheet3.Range(\#003 End Sub
Range对象的FormulaArray属性返回或设置单元格区域的数组公式。
2. 检查单元格是否含有公式
使用单元格的HasFormula属性检查单元格是否含有公式,如下面的代码所示。
#001 Private Sub CommandButton1_Click() #002 Select Case Selection.HasFormula #003 Case True
#004 MsgBox \公式单元格!\#005 Case False
#006 MsgBox \非公式单元格!\#007 Case Else
#008 MsgBox \公式区域：\& Selection.SpecialCells(xlCellTypeFormulas, 23).Address(0, 0)
#009 End Select #010 End Sub
代码解析：