【文件属性】：
文件名称：使用内置Excel对话框-mathematical statistics with applications
文件大小：13.45MB
文件格式：PDF
更新时间：2021-06-02 14:16:15
excel,VBA
6.4 使用内置Excel对话框
现在，你学会了如何控制应用程序的流程，根据用户对消息框所做出的响应，可以进行
相应的操作。例如，如果要求用户回答他是否希望保存工作，你会希望显示一个“保存”对
话框。E x c e l包括大约2 0 0个内置的对话框，通过使用 V B A可以访问所有这些内置的对话框。
显示内置对话框的语法如下：
A p p l i c a t i o n . D i a l o g s ( x l D i a l o gC o n s t) . S h o w
要查看x l D i a l o g C o n s t数值的程序清单，可以打开对象浏览器。要找到需要的 x l D i a l o g C o n s t
的名字，可以参看对话框的标题栏。如果希望显示“另存为”对话框，可以选择“文件”、
“另存为”，可以看到对话框的标题栏显示为“另存为”。x l D i a l o g C o n s t的数值总是以x l D i a l o g
开始，并且接着就是对话框的名字，所以在本例中，将使用的是 x l D i a l o g S a v e A s。要显示内置
对话框，可以按照如下步骤：
1）向模块中插入一个新的名为 S a v e N o w的过程。
2）为该过程输入如下代码：
Dim iResponse As Integer
iResponse = MsgBox("Do you wish to save your work? ", vbYe s N o )
If iResponse = vbYes Then
A p p l i c a t i o n . D i a l o g s ( x l D i a l o g S a v e A s ) . S h o w
End If
3）返回到工作簿中包括Calculate Comm按钮的工作表。
4）在工作表中添加另一个按钮，将 S a v e N o w过程指定给这个按钮。
5）将按钮的标题改为S a v e。
6）在按钮之外单击鼠标左键，使该按钮不再被选中。
7）单击S a v e按钮，显示一个询问是否需要保存工作的消息框。
8）单击“确定”按钮，显示内置的“另存为”对话框，如图 6 - 5所示。
58使用中文Excel 2000编程 2 4学时教程
图6-5 所有E x c e l内置的对
话框都是可用的