如果在InputBox中按下取消，则跳到下一步

Question

我目前正在运行一个带有如下所示的InputBox代码的宏：

ActiveCell.Value = InputBox(Prompt:="Please enter the sample name", Title:="Sample name")

当我在ActiveCell中没有任何文本时，它非常适用，但如果已有文本，如果我点击取消则会清除文本。

如何更改此设置，以便在此步骤中点击取消，然后它将跳到下一步并且不会更改单元格中的内容？我不希望它结束​​sub，我只是希望它跳到代码中的下一行。

感谢您的帮助。

Answer 1

这应该做的工作：

Dim s as String
s = InputBox(Prompt:="Please enter the sample name", Title:="Sample name")
If s <>"" Then ActiveCell.Value = s

Answer 2

试试这个：

Dim a As Variant
a = Application.InputBox(Prompt:="Please enter name", Title:="Sample name")
If a <> False Then
    ActiveCell.Value = a
End If