ExcelVBA视频教程14VBA中的用户信息交互王佩丰MVP微软最有价值专家MCT微软认证讲师议程Msgbox与Inputbox文件选择对话框GetOpenFilename操作Excel中的所有对话框Application.Dialogs课程小结及课后练习MsgboxMsgbox对话框的样式参数参数:Msgbox(提示文字,按钮类型,标题文字,帮助文件,帮助文件索引)示例:MsgBox"你还好吗?",4+32,"打招呼对话框","C:/a.chm",0MsgboxMsgbox对话框的样式参数按钮类型:可使用加号连接常数值描述vbOKOnly0只显示确定按钮VbOKCancel1显示确定及取消按钮。VbAbortRetryIgnore2显示放弃、重试及忽略按钮。VbYesNoCancel3显示是、否及取消按钮。VbYesNo4显示是及否按钮。VbRetryCancel5显示重试及取消按钮。VbCritical16危险图标VbQuestion32询问图标VbExclamation48警告图示VbInformation64信息图标vbDefaultButton10第一个按钮是缺省值。vbDefaultButton2256第二个按钮是缺省值。vbDefaultButton3512第三个按钮是缺省值。vbDefaultButton4768第四个按钮是缺省值。vbApplicationModal0应用程序强制返回;应用程序一直被挂起,直到用户对消息框作出响应才继续工作。vbSystemModal4096系统强制返回;全部应用程序都被挂起,直到用户对消息框作出响应才继续工作。vbMsgBoxHelpButton16384将Help按钮添加到消息框VbMsgBoxSetForeground65536指定消息框窗口作为前景窗口,就是显示在窗口的最上层vbMsgBoxRight524288文本为右对齐vbMsgBoxRtlReading1048576指定文本应为在希伯来和阿拉伯语系统中的从右到左显示MsgboxMsgbox对话框的返回值示例:A=MsgBox("你还好吗?",4+32,"打招呼对话框","C:/a.chm",0)常数值说明vbOK1确定vbCancel2取消vbAbort3终止vbRetry4重试vbIgnore5忽略vbYes6是vbNo7否InputboxInputbox函数样式参数参数:Inputbox(提示文字,标题文字,默认值,左边距,上边距,帮助文件,帮助文件索引)示例:Name=InputBox("请输入姓名","登陆框","此处输入",100,100,"C:/a.chm",0)InputboxInputbox方法样式参数参数:Inputbox(提示文字,标题文字,默认值,左边距,上边距,帮助文件,帮助文件索引,输入类型)示例:A=Application.InputBox("输入金额","汇率计算","此处输入",100,100,"C:/a.chm",0,1)InputboxInputbox方法的类型值类型值:可使用加号连接值含义0公式1数字2文本(字符串)4逻辑值(True或False)8单元格引用,作为一个Range对象16错误值,如#N/A64数值数组GetOpenFilenameGetOpenFilename的参数参数:...