如何在VBA MS Word中实现iferror功能

时间:2017-08-14 03:51:07

标签: vba ms-word

我只想问:我如何实施" EXCEL"功能如:

iferror
iserror

在VBA" WORD"。我知道如何在excel中做到这一点,但不是在言语中。

e.g。 (EXCEL)

application.worksheetfunction.iferror( ... )

但我在MSWord中执行代码。上述功能似乎不起作用。

Q1。有可能吗?

Q2。如果是的话,你能在代码模式上启发我吗?

我尝试搜索谷歌的答案,但似乎都指向excel方法。非常感谢你..

编辑:

为了详细说明我的问题,我在Word中有一个用户表单应该收集数值并存储在变量

  

qty1,qty2 ... qty18,然后是uc1,uc2 ... uc18

所以如果我处理变量

If Me.qty1.Value * Me.uc1.Value <> 0 Then
    tot1 = Me.qty1.Value * Me.uc1.Value
Else
    tot1 = ""
End If

它给了我错误:

  

类型不匹配

因为当我把qty2留给qty18为空时,它就像在excel中一样被理解为空字符串(?)。

还有其他办法吗?

1 个答案:

答案 0 :(得分:0)

试试这个

Dim aaa As Double
Dim bbb As Double
Dim tot1 As Double

aaa = Me.qty1.Value
bbb = Me.uc1.Value

tot1 = 0

If IsNumeric(aaa) And IsNumeric(bbb) Then

    tot1 = Val(aaa) * Val(bbb)

end if