返回首页
当前位置: 主页 > Excel教程 > Excel VBA教程 >

如何显示Excel内置对话框

时间:2015-06-23 22:43来源:Office教程学习网 www.office68.com编辑:麦田守望者

在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
顶一下
(2)
100%
踩一下
(0)
0%
标签(Tag):excel excel2013 excel2010 excel2007 excel2003 excel技巧 excel教程 excel实例教程
------分隔线----------------------------
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
验证码:点击我更换图片
猜你感兴趣