vba中的对话框和自定义窗体

《vba中的对话框和自定义窗体》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、对话框和自定义窗体在第四章，你学习了如何使用Excel内置的InputBox函数在VBA过程执行期间从用户处收集单一数据。但是，万一你的程序在运行时需要多个数据怎么办呢？用户也许希望一次就提供所有数据，或者从项目清单中作出所有合适的选择。如果你定程序必须收集数据的话，那么你可以：·使用内置对话框集合·创建一个自定义窗体本章将教你如何从VBA过程里显示内置的对话框，以及从零开始设计你自己的自定义窗体。Excel对话框在开始创建自己的窗体之前，你应该花上一些时间学习如何利用Excel内置的对话框，这些内置对话框本来就是为

2、我们准备的。我讲的不是手动选择适合的选项，而是从你自己的VBA过程里调用这些对话框。Excel有一个特殊的内置对话框集合，它们用开头为xlDialog的常量表示，例如xlDialogClear，xlDialogFont，xlDialogDefineName和xlDialogOptionsView。这些内置对话框是Excel对象，属于内置Dialos集合，每个dialog对象代表一个内置对话框。表10-1常用的内置对话框对话框名称常量新建xlDialogNew打开xlDialogOpen另存为xlDialogSaveA

3、s页面设置xlDialogPageSetup打印xlDialogPrint字体xlDialogFont按照下述格式使用Show方法来显示对话框：Application.Dialogs(常量).Show例如，下面的语句显示字体对话框：Application.Dialogs(xlDialogFont).Show如果你在对象浏览器里面选择Excel库后，再输入xlDialog搜索的话，那些代表Excel内置对话框的常量清单就会显示在对象浏览器里面了（参见图10-1）1.打开一个新工作簿并且保存为Chap10.xls2.切换

4、到VB编辑器窗口3.打开立即窗口4.输入下述语句并查看结果：Application.Dialogs(xlDialogClear).ShowApplication.Dialogs(xlDialogFont).ShowApplication.Dialogs(xlDialogFontProperties).ShowApplication.Dialogs(xlDialogDefineName).ShowApplication.Dialogs(xlDialogOptionsView).Show最后一句指令显示“选项”对话框的“

5、视图”。显示内置对话框后，你可以选择合适的选项，然后Excel就会将当前被选择的单元格，区域或者整个工作表设置相应的格式。尽管你不能更改内置对话框的外观和行为，但是当你从你的VBA过程显示内置对话框的时候，你可以决定它的初始设置。如果你不更改初始设置，那么VBA将显示对话框和其缺省设置。假设你要显示清除对话框，并且所有按钮都被选择上。通常Excel显示对话框的时候，内容选项按钮是被选择上的。在立即窗口里输入下列语句：Application.DialogS(xlDialogClear).Show1你可以在Show方法后

6、面加上一系列的参数，在清除对话框里，“全部”选项按钮出现在四个选项按钮组的最开头。Excel通常将可用的选项进行编号，因此，“全部”=1，“格式”=2，“内容”=3，以及“批注”=4。在线帮助可以搜索到内置对话框的参数列表（参见图10-3）图10-1前缀为“xlDialog”的常量识别Excel内置对话框在立即窗口里输入下面的语句，可以显示字体对话框，并且当前选择为“Arial”字体和14字号：Application.Dialogs(xlDialogFont).Show"Arial",14如果只要明确字号的话，那么可

7、以在第一个参数的位置放置一个逗号就行：Application.Dialogs(xlDialogFont).Show,8下面的指令显示“定义名称”对话框，并且在工作簿中的“名称”文本框中输入“John”，“引用位置”里引用到单元格A1：Application.Dialogs(xlDialogDefineName).Show"John","=$A$1"如果你点击确定Show方法就返回True，点击取消则为False。图10-2以常量xlDialogOptionsView代表的“选项”对话框“视图”的可用设置图10-3Ex

8、cel内置对话框参数列表1.文件打开和另存为对话框OfficeXP中一个新而功能强大的对象是FileDialog。该对象允许你从你的VBA过程里显示文件打开和文件另存为对话框。因为FileDialog对象是MicrosoftOffice10.0ObjectLibrary的一部分，所以它在所有的OfficeXP应用程序里都是可用的。在前期的Exc