目录
示例：
实现代码：
Validation对象
Validation对象的Add方法
示例：
如图所示，该表为某公司员工的档案录入表。由于B列部门列经常需要重复录入，而且部门列表一般为固定的序列（如图2-58中E列所示），如何用VBA对B列创建下拉列表以便输入内容？
员工编号部门姓名 部门列表0006财务部程建华 财务部0009财务部李国敏 人事部0016财务部袁志刚 管理部0125人事部杨建军 市场部0209人事部曲波 销售部0017管理部周汉林 总经办0018管理部骈永富 0020管理部无心的冷风 0023管理部dbdxc 0072管理部刘志峰 0080管理部失眠的鸡实现代码： Option ExplicitSub 创建下拉列表() With Range("B2:B" & Rows.Count).Validation '删除已有数据有效性 .Delete '创建数据有效性，设置为序列，数据源为E列,"Formula1"最后一个字符是数字1 .Add Type:=xlValidateList, Formula1:="=" & Range("E2", Cells(Rows.Count, "E").End(xlUp)).Address End WithEnd Sub Validation对象
Validation是单元格的一个重要属性，它可以返回一个Validation对象。该对象用以控制单元格“数据有效性”。作为一个对象，Validation有其自有的方法和属性。在使用Validation之前，必须以Add方法创建一个数据有效性，然后才能对其属性进行赋值，否则
将会出现运行时错误。与Add方法相对的是Delete方法，其功能是清除数据有效性设置。
Validation对象的Add方法用于创建一个数据有效性，其语法为
VLD.Add (Type,[AlertStyle],[Operator],[Formulal],[Formula2]）其中，VLD代表一个Validation对象。参数Type为数据有效性的类型，可以为表中的任意常量。
表 Validation Add方法的Type参数
常 量
值
说 明
xlValidateCustom
7
使用任意公式验证数据有效性
xlValidateDate
4
日期值
xlValidateDecimal
2
数值
xlValidateInputOnly
0
仅在用户更改值时进行验证
xlValidateList
3
值必须存在于指定列表中
xlValidateTextLength
6
文本长度
xlValidateTime
5
时间值
xlValidateWholeNumber
1
全部数值
xlValidateDate
4
日期值
参数AlertStyle为警告样式，即发生错误时出现的警告，可以为xIValidAlertlnformation（出现信息）、xIValidAlertStop（停止录入）或xIValidAlertWarnin（出现警告）.参数Operator表不Formula1和Formula2的验证运算符，可以为表中的任意常量。表 Validation Add方法的Operator参数
常 量
值
说 明
xlBetween
1
介于。只在提供了两个公式的情况下才能使用
xlNotBenveen
2
不介于。只在提供了两个公式的情况下才能使用
lEqual
3
等于
xlNotEqual
4
不等于
xlGreater
5
大于
xlLess
6
小于
xlGreatetEqual
7
大于或等于
xlLessEqual
8
小于或等于
注意
在使用Add方法创建数据有效性之前，若单元格已经存在数据有效性设置，则必须先删除数据有效性之后才能创建，否则将出现如图所示的错误。因而，本例在创建数据有效性之前，首先使用了Delete方法以避免发生错误。