excel - 如何设置默认错误值？

Question

For i = 1 To UBound(CementContractNo())

On Error Resume Next
Row = Application.Match(CementContractNo(i), Range("A:A"), 0)
MsgBox Row

CementStartDate(i) = Cells(Row, ContractStartCol).Value

If Cells(Row, ContractExtCol).Value <> "" Then
    CementEndDate(i) = Cells(Row, ContractExtCol).Value
Else
    CementEndDate(i) = Cells(Row, ContractEndCol).Value
End If

Next i

我正在运行上面的代码来查找 Excel 表的开始日期和结束日期。但是，当查表失败时，它会返回错误。在这种情况下，我想指定一个默认错误值“Missing”或其他东西来跟进。知道怎么做吗？

Answer 1

使用这样的结构来精确控制出现错误时会发生什么

On Error Goto ErrHandling
'Your normal code

'at end of sub
ErrHandling:
'[Your code what happens when you get an error]
Resume Next 'will resume at previous location in code.

在这里阅读更多: http://www.cpearson.com/excel/errorhandling.htm