我想首先检查我的 Range 是否有 #NA 错误,然后在退出宏之前显示包含错误的单元格地址。这是我到目前为止所做的。
现在,如果出现错误,我想显示 MsgBox
警告用户错误并停止程序的其余部分执行,如果没有,那么我希望它继续执行程序的其余部分
检查 NA 错误:
For Each c In myRange
If IsError(c) = True Then
Debug.Print c.Address
End If
Next c
MsgBox "Check for errors and run gain"
Exit Sub
'continuation of the program
最佳答案
这会将所有错误的地址写入一个字符串,并在代码运行后显示它们:
Sub TestMe()
Dim myRange As Range
Dim myCell As Range
Dim errorList As String
Set myRange = Worksheets(1).Range("A1:C10")
For Each myCell In myRange
If IsError(myCell) Then
errorList = errorList & vbCrLf & myCell.Address
End If
Next
If Len(errorList) > 0 Then
MsgBox errorList
Exit Sub
End If
End Sub
在循环之后,检查
1Len(errorList)
如果大于 0,则显示 MsgBox
并退出潜艇。关于excel - 出错时显示单元格地址和消息框并退出宏,如果没有,继续,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/59012526/