pb判断数据窗口是否是有效数据

发布网友发布时间：2023-02-22 14:35

共1个回答

热心网友时间：2024-02-27 20:25

步骤一：选择需要进行判断的单元格区域，比如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，则有设置数据有效性。