检查工作表中是否存在无效数据？

Question

我如何知道VBA中是否存在工作表中的验证错误？我一直在调查range.validation对象，但我没有找到任何方法或属性来执行此操作。

Answer 1

喜欢的东西。 F9验证了1到10之间的任何数字

Option Explicit

Sub t()

Range("f9").Value = 100

Dim r As Excel.Range

Set r = ActiveSheet.UsedRange
Set r = r.SpecialCells(xlCellTypeAllValidation)

Dim c As Excel.Range

For Each c In r.Cells

    If Not c.Validation.Value Then
        Debug.Print c.Address & " is not validated"
    End If

Next c

End Sub