Question

excel vba 调用函数返回结果可能是#VALUE!，如何写if判断？

Function qkh(对象 As String)
Dim a
Dim b
Dim c
Dim d
Dim x
a = Application.Find("(", 对象, 1)
b = Application.Find(")", 对象, 1)
c = Application.Find("（", 对象, 1)
d = Application.Find("）", 对象, 1)

If a= #VALUE! Then
qkh = Application.Replace(对象, c, c - d + 1, "")
Else:
qkh = Application.Replace(对象, a, b - a + 1, "")
End If

End Function

主要就是if a=#VALUE! 这个地方我不知道如何写，这样写肯定是不对的，各位高人帮忙解决一下！！多谢！！！！

Answer 1

其实差不多，你可以试试，不要用a=#VALUE!这个
改成 a.Text="#VALUE!"
就应该可以判断了！

Answer 2

If IsErr(a) Then