赞
踩
- Sub test201()
-
- 'inputbox()
- 'InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
- '参数传递
-
- '必选参数
- '可选参数
- '按顺序传递参数
- '按名称传递参数
-
-
-
- a = InputBox("请输入一个数字", "输入框")
- Debug.Print a
-
- b = InputBox("请输入一个数字", "输入框", 999, 10240, 10240, "help.hlp", Context:=55)
- Debug.Print b
-
-
- c = InputBox("请输入一个数字", , , , , "help.hlp", Context:=55)
- Debug.Print c
-
- '单一写法,但是按次序传递参数
- d = InputBox("请输入一个数字", , 12345)
- Debug.Print d
-
-
- '单一写法,但是按参数名传递,可以无序
- e = InputBox(Default:=123456, Prompt:="请输入一个数字")
- Debug.Print e
-
- '混合写法,是有顺序要求的,有的按位置传,有的按参数名传参数--按名字传的不用管次序,但是得放在最后把
- f = InputBox("请输入一个数字", Default:=1234567)
- Debug.Print f
-
-
- End Sub
- Sub test202()
- 'application.InputBox()
- 'expression.InputBox(Prompt, Title, Default, Left, Top, HelpFile, HelpContextId, Type)
-
- a = Application.InputBox("请选择一个范围", , , , , , 8).Value
- '暂时没找到怎么处理这个变量的方法
- Set b = Application.InputBox(Type:=8, Prompt:="你好,请选1个范围")
- End Sub
Copyright © 2003-2013 www.wpsshop.cn 版权所有,并保留所有权利。