除非用户输入为空，否则如何显示InputBox

Question

我有VBA程序，用户输入数字或字符串直到他们想要结束程序，所以他们输入一个空字符串，按Enter键而不输入任何内容。 这是目标。

当我运行时，我收到错误：

  

编译错误：

     

参数不是可选的

这是代码：

Sub enterinputs()
inputs = 1
Do While IsEmpty(inputs) = False
    inputs = InputBox("Enter names of inputs. Leave blank + Enter to stop.", title)
    Trim(InputBox.Value & inputs) = inputs
Loop
End Sub

Answer 1

您可以测试 错误 ：

Sub WhatIsTruth()
   Dim v As Variant
   v = True

   Do Until v = False
      v = Application.InputBox(Prompt:="Enter Value", Type:=1)
   Loop
End Sub

这样您就可以输入要处理的数字，也可以检测取消或 x 。