excelvba实现数据有效性（VBA的数据有效性属性）

威哥 2023-05-25 21:46:15 745

excelvba实现数据有效性（VBA的数据有效性属性）.IgnoreBlank = True xlBetween Formula1:="完成未完成" With Range("a6:a105").Validation .Delete .Add Type:=xlValidateList AlertStyle:=xlValidAlertStop Operator:= _

上一篇，用Excel做了一个计划清单，设置里面就用到了Validation属性。

Office套件里面，有两个软件可以对大量的数据进行处理。Excel和ACCESS。两个软件各有优缺点吧。Excel相对ACCESS来说，最大的优点是数据的格式更加的灵活，但是格式的灵活也带来了一个很显著的问题。就是汇总的表格的分表由不同人，有可能导致分表不一致，从而导致汇总困难。当然这种解决的方式有很多。但是我认为用数据的有效性，就是一个很好的方式，它可以设定每个表格填写的内容、字符、格式等。

下面具体的来看一下Validation属性。

以上一篇使用过的代码为例：

Sub 开始前的设置()

With Range("a6:a105").Validation

.Delete

.Add Type:=xlValidateList AlertStyle:=xlValidAlertStop Operator:= _

xlBetween Formula1:="完成未完成"

.IgnoreBlank = True

.InCellDropdown = True

.InputTitle = ""

.ErrorTitle = ""

.InputMessage = ""

.ErrorMessage = ""

AlertStyle 可选参数。验证警告样式。可为以下 XlDVAlertStyle 常量之一： xlValidAlertInformation 、 xlValidAlertStop 或 xlValidAlertWarning 。

Operator 可选参数数据验证运算符。可为以下 XlFormatConditionOperator 常量之一： xlBetween 、 xlEqual 、 xlGreater 、 xlGreaterEqual 、 xlLess 、 xlLessEqual 、 xlNotBetween 或 xlNotEqual 。(即数据的选取是两者之间，或者大于、小于等条件)

Formula1 可选参数。数据有效性的第一部分。

Formula2 可选参数。当 Operator 为 xlBetween 或 xlNotBetween 时作为数据的有效性的第二部分。

根据 Type 类型的不同。要求的参数验证类型也不一致。

excelvba实现数据有效性（VBA的数据有效性属性）(1)