8

我有一些我正在自动化和分发的大型数据集。我想消除警告用户存储为文本的数字的绿色小三角形。我使用了以下代码，但在大量纸张上非常慢。

     Range(Cells(1, 1), Cells(lastrow, lColumn)).Select
     'kill those dang green cell triagles
     Dim rngCell As Range, bError As Byte
         For Each rngCell In Selection.Cells

             For bError = 3 To 3 Step 1

                 With rngCell
                     If .Errors(bError).Value Then
                         .Errors(bError).Ignore = True
                     End If
                 End With
             Next bError
         Next rngCell

正如你所看到的，我已经将它减少到 1/7 的时间，而不是循环遍历我试图阻止的每个错误，但它仍然非常慢。

我也已经知道了

     Application.ErrorCheckingOptions.NumberAsText = False

但我不想使用它，因为我不想更改用户的系​​统设置。我想要循环的效果而不遍历所有单元格。我可以告诉 Excel 在不逐个单元格循环的情况下停止检查整个范围吗？

任何有效且快速的方法都会非常有帮助。先感谢您！！

4

5 回答 5

12

当 Range 大于单个单元格时，显而易见的答案 ( Range(...).Errors(3).Ignore = True) 似乎不起作用。

经过一番实验，我发现您可以手动选择单元格范围并单击出现的小弹出菜单并告诉它忽略该范围内的所有错误，但这似乎没有 VBA 等效项。

用宏记录器做这个实验没有记录任何东西，这通常表明实现这个功能的微软程序员不称职。

可悲的是，我认为这意味着除了循环之外没有其他解决方案。

有关的

于 2015-04-17T20:28:41.083 回答
8

您可以使用工作簿事件来打开和关闭用户的系统设置，并在完成后将设置恢复为原始值。

在 ThisWorkbook 对象中，放置一个记录其初始设置的 Open 事件，然后将其关闭。

Dim MyErrorCheckValue as Boolean

Private Sub Workbook_Open()
    MyErrorCheckValue = Application.ErrorCheckingOptions.NumberAsText
    Application.ErrorCheckingOptions.NumberAsText = False
End Sub

添加一个 BeforeClose 事件以在关闭文件时将其设置回原始值。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.ErrorCheckingOptions.NumberAsText = MyErrorCheckValue
End Sub

然后添加激活和停用事件，以便在用户打开或查看不同的电子表格时切换。

Private Sub Workbook_Activate()
    Application.ErrorCheckingOptions.NumberAsText = False
End Sub

Private Sub Workbook_Deactivate()
    Application.ErrorCheckingOptions.NumberAsText = MyErrorCheckValue
End Sub

您可以在工作表级别添加类似的事件，以便在工作簿中切换工作表时将其打开和关闭。

添加一些错误处理以将其设置回原始值也是明智之举，这样您就不会意外地将其置于错误状态，以防万一您的代码在某处出错。

于 2017-08-31T21:29:06.980 回答
4

首选的解决方案是在将字符串导入 Excel之前将其转换为数字。例如，当我使用 SQL 并且我将一些数值作为 a 存储在数据库中时，当我将其导入 Excel 时，我NVARCHAR将在 SQL 语句中使用 a 。CONVERT(int, colName)这将它作为一个数字引入，我不再收到该消息。

现在，如果您无法使用这种选项，您可以通过另一种方式修复该错误。只需将存储为文本错误的数字设置为等于自身的值范围。

例如：

Sub Test()

    Sheets("Sheet1").Range("A1:A3").Value = Sheets("Sheet1").Range("A1:A3").Value

End Sub

在A1:A3此示例中，您希望不再存储为文本的值范围。

由于您的数字有前导零，您可以更改这些单元格的格式以添加这些零：

Sub Test()

    Sheets("Sheet1").Range("A1:A3").Value = Sheets("Sheet1").Range("A1:A3").Value
    'This assumes your numbers are 11 digits long
    'Thus 11132 would display as 00000011132
    Sheets("Sheet1").Range("A1:A3").NumberFormat = "00000000000"

End Sub

这将更改显示以再次显示前导零。如果您以任何方式导出此数据，您可能必须采取措施确保此特定列导出为文本而不是数字，但如果没有具体细节，我无能为力。

于 2015-04-17T20:02:18.833 回答
1

我创建了一个漂亮的程序来将错误放在“忽略”列表中：玩得开心

Sub SetInconsistentFormulaErrorsFalse(rng As Range, _
Optional arrErrortypes As Variant = Null, _
Optional bIgnoreErrors As Boolean = True)

Dim cl As Range
Dim i As Integer

If IsNull(arrErrortypes) Then
   arrErrortypes = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
End If

For i = 0 To UBound(arrErrortypes) - 1
    For Each cl In rng.Cells
        cl.Errors(arrErrortypes(i)).Ignore = bIgnoreErrors
    Next
Next i


Set cl = Nothing

End Sub
于 2017-12-22T12:30:10.697 回答
0

原始发布者共享的代码似乎有错误。为了使它正常工作，我添加了添加到错误的.Item中：

Dim rngCell As Range, bError As Byte
For Each rngCell In Selection.Cells

    For bError = 1 To 4

        With rngCell
            If .Errors.Item(bError).value Then
                .Errors.Item(bError).Ignore = True
            End If
        End With
    Next bError
Next rngCell
于 2018-06-06T12:46:26.437 回答