|
在Excel VBA中，如果需要显示Excel内置对话框以方便用户的操作体验，可通过VBA显示Excel内置对话框。Excel2007可通过VBA宏显示Excel内置对话框。
显示Excel内置对话框的方法：
首先按“Alt+F11”组合键，Excel2007打开代码编辑器，单击“插入”菜单-“模块”，双击插入的模块，在右侧的代码窗口中输入：
Sub Excel_Partner()
Application.Dialogs(xlDialogBorder).Show
MsgBox "已经显示“单元格格式（边框）”对话框，接下来将显示“单元格格式（字体）”对话框"
Application.Dialogs(476).Show
End Sub
按F5运行键运行程序，Excel根据指定的参数，显示Excel内置对话框。
相关说明：
- Dialogs(xlDialogOpen)函数的参数xlDialogOpen既可以是VB常量，也可以是数字值。
- xlDialogOpen参数值详细见下表。
xlDialogOpen参数值说明
| VB常量 |
对话框 |
值 |
| xlDialogActiveCellFont |
单元格格式(字体） |
476 |
| xlDialogBorder |
单元格格式(边框） |
45 |
| xlDialogCellProtection |
单元格格式(保护） |
46 |
| xlDialogDeleteFormat |
单元格格式(数字） |
111 |
| xlDialogFormatNumber |
单元格格式(数字） |
42 |
| xlDialogPatterns |
单元格格式(图案） |
84 |
| xlDialogClear |
清除 |
52 |
| xlDialogColumnWidth |
列宽 |
47 |
| xlDialogRowHeight |
行高 |
127 |
| xlDialogConditionalFormatting |
条件格式 |
583 |
| xlDialogDefineName |
定义名称 |
61 |
| xlDialogDefineStyle |
样式 |
229 |
| xlDialogDisplay |
显示选项 |
27 |
| xlDialogFont |
字体 |
26 |
| xlDialogSetBackgroundPicture |
工作表背景 |
509 |
| xlDialogInsert |
插入 |
55 |
| xlDialogInsertHyperlink |
插入超链接 |
596 |
| xlDialogInsertPicture |
插入图片 |
342 |
| xlDialogNew |
新建工作簿 |
119 |
| xlDialogOpen |
打开 |
1 |
| xlDialogSaveAs |
另存为 |
5 |
| xlDialogWorkbookCopy |
移动或复制工作表（建立副本） |
283 |
| xlDialogWorkbookInsert |
插入工作表 |
354 |
| xlDialogWorkbookMove |
移动或复制工作表 |
282 |
| xlDialogWorkbookName |
重命名工作表 |
386 |
| xlDialogWorkbookNew |
新建工作表 |
302 |
| xlDialogWorkbookProtect |
保护工作簿 |
417 |
| xlDialogPageSetup |
页面设置 |
7 |
| xlDialogPrint |
打印内容 |
8 |
| xlDialogPrinterSetup |
打印机设置 |
9 |
| xlDialogPrintPreview |
打印预览 |
222 |
| xlDialogSetPrintTitles |
设置打印标题 |
23 |
| xlDialogRun |
宏 |
17 |
| xlDialogTable |
模拟运算表 |
41 |
| xlDialogSendMail |
发送邮件 |
189 |
|