小编A. *_*nes的帖子

确定是否在将InputBox变量声明为Double的情况下按下了Cancel Button

我将变量声明为double，以便可以对其执行数学运算。

我试图确定何时按下取消按钮。

Dim thckmax As Double

thckmax = InputBox("What is the maximum nominal thickness?", "Enter Max Nominal Thickness Measurement")
If thckmax = 0 Then
     GoTo Line3
End If

thckmin = InputBox("What is the minimum nominal thickness?", "Enter Min Nominal Thickness Measurement")
If thckmin = 0 Then
     GoTo Line3
End If
thcknom = (thckmax + thckmin) / 2
Worksheets(1).Range("C" & cols + 2).Value = thcknom
.
.
.
Line3: ...

Run Code Online (Sandbox Code Playgroud)

我知道我用过GoTo。这是一个快速轻松的修复程序，用于启动和运行代码。

我得到运行时错误13类型不匹配。我也试过CDbl(...)，StrPtr(...)，IsEmpty(...)和，而不是将它们设置等于零我也曾尝试