vba - 显示 "Number stored as Text"错误

Question

我正在使用带有 0 和 1 的高级过滤器等。仅当数据表中带有 1 和 0 的单元格显示错误消息“数字存储为文本”时，过滤器才能正常工作。为此，我必须通过双击手动打开单元格并按 Enter。然后出现错误消息并且过滤器工作。如果我不这样做，过滤器就不起作用。

或者，我可以单击带有 1 或 0 的单元格，然后按 F2 以显示错误消息。

VBA 有没有办法让我自动做到这一点？

非常感谢您的帮助!

Answer 1

您会发现它深藏在单元格的 Range 属性中，特别是在 Errors 集合中。只需找到存在该错误的单元格，然后设置 Ignore属性(property)给 True :

Public Sub IgnoreNumsAsText()
    Dim current As Range
    For Each current In ActiveSheet.UsedRange.Cells
        With current
            If .Errors.Item(xlNumberAsText).Value = True Then
                .Errors.Item(xlNumberAsText).Ignore = True
            End If
        End With
    Next current
End Sub