VBA-14-VBA中的用户信息交互.pptx

,Excel VBA视频教程 14VBA中的用户信息交互,王佩丰MVP 微软最有价值专家MCT 微软认证讲师,议程,Msgbox,Msgbox对话框的样式参数,参数：Msgbox(提示文字，按钮类型，标题文字，帮助文件，帮助文件索引)示例：MsgBox 你还好吗？,4+32,打招呼对话框,C:/a.chm,0,Msgbox,Msgbox对话框的样式参数,按钮类型：可使用加号连接,Msgbox,Msgbox对话框的返回值,示例：A=MsgBox(你还好吗？,4+32,打招呼对话框,C:/a.chm,0),Inputbox,Inputbox函数样式参数,参数：Inputbox(提示文字，标题文字，默认值，左边距，上边距，帮助文件，帮助文件索引)示例：Name=InputBox(请输入姓名,登陆框,此处输入,100,100,C:/a.chm,0),Inputbox,Inputbox方法样式参数,参数：Inputbox(提示文字，标题文字，默认值，左边距，上边距，帮助文件，帮助文件索引，输入类型)示例：A=Application.InputBox(输入金额,汇率计算,此处输入,100,100,C:/a.chm,0,1),Inputbox,Inputbox方法的类型值,类型值：可使用加号连接,GetOpenFilename,GetOpenFilename的参数,参数：GetOpenFilename(文件类型，优先类型，对话框标题，按钮文字，是否支持多选)示例：A=Application.GetOpenFilename(新表,*.xlsx,老表,*.xls,1,快特么选！,确定,False)注意：这个方法并不会真正打开文件，只是返回文件完整路径！文件类型参数中，先指定文件类型名，再指定后缀，要成对出现。优先类型是指文件类型中列出的各种类型，哪种优先显示。例如：Excel文件,*.xlsx,老表,*.xls,所有文件,*.*,Application.Dialogs,11,Application.Dialog的参数,参数：Dialogs(对话框)示例：Application.Dialogs(xlDialogSaveAs).Show注意：对话框中所做的操作会真实执行。,使用加载宏工具,课程小结,本节演示案例,设置弹出对话框的多种样式设置弹出输入框的多种样式弹出文件选取对话框 完成单表多文件合并,课程小结,需要理解并记住写法的概念,需要理解的概念,MsgboxInputboxApplication.Inputbox,Msgbox(提示文字，按钮类型，标题文字，帮助文件，帮助文件索引)Inputbox(提示文字，标题文字，默认值，左边距，上边距，帮助文件，帮助文件索引，输入类型)A=Application.GetOpenFilename(新表,*.xlsx,老表,*.xls,1,快特么选！,确定,False)Application.Dialogs,Application.GetOpenFilenam,课后练习,Excel库存管理系统,问题：为自己的Excel程序增加一项“多表合并的工具，并在快速访问工具栏上增加按钮调用这个工具。要求：1 该工具可以选取待汇总的文件，支持多文件选取。2 该工具仅能选取Excel文件，避免选择其他文件带来的错误3 将该工具设置为加载宏,Thank You,