【原】VBA案例精选显示Excel内置对话框

郑广学老师 2021-03-09

展开全文

代码运行结果：

代码截图：

代码文本：

Public Sub 显示Excel内置对话框()

UserForm1.Show

End Sub

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