在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 |
|