Question

关于VBA中InputBox的用法：如何让取消键有作用？ 还有就是变量为什么不能定义成integer？ 代码如下：

Private Sub CommandButton1_Click()
Dim amount As String ‘这里变量为什么不能定义成integer？
X:
amount = InputBox("请输入金额：")
If amount = "" Then
MsgBox "你没有输入金额，请重试！"
GoTo X
End If
If Not IsNumeric(amount) Then
MsgBox "只能输入数字，请重试！"
GoTo X
End If
End Sub

Answer 1

一、对【取消】键的判断：
amount = InputBox("提示", "标题", "缺省")
If StrPtr(amount) = 0 Then '这里就是判断【取消】按钮
MsgBox "点击了取消或按了 ESC 键"
End If

二、InputBox 默认返回的是 String 类型，所以一般情况下是不用 Integer 数据类型的。如果要用，有时就要对输入的字符进行判断。

Answer 2

用amount = Application.InputBox("请输入金额：", Type:=1) ‘不能为空，只能输入数字，否则弹出错误 ，取消就amount =0
Private Sub CommandButton1_Click()
Dim amount As Integer
amount = Application.InputBox("请输入金额：", Type:=1)
End Sub