sub CellFormulaIsWrong()
if IsError(range("a1").value) = true then
msgbox "a1 单元格错误类型为:" & range("a1").text
Else
MsgBox "a1 单元格公式结果为:" & range("a1").value
end if
End Sub
sub CellFormulaIsWrong()
if IsError(range("a1").value) = true then
msgbox "a1 单元格错误类型为:" & range("a1").text
Else
MsgBox "a1 单元格公式结果为:" & range("a1").value
end if
End Sub