excel - VBA 在特定列中查找错误值

Question

Sub Macro9()
Dim LReturnValue As Boolean

LReturnValue = IsError(Sheets("Lookup Addition").Range("A:A").Value)

If LReturnValue = False Then
    i = MsgBox("there were no errors", vbOKOnly)
Else
    i = MsgBox("there were errors", vbOKOnly)
End If

End Sub

我对 IsError(Customfunction()) 语法应该是什么感到有些困惑。我们如何告诉它检查范围内的每个单元格？

Answer 1

计算范围内的错误不需要循环(如果范围很大，这可能会非常慢)甚至任何 VBA。

只需将此工作表函数添加到某个单元格中即可。如果您不希望用户看到此单元格，您可以隐藏行/列/工作表。

=SUMPRODUCT(ISERROR(A:A)*(1=1))

如果您仍然想要用户的弹出框，您的 VBA 现在将是:

Sub CountErr()  
     MsgBox "There are " & ActiveSheet.Range("B1").Value & " Errors"  
End Sub

说得通？