|
下面，介绍在VBA中使用代码给Excel工作表设置数据有效性。 我们先录制一段宏代码，从这里开始认识代表数据有效性的Validation对象。 如下图所示的工作表。选择单元格A1，单击“数据”选项卡中的“数据有效性”，在“数据有效性”对话框中，选取“允许”下拉框中的“整数”，选取“数据”下拉框中的“介于”，在“最小值”中填写“1”，在最大值中填写“20”，即只允许在单元格中输入1至20之间的整数。 
录制的代码如下：
对照上述代码，我们来看看Validation对象的属性和方法。 Range对象的Validation属性返回Validation对象，代表指定单元格区域中的数据有效性。 Validation对象有3个方法： Add方法：对指定的单元格区域添加数据有效性。 Delete方法：删除对象。 Modify方法：修改单元格区域的数据有效性。
Validation对象共有18个属性，其中的一些属性介绍如下： “设置”选项卡中的属性 
Type属性：返回一个Long型值，对应着XlDVType常量，代表数据有效性类型。其中，常量xlValidateWholeNumber，值为1，表示整数值；常量xlValidateDecimal，值为2，表示小数值；常量xlValidateList，值为3，表示序列；常量xlValidateDate，值为4，代表日期；常量xlValidateTime，值为5，代表时间；常量xlValidateTextLength，值为6，代表文本长度；常量xlValidateCustom，值为7，代表使用公式在验证数据；常量xlValidateInputOnly，值为0，代表仅当用户修改值时验证。 Operator属性：返回一个代表数据有效性运算符的Long型值。 Formula1属性：返回与数据有效性相关的值或者表达式，可以是常量值、字符串、单元格引用或公式。 Formula2属性：返回与数据有效性相关的值或者表达式，仅用于数据有效性条件Operator属性设置为xlBetween或xlNotBetween时。可以是常量值、字符串、单元格引用或公式。 IgnoreBlank属性：设置为True时，允许数据有效性区域有空值。 InCellDropdown属性：设置为True时，数据有效性显示包含可选取值的下拉列表。
“输入信息”选项卡中对应的属性 
ShowInput属性：设置为True时，在用户选取设置了数据有效性的单元格时显示输入信息。 InputTitle属性：返回或者设置数据有效性输入信息框中的标题。 InputMessage属性：返回或者设置数据有效性输入信息。
“出错警告”选项卡中对应的属性
ShowError属性：设置为True时，当用户输入无效数据时显示出错信息。 AlertStyle属性：返回出错警告样式，只读。其中，xlDVAlertStyle常量指定在消息框中的图标，xlValidAlertInformaion代表信息图标，xlValidAlertStop代表停止图标，xlValidAlertWarning代表警告图标。 ErrorTitle属性：返回或者设置数据有效性出错信息框的标题。 ErrorMessage属性：返回或者设置数据有效性的出错信息。
示例1：使用VBA给单元格设置数据有效性 如下图所示，给单元格区域C1:C5设置数据有效性，只能从下拉列表中选择单元格区域 A2:A6中的家用电器。 
代码如下：
示例2：修改单元格中的数据有效性 要求在上面已设置了数据有效性的区域中添加下拉列表条目。 
代码如下：
点击下面的文章标题查看前面相关的文章：
本文属原创文章，转载请联系我（xhdsxfjy@163.com）或者注明出处。
欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。
|
