Excel VBA：單元格錯誤值

可將單元格錯誤值插入單元格，或者用 CVErr函數測試單元格的值是否爲某個錯誤值。單元格錯誤值可爲以下 XlCVError 常量之一。

常量	錯誤號	單元格錯誤值
xlErrDiv0	2007	#DIV/0!
xlErrNA	2042	#N/A
xlErrName	2029	#NAME?
xlErrNull	2000	#NULL!
xlErrNum	2036	#NUM!
xlErrRef	2023	#REF!
xlErrValue	2015	#VALUE!

Excel VBA教程：單元格錯誤值·示例

本示例將七個單元格錯誤值分別插入到工作表 Sheet1 的 A1:A7 單元格區域中。

myArray = Array(xlErrDiv0, xlErrNA, xlErrName, xlErrNull, _
    xlErrNum, xlErrRef, xlErrValue)
For i = 1 To 7
    Worksheets("Sheet1").Cells(i, 1).Value = CVErr(myArray(i - 1))
Next i

本示例檢查工作表 Sheet1 的活動單元格是否包含單元格錯誤值，如果有，則顯示一則消息。本示例可作爲針對單元格錯誤值的錯誤處理程序的模型結構。

Worksheets("Sheet1").Activate
If IsError(ActiveCell.Value) Then
    errval = ActiveCell.Value
    Select Case errval
        Case CVErr(xlErrDiv0)
            MsgBox "#DIV/0! error"
        Case CVErr(xlErrNA)
            MsgBox "#N/A error"
        Case CVErr(xlErrName)
            MsgBox "#NAME? error"
        Case CVErr(xlErrNull)
            MsgBox "#NULL! error"
        Case CVErr(xlErrNum)
            MsgBox "#NUM! error"
        Case CVErr(xlErrRef)
            MsgBox "#REF! error"
        Case CVErr(xlErrValue)
            MsgBox "#VALUE! error"
        Case Else
            MsgBox "This should never happen!!"
    End Select
End If