excel - 确定是否按下了取消按钮，其中 InputBox 变量声明为 Double

Question

我将我的变量声明为 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: ...

我知道我用过 GoTo .这是让代码启动并运行的快速而简单的解决方法。

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

If thckmax = "" Then
    GoTo Line3
End If`

就确定是否按下取消并转到 Line3: 而言，我无法进行任何工作.

我发现的所有帖子都将声明的变量表示为字符串，我的是 double 的。

Answer 1

您可以尝试这样的事情来测试输入框是否被取消以及它是否为数字。

Dim thckmaxTest As String
Dim thckmax As Double

thckmaxTest = InputBox("What is the maximum nominal thickness?", "Enter Max Nominal Thickness Measurement")
If thckmaxTest <> vbNullString and IsNumeric(thckmaxTest) then thckmax = CDbl(thckmaxTest)
If thckmax = 0 Then
     GoTo Line3
End If

Dim thckminTest As String
Dim thckmin As Double 

thckminTest = InputBox("What is the minimum nominal thickness?", "Enter Min Nominal Thickness Measurement")
If thckminTest <> vbNullString and IsNumeric(thckmibTest) then thckmin = CDbl(thckminTest)
If thckmin = 0 Then
     GoTo Line3
End If
thcknom = (thckmax + thckmin) / 2
Worksheets(1).Range("C" & cols + 2).Value = thcknom