Excel中的InputBox确定与取消之间的区别

Question

我想要一个简单的输入框，如果我按“取消”，则不清空单元格，保留先前的单元格内容，但是当我按“确定”时，它将在单元格中显示我输入的任何内容，如果我没有输入任何会显示一个空单元格的内容。 （仅当按下ok时）。

Answer 1

使用Application.InputBox Method：

Option Explicit

Public Sub AskForInput()
    Dim Response As Variant
    Response = Application.InputBox("type something")

    If Not (VarType(Response) = vbBoolean And Response = False) Then
        Worksheets("Sheet1").Range("A1").Value = Response
    End If
End Sub

请注意，(VarType(Response) = vbBoolean And Response = False)检查是否按了取消键。如果输入框为空，然后按OK，则仍将清空单元格。

还要注意，我们还需要在此处检查VarType的{​​{1}}，否则它将把Response的输入视为0并取消。