关于宏(vba)多键快捷键探讨(已实现)

a努力a · 发表于 2023-10-26 00:28:18

把自己的宏放到里面就可以了，数字可以改为其他。现在的问题是，当不输入直接回车时，sw会提示运行错误，要怎么去掉这个提示呢？
Sub a()
Dim userInput As Integer

' 提示用户输入数字
userInput = InputBox("请输入数字（0～9）：", "输入数字")

' 判断输入数字并弹出对应数字
Select Case userInput
      Case 0
         MsgBox "弹出数字：0"
      Case 1
         MsgBox "弹出数字：1"
      Case 2
         MsgBox "弹出数字：2"
      Case 3
         MsgBox "弹出数字：3"
      Case 4
         MsgBox "弹出数字：4"
      Case 5
         MsgBox "弹出数字：5"
      Case 6
         MsgBox "弹出数字：6"
      Case 7
         MsgBox "弹出数字：7"
      Case 8
         MsgBox "弹出数字：8"
      Case 9
         MsgBox "弹出数字：9"
      Case Else
         MsgBox "无效的数字！"
End Select
End Sub