VBA输入框-取消和变量设置

Question

下面是我的代码。我正在编写一个宏来打开 Excel 报告第一页上的一个按钮，该按钮将根据用户使用的数字将用户带到报告中的不同选项卡。问题是如果我使用整数变量，如果用户取消该框或点击 x 则会发生错误。这些数字在这张纸上工作得很好。但是，如果我将其调暗为 Variant，则不再发生错误，但是输入的数字不再起作用。例如。 3 即使工作簿中有 8 张工作表，也会显示无效工作表框。我认为该变体导致输入数字的格式与整数不同？我想我可以使用 on error resume，但我只是想知道那会是什么样子。或者如果有另一种方法可以做到这一点而不使用该方法

Public Sub Summary_select()

     Dim x As Integer


     x = InputBox("Please Input The Sheet Number")


     If Not (IsNumeric(x)) Then
     MsgBox ("User Cancelled")
     ElseIf x = 0 Then
     MsgBox ("User Entered an Invalid Number of sheets")
     ElseIf x > Sheets.Count Then
     MsgBox ("User Entered an Invalid Number of sheets")
     Else
     Sheets(x).Activate
     Range("A1").Select
     End If

     End Sub

Answer 1

InputBox 返回一个String，所以Dim x as String

然后，一旦您确认它是数字并且在正确的范围内，就可以将其用作这样的数字：

Worksheets(Val(x)).Activate

对你的检查也做同样的事情：

ElseIf Val(x) = 0 Then

另外，稍微批评一下你的代码，如果用户输入 -1 会发生什么？从技术上讲，这是数字，但无效。

你应该使用 ElseIf Val(x) = 0 Then 而不是

ElseIf Val(x) < 1 Then

如果他们进入 1.5 会怎样？您可能还需要检查它是否为整数：

If IsNumeric(x) Then
  If Val(x) <> Int(x) Then
    MsgBox "Please enter an Integer"
  End If
End If

Answer 2

您收到错误的原因是，当用户单击输入框上的取消时，输入框输出一个空 字符串 - 但问题是您的 @987654321 @ 声明不能接受字符串。

所以你可以按照以下方式做一些事情：

On Error Resume Next
x = InputBox("Please Input The Sheet Number")
On Error Goto 0

如果将输入框传递给x时发生错误，则x = 0。

Answer 3

虽然我对 vba 核心功能知之甚少，但我已尝试修改您现有的代码以按照您想要的方式工作。试一试：

Public Sub Summary_select()
     Dim x As String

     x = InputBox("Please Input The Sheet Number")

     If Not IsNumeric(x) Then
        MsgBox ("User Cancelled")
     ElseIf x = 0 Then
        MsgBox ("User Entered an Invalid Number of sheets")
     ElseIf x > Sheets.Count Then
        MsgBox ("User Entered an Invalid Number of sheets")
     Else
        Sheets("Sheet" & x).Activate
        Range("A1").Select
     End If
End Sub