- 1、本文档共17页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VBA_InputBox_函数.
InputBox 函数
一、作用
在一对话框来中显示提示,等待用户输入正文或按下按钮,并返回包含文本框内容的 String。
二、语法
英文方式: InputBox(prompt[, title] [, default] [, xpos] [, ypos] [, helpfile, context])
中文方式: InputBox(提示输入信息[,标题] [,默认值] [, 左边距] [, 上边距] [, 帮助按钮, 帮助按钮的链接文件名称])
?
Sub 英文语法()??? Dim c??? InputBox prompt, Title, Default, , , SMSW.CHM, cEnd Sub
Sub 中文语法() 一般都是路径不对就提示找不到文件,主题ID不对的就提示错误或空白的。???? ???? InputBox 显示在对话框中的信息, 标题, 默认值, , , SMSW.CHM, 1042205???? End Sub
?
如果同时提供了 helpfile 与 context,用户可以按 F1 (Windows) or HELP (Macintosh) 来查看与 context 相应的帮助主题。某些主应用程序,例如,Microsoft Excel,会在对话框中自动添加一个 Help 按钮。如果用户单击 OK 或按下ENTER ,则 InputBox 函数返回文本框中的内容。如果用户单击 Cancel,则此函数返回一个长度为零的字符串 ()。
五、注意
如果还要指定第一个命名参数以外的参数,则必须在表达式中使用 InputBox。如果要省略某些位置参数,则必须加入相应的逗号分界符。
六、第一个参数:提示信息
Sub 参数一提示信息()
InputBox (请输入你的名字:)
End Sub
七、第二个参数:提示信息
Sub 参数二标题()
InputBox 请输入你的组别, VBA学习班
End Sub
八、第三个参数:默认输入值
Sub 参数三默认输入值()
InputBox 请输入你基本信息:, 友情提示, 雨中漫步,男,40不到,30有余,VBA特长班四组学员,家住70503
End Sub
九、第四.五个参数:对话框显示位置
Sub 参数四五对话框显示位置()
InputBox 参数说明:, 对话框显示位置, _
修改参数四和参数五,可以改变对话框显示位置!, 200, 300
End Sub
十、第六.七个参数:帮助按钮
Sub 参数六七帮助按钮()
InputBox 点击“帮助”按钮可以打开帮助文件:, “帮助”按钮, _
如果你不知道输入什么东东,就看帮助文件吧!, , , MSCAL.HLP, Introduction
End Sub 一般都是路径不对就提示找不到文件,主题ID不对的就提示错误或空白的。
十一、向工作表输入数值
Sub 示例1_输入数值()
Dim x As String 字符型
Dim y As Integer 整数型
x = InputBox(请输入你的姓名:, 姓名, 雨中漫步)
Range(B68) = x
y = InputBox(请输入你的年龄:, 年龄, 35)
Range(c68) = y
MsgBox 你的名字叫 x Chr(10) _
Chr(10) _
你的年龄是 y 岁
End Sub
十二、改变对话框显示位置
Sub 示例2_会改变的对话框显示位置()
Dim x As Integer 整数型
Dim y As Integer 整数型
x = Sheets(InputBox函数).Range(b79)
y = Sheets(InputBox函数).Range(c79)
InputBox 你别输入左边距和上边距分别是:, 我的程序, 左边距:
文档评论(0)