无法正确取消 Application.Inputbox

Posted 2023-04-18

【中文标题】无法正确取消 Application.Inputbox

【英文标题】：Can't Cancel Application.Inputbox Properly

【发布时间】：2015-12-14 14:04:48

【问题描述】：

因此，此代码一直有效，直到您决定点击 Cancel 或使用 X 关闭输入框窗口，此时它会为您提供：

运行时错误“424”：

需要对象

然后它在调试中突出显示这部分代码：

Set ranC = Application.InputBox("Select the Cal B table.", Type:=8)

我似乎无法使用零字符串长度字符串测试来取消此应用程序。我需要能够关闭当前工作簿，显示用户窗体并退出子。

这是我的代码：（只要您选择了某些内容并且不取消或关闭，该代码就可以工作）

Sub popCheckVals()
Dim ranC As Range, calBC(1 To 39) As Variant, i As Integer, j As Integer, k As Integer, l As Integer
dozerCal.Hide

Set ranC = Application.InputBox("Select the Cal B table.", Type:=8)

l = 1
For j = 1 To 13
    For i = 1 To 3
        calBC(l) = ranC(j, i)
        l = l + 1
    Next
Next
 mltn = calBC(1)
 mlte = calBC(2)
 mltelev = calBC(3)
 rltn = calBC(4)
 rlte = calBC(5)
 rltelev = calBC(6)
 mrtn = calBC(10)
 mrte = calBC(11)
 mrtelev = calBC(12)
 rrtn = calBC(13)
 rrte = calBC(14)
 rrtelev = calBC(15)
 smltn = calBC(22)
 smlte = calBC(23)
 smltelev = calBC(24)
 srltn = calBC(25)
 srlte = calBC(26)
 srltelev = calBC(27)
 smrtn = calBC(31)
 smrte = calBC(32)
 smrtelev = calBC(33)
 srrtn = calBC(34)
 srrte = calBC(35)
 srrtelev = calBC(36)

    ActiveWorkbook.Close
    dozerCal.Show
End If
End Sub

【问题讨论】：

您好，dozercal 是什么？而你错过了一个 IF，我猜是在“l = 1”中。

dozerCal 是一个用户表单，大部分信息都来自

【参考方案1】：

当用户点击Cancel按钮时InputBox返回False，它不是Range对象，不能赋值给ranC。处理此问题的一种方法是将这部分代码包装在错误处理程序中：

    On Error Resume Next
    Set ranC = Application.InputBox("Select the Cal B table.", Type:=8)
    If Err.Number = 424 Then
        ' Handle cancel button
        Debug.Print "User cancelled"
        Exit Sub
    ElseIf Err.Number <> 0 Then
        ' Handle unexpected error
        Debug.Print "Unexpected error"
    Else
        ' Your code here
    End If
    On Error GoTo 0    ' This line could go in the else block

【讨论】：

您的解决方案是我最终的想法，但从未真正使用过错误处理程序，因此非常感谢您的解决方案并且效果很好。