资源描述：
《vba_inputbox_函数》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、InputBox函数一、作用在一对话框来中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的String。二、语法英文方式：InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])中文方式：InputBox("提示输入信息"[,"标题"][,默认值][,左边距][,上边距][,帮助按钮,帮助按钮的链接文件名称]) Sub英文语法() Dimc InputBox"prompt","Title","Defa
2、ult",,,"SMSW.CHM",cEndSubSub中文语法()'一般都是路径不对就提示找不到文件,主题ID不对的就提示错误或空白的。 InputBox"显示在对话框中的信息","标题","默认值",,,"SMSW.CHM",1042205 EndSub 四、说明如果同时提供了helpfile与context，用户可以按F1(Windows)orHELP(Macintosh)来查看与context相应的帮助主题。某些主应用程序，例如，MicrosoftExcel，会在对话框
3、中自动添加一个Help按钮。如果用户单击OK或按下ENTER，则InputBox函数返回文本框中的内容。如果用户单击Cancel，则此函数返回一个长度为零的字符串("")。五、注意如果还要指定第一个命名参数以外的参数，则必须在表达式中使用InputBox。如果要省略某些位置参数，则必须加入相应的逗号分界符。六、第一个参数:提示信息Sub参数一提示信息()InputBox("请输入你的名字：")EndSub七、第二个参数:提示信息Sub参数二标题()InputBox"请输入你的组别","VBA学习班
4、"EndSub八、第三个参数:默认输入值Sub参数三默认输入值()InputBox"请输入你基本信息：","友情提示","雨中漫步,男,40不到,30有余,VBA特长班四组学员,家住70503"EndSub九、第四.五个参数:对话框显示位置Sub参数四五对话框显示位置()InputBox"参数说明：","对话框显示位置",_"修改参数四和参数五，可以改变对话框显示位置！",200,300EndSub十、第六.七个参数:帮助按钮Sub参数六七帮助按钮()InputBox"点击“帮助”按钮可以打开帮助
5、文件：","“帮助”按钮",_"如果你不知道输入什么东东，就看帮助文件吧！",,,"MSCAL.HLP",IntroductionEndSub'一般都是路径不对就提示找不到文件,主题ID不对的就提示错误或空白的。十一、向工作表输入数值Sub示例1_输入数值()DimxAsString'字符型DimyAsInteger'整数型x=InputBox("请输入你的姓名：","姓名","雨中漫步")Range("B68")=xy=InputBox("请输入你的年龄：","年龄",35)Range("c68
6、")=yMsgBox"你的名字叫"&x&Chr(10)_&Chr(10)_&"你的年龄是"&y&"岁"EndSub十二、改变对话框显示位置Sub示例2_会改变的对话框显示位置()DimxAsInteger'整数型DimyAsInteger'整数型x=Sheets("InputBox函数").Range("b79")y=Sheets("InputBox函数").Range("c79")InputBox"你别输入左边距和上边距分别是：","我的程序","左边距："&x&"，上边距："&y,x,yEnd
7、Sub二、隔行求和Sub示例3_隔行求和()DimXXAsInteger'整数型DimyyAsLong'长整型yy=0XX=InputBox("请输入间隔的行数：","间隔求和",1)Fori=82To91Stepxx+1yy=yy+Cells(i,1)NextiMsgBox"每隔"&XX&"行求和，和是："&yy,0+64,"结果"EndSub十四、返回按键值Sub示例5_1_返回按键值()'清风DimAnsAsStringAns=InputBox("请输入:")IfAns=""ThenExit
8、SubMsgBox"你输入了:"&AnsEndSubSub示例5_1_返回按键值()'借用strptr函数返回DimxDox=InputBox("请输入数据：","不能为空哦")'不能为空，为空则继续弹出窗口IfStrPtr(x)=0Then'????MsgBox"按下了取消或关闭键",0+64,"呵呵"ExitSubElseIfx<>""ThenExitDoEndIfLoopEndSub十五、识别数组Sub示例6_识别数组()'文本框输入的连续数据(中间用","分开),识别逗号后
