一个excel工作表，如何判断哪些师傅设置了数据有效性。除了我们前面文章：《怎样取消和删除数据有效性的方法》中介绍的定位法以外，还可以使用VBA代码来判断是否有数据有效性设置。
第一，判断选取的单元格区域是否有数据有效性设置
步骤一：选择需要进行判断的单元格区域，比如A1：A5
步骤二：按ALT+F11组合键，打开VBE编辑器。
步骤三：单击“插入”→“模块”，在新建模块中复制下面的代码：
Sub 数据有效性是否判断()
On Error GoTo 错误
If ActiveCell.Validation.Type > 0 Then MsgBox "选区存在数据有效性": Exit Sub
错误: MsgBox "选区没有数据有效性"
End Sub
步骤四，按工具栏中的“运行”按钮。如果选择的单元格区域有数据有效性设置，那么弹出消息框：选区存在数据有效性。反之，消息框显示：选区没有数据有效性。
第二，判断一个单元格是否有数据有效性设置
参考上面介绍的方法，将代码改为：
Sub 数据有效性是否判断()
On Error GoTo err
VT = Range("A7").Validation.Type
MsgBox "此单元格设置了数据有效性"
Exit Sub
err:
MsgBox "此单元格没有设置数据有效性"
End Sub
代码解释：代码以A7单元格来举例的。其中用Validation.Type判断，如果 Validation.Type 发生错误，则没有设置，如果返回数字 1—7，则有设置数据有效性。
核心关注：拓步ERP系统平台是覆盖了众多的业务领域、行业应用，蕴涵了丰富的ERP管理思想，集成了ERP软件业务管理理念，功能涉及供应链、成本、制造、CRM、HR等众多业务领域的管理，全面涵盖了企业关注ERP管理系统的核心领域，是众多中小企业信息化建设首选的ERP管理软件信赖品牌。
转载请注明出处：拓步ERP资讯网http://www.toberp.com/
本文标题：判断单元格是否有数据有效性设置的方法
相关文章
