第33集 InputBox函数方法应用
146、 InputBox函数
语法:InputBox(Prompt[, Title] [, Default] [, XPos, YPos] [, Helpfile, Context])
147、 Application的InputBox方法
比InputBox函数最后多一个参数。
语法:Application.InputBox(对话框显示内容,输入框标题,文本框内默认值,x坐标,y坐标,帮助文件,帮助文件上下文ID,文本框内输入类型)
最后一个参数数值说明:
值 含义
0 公式
1 数字
2 文本 (字符串)
4 逻辑值 (True 或 False)
8 单元格引用,作为一个 Range 对象
16 错误值,如 #N/A
64 数值数组
148、 InputBox基本应用
经过测试发现当不输入任何内容直接点确定都会返回空,InputBox函数点取消返回空,Application的InputBox方法点取消返回False,点关闭和点取消的返回值一样。
'1 输入的内容返回给一个变量
Sub test1()
Dim sr
sr = InputBox(“输入测试”, “测试”, 100)
MsgBox sr
sr = Application.InputBox(“输入测试”, “测试”, 100)
MsgBox sr