《Excel VBA跟卢子一起学早做完，不加班(实战进阶版)》_提升工作效率_1.8.2 无效数据的提示和清除

【摘要】 本书摘自《Excel VBA跟卢子一起学早做完，不加班(实战进阶版)》一书中第1章，第8节，陈锡卢、李应钦著。

1.8.2 无效数据的提示和清除

无言：下面简单介绍Validation.Delete和Validation.Modify方法。

Validation.Delete 方法为清除指定区域原来的数据有效性设置。该方法不会清除已选择的 单元格内的数据有效性值，只会清除数据有效性的设置内容，即类似只清除单元格的格式而已， 不清除其值，语法如下。

删除数据有效性对象

Range.Validation.Delete

Validation.Modify 方法则是修改已存在的数据有效性对象的属性设置，其语法与Validation. Add 方法如出一辙——同样多的参数和同样的名称和作用，其语法如下：

修改指定区域的数据有效性验证

Range.Modify (Type,AlertStyle,Operator,Formulal,Formula2)

皮蛋：确实没有大的不同，只是名字和作用变了些许，这样我就可以参考你上面的代码进 行实操了。

无言：这里提供一段简短的代码(见代码1-37),还以是以区间判断为例子，稍微修改了 Formula₁和Formula2两个参数的值，其他还是依据原来创建时或者说修改前的设置。

001|Sub Val ModifyO

002| Worksheets(1),Range("D2:D19").Validation.Modify_

003| Type:=xIValidateWholeNumber,Operator:=xIBetween,

004 Formulal:=10,Formula2:=15

005|End Sub

无言：这段示例代码就不解释了，接下来要说的才是重点——标识无效的数据有效性以及 清除已标识的无效标识图标。

皮蛋：又玩韩跳跳啊，厉害了去。

无言：首先在E 列使用随机函数获取一个随机数，并在E 列创建一个自定义验证公式，公 式如下：

=RANDBETWEEN(-10,50)

=AND(E2>=0,E2<=50)

随机函数公式在单元格产生了一个-10~50间的随机整数，然后选中E2:E19区域，创建如

图1-30所示的数据有效性，接着单击如图1-31所示【数据有效性】中的②【圈释无效数据】, 就会出现一个图标，将不满足验证公式(结果为 False) 的单元格圈出来。

无言：按照图1-30所示的步骤设置好，再通过代码1-38示例过程即可圈释不满足验证公式

的单元格。

无言：执行代码1-38过程后，将圈释出图1-30的无效数据。该示例运用了Worksheet. Circlelnvali d方法，该方法属于工作表对象，其语法如下。

对工作表中的无效数据项进行圈释

Worksheet.Circlelnvalid

CircleInvali d 方法属于工作表对象，只要执行该方法，就能将指定工作表的所有不满足数 据有效性的数据圈释出来(见图1-32)。该方法无需指定区域，只要表中存在不满足数据有效 性的单元格都会被自动圈释出来，且该图标不影响单元格内的数据。

无言：有啊，还是用Delete方法就可以了。

ActiveSheet.Cells.Validation.Delete’清除激活工作表上的所有数据有效性

无言：如果是要删除指定区域的有效性，可以将ActiveSheet.Cells语句替换为Seletion属性 即可。关于数据有效性的使用也就讲到这里，下面讲解另外一个与条件有关的对象。

版权声明：本文内容由网络用户投稿，版权归原作者所有，本站不拥有其著作权，亦不承担相应法律责任。如果您发现本站中有涉嫌抄袭或描述失实的内容，请联系我们 [email protected] 处理，核实后本网站将在24小时内删除侵权内容。