• 袁家军:坚定不移打赢新时代禁毒人民战争 2019-10-15
  • 微软 Build 大会开幕;比尔盖茨大赞苹果;Drive.AI 自动驾驶服务落地 雷锋早报 2019-10-15
  • 荷兰音乐节巴士冲撞人群事件致1死3伤 肇事者自首 2019-10-03
  • 互联网新闻信息服务许可证 2019-09-20
  • 谈具体的吧,别装模作样了。客观事实与观察事实、科学事实有什么不同? 2019-09-13
  • 中国女排7小花争艳!谁能制造惊喜 一位置别拖后腿 2019-09-10
  • 女子车上突然发病 公交车长现场急救 2019-08-29
  • 英才聚神州 奋斗正当时 2019-08-29
  • 纪录电影《盲行者》入围第21届上海电影节金爵奖 2019-08-22
  • 高清:江西南昌志愿者爱心陪伴特殊儿童 2019-08-15
  • “新时代 新梦想”网络媒体新春走基层 2019-08-15
  • 国内 —频道 春城壹网 七彩云南 一网天下 2019-08-13
  • 阿呆,那是你家远祖啊,还不跪拜?[哈哈] 2019-08-11
  • 本帖关键部分已被残酷删除。 2019-08-11
  • 换一种方式吃鸡肉 美味又易做-美食资讯 2019-08-07
  • 白小姐资料一肖中特马133期

    如何显示Excel内置对话框

    时间:2015-06-23 22:43来源:Office教程学习网 白小姐资料一肖中特马133期 www.yzzcc.tw编辑:麦田守望者

    白小姐资料一肖中特马133期 www.yzzcc.tw 在Excel VBA中,如果需要显示Excel内置对话框以方便用户的操作体验,可通过VBA显示Excel内置对话框。Excel2007可通过VBA宏显示Excel内置对话框。

    显示Excel内置对话框的方法:

    首先按“Alt+F11”组合键,Excel2007打开代码编辑器,单击“插入”菜单-“???rdquo;,双击插入的???,在右侧的代码窗口中输入:

    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 单元格格式(?;ぃ?/td> 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 ?;すぷ鞑?/td> 417
      xlDialogPageSetup 页面设置 7
      xlDialogPrint 打印内容 8
      xlDialogPrinterSetup 打印机设置 9
      xlDialogPrintPreview 打印预览 222
      xlDialogSetPrintTitles 设置打印标题 23
      xlDialogRun 17
      xlDialogTable 模拟运算表 41
      xlDialogSendMail 发送邮件 189
    ------分隔线----------------------------
    标签(Tag):excel excel2007 excel2010 excel2013 excel2003 excel技巧 excel教程 excel实例教程
    ------分隔线----------------------------
    推荐内容
    猜你感兴趣
  • 袁家军:坚定不移打赢新时代禁毒人民战争 2019-10-15
  • 微软 Build 大会开幕;比尔盖茨大赞苹果;Drive.AI 自动驾驶服务落地 雷锋早报 2019-10-15
  • 荷兰音乐节巴士冲撞人群事件致1死3伤 肇事者自首 2019-10-03
  • 互联网新闻信息服务许可证 2019-09-20
  • 谈具体的吧,别装模作样了。客观事实与观察事实、科学事实有什么不同? 2019-09-13
  • 中国女排7小花争艳!谁能制造惊喜 一位置别拖后腿 2019-09-10
  • 女子车上突然发病 公交车长现场急救 2019-08-29
  • 英才聚神州 奋斗正当时 2019-08-29
  • 纪录电影《盲行者》入围第21届上海电影节金爵奖 2019-08-22
  • 高清:江西南昌志愿者爱心陪伴特殊儿童 2019-08-15
  • “新时代 新梦想”网络媒体新春走基层 2019-08-15
  • 国内 —频道 春城壹网 七彩云南 一网天下 2019-08-13
  • 阿呆,那是你家远祖啊,还不跪拜?[哈哈] 2019-08-11
  • 本帖关键部分已被残酷删除。 2019-08-11
  • 换一种方式吃鸡肉 美味又易做-美食资讯 2019-08-07
  • 双色球容易中奖号码 重庆时时彩计划_人工版 手机时时彩冷热号统计 竞彩足球计算器胜平负 重庆时时彩计划软件下载 重庆时时彩稳赢的公式 靠谱的棋牌赢钱游戏 通比牛牛是什么意思 北京pk10走势图 时时彩高手怎样看走势