文档介绍：1-1  输入指定类型的数据
使用InputBox方法输入数据时可以指定数据的类型,如下面的代码所示。
Sub dInput()
Dim dInput As Double
Dim r As Integer
r = ("A65536").End(xlUp).Row
dInput = (Prompt:="请输入数字:", Type:=1)
If dInput <> False Then
(r + 1, 1).Value = dInput
Else
MsgBox "你已取消了输入!"
End If
End Sub
代码解析:
dInput过程使用InputBox方法显示一个提示用户输入数字的对话框。
InputBox方法显示一个接收用户输入的对话框,返回此对话框中输入的信息,语法如下:
(Prompt, Title, Default, Left, Top, HelpFile, HelpContextId, Type)
参数expression是必需的,返回一个Application对象。
参数Prompt是必需的,作为对话框消息显示的字符串表达式。
参数Title是可选的,作为显示在对话框标题栏中的字符串表达式。如果省略Title参数,将使用默认的标题。
参数Default是可选的,在对话框显示时出现在文本框中的初始值。如果省略Default参数,则文本框为空。
参数Left是可选的,指定对话框相对于屏幕左上角的 x 坐标。
参数Top是可选的,指定对话框相对于屏幕左上角的 y 坐标。
参数HelpFile和参数HelpContextId是可选的,为对话框提供上下文相关的帮助和编号,如果提供了其中一个参数,则必须提供另一个参数,两者缺一不可。
参数Type是可选的,指定返回的数据类型。如果省略Type参数,对话框将返回文本。
InputBox方法的语法和InputBox函数的语法相似,最大的区别在于最后一个参数——Type。通过Type参数可以指定返回值的数据类型,表格 76‑1列出了Type参数可以使用的数值。
数值期望的返回值
0 一个公式
1 一个数字
2 文本(字符串)
4 一个逻辑值,例如true或false
8 一个单元格引用
16 一个错误值
64 一个值的数组
表格 76‑1 Type