文件名称：使用内置Excel对话框-mathematical statistics with applications
文件大小：13.45MB
文件格式：PDF
更新时间：2024-06-22 07:59:52
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内置的对 话框都是可用的