显示"编号存储为文本"错误

时间:2016-03-22 14:43:37

标签: excel vba excel-vba

我使用高级过滤器,其中包括0和1。只有在数据表中,具有1和0的单元格具有错误消息"数字存储为文本"过滤器才能正常工作。显示。为此,我必须双击手动打开单元格,然后按Enter键。然后出现错误消息,过滤器工作。如果我不这样做,过滤器就不起作用了。

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

VBA是否可以自动执行此操作?

非常感谢你的帮助!

1 个答案:

答案 0 :(得分:2)

您会发现深埋在单元格的Range属性中,特别是在Errors集合中。只需找到存在错误的单元格,然后将Ignore属性设置为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