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

Question

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

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

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

我该如何更改它，以便如果我在这一步点击取消，那么它只会跳到下一步而不更改单元格中的内容？我不希望它结束​​ sub，我只想让它跳到代码中的下一行。

谢谢您的帮助。

Answer 1

这应该做的工作：

暗淡为字符串
s = InputBox(Prompt:="请输入样品名称", Title:="样品名称")
如果 s <>"" 那么 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