我给VBA下的定义:VBA是个人小型自动化处理的有效工具。利用好了,可以大大提高自己的工作效率,而且可以提高数据的准确度。我的教程一共九套+一部VBA手册,教程分为初级、中级、高级三大部分。是对VBA的系统讲解,从简单的入门,到数据库,到字典,到高级的网抓及类的应用;手册是为方便编程人员查找案例编写的。
对于初级及中级的学员,很想看到VBA的利用价值。也是对自己知识点的整合。我推出的YZ系列工具,可以让这个阶段的学员感受到VBA之强大。坚定自己学习VBA的决心。VBA工具共两个系列,一个是YZ系列,一个是NZ系列。YZ系列比较简单些,实用性强,可以在自己的工作中方方面面都可以利用到,今日给大家介绍的是YZ系列工具之YZ03:高版本Excel的自定义菜单【分享成果,随喜正能量】引擎利用后退的力量,引发更大的动能;空气经过压缩,更具爆破的威力。所谓"退一步想,海阔天空。"正可点破我们迷妄执着的盲点。。
YZ03:高版本Excel的自定义菜单当我们在 Excel 97-2003 中使用 Application.CommandBars 创建菜单时,可以利用创建菜单和删除菜单的代码。在 Excel 2007 及更高版本中,我们可以使用 RibbonX 自定义功能区,这和上述过程是不同的,当关闭或停用工作簿时,它将自动删除我们的自定义。
Office RibbonX 编辑器为我们提供了用于在 Excel 工作簿中插入自定义功能菜单的功能(备注:Office RibbonX 编辑器的安装文件会随资料附带,学员可以安装;另外,在我的第10套教程中也提供了这个安装文件),在 Excel 2007 及更高版本中打开文件时为UI.xml文件,在 Excel 2010 及更高版本中打开 Excel 工作簿时为customUI14.xml 文件。
如果只使用 Office 2007自定义 UI 部件选项来添加 RibbonX,当在Excel 2007 及更高版本中打开Excel文件时,它将从此文件加载RibbonX。但是,如果在Excel2010及更高版本中打开Excel文件,并且还有一个customUI14.xml文件,它将仅加载customUI14.xml文件。
注意:无法将 RibbonX 插入到 Excel 97-2003(xls) 文件中。我们这个应用所讲解的也是仅针对97及以后的版本。
一 Open the Office RibbonX Editor功能简介我们先来简单介绍一下这个软性的功能,这个软件在这个应用中我已经提供,另外在我的第十套教程中随教程也已经提供,大家可以利用。
1 打开命令:打开要编辑的 Excel 文件(确保它没有在 Excel 中打开)
2 保存命令:将 RibbonX 保存在您在 UI 编辑器中打开的文件中(在 Excel 中打开文件时无法保存)
3 插入图标:在文件中插入您自己的图标(图标将保存在文件中)
4 验证:验证您的 RibbonX,以确保没有错别字
5 生成回调:这将为您RibbonX的每个 onAction 创建宏(回调)。 选择所有回调并将它们复制到工作簿的普通模块中。
6 刷新文档:如果您在 Excel 中打开了文件,为确保您不会删除在外部打开的 Excel 文件中所做的更改,请在保存文档之前使用按钮重新加载文档。
二 创建自定义菜单示例在此示例中,我们将 RibbonX 添加到文件中,在 Excel 2007 及更高版本中打开文件时,该文件会在“主页”选项卡上创建一个按钮。我们将 RibbonX 添加到 customUI.xml文件(“Office 2007 自定义 UI 部分”)。
1:打开一个新工作簿并将其另存为myExcel.xlsm(启用 Excel 宏的工作簿)
2:关闭工作簿
3:在 Office RibbonX 编辑器中打开 myExcel.xlsm
4:右键单击 Office RibbonX 编辑器中的文件名或使用插入菜单
5:选择“Office 2007 Custom UI Part”创建customUI.xml文件
6:将下面的RibbonX粘贴到右侧窗口中
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon>
<tabs>
<tab idMso="TabHome" >
<group id="customGroup1" label="My Group" insertAfterMso="GroupEditingExcel">
<button id="customButton1" label="Click Me" size="large"
onAction="Macro1" imageMso="HappyFace" />
</group>
</tab>
</tabs>
</ribbon>
</customUI>
7:在 Office RibbonX 编辑器中保存您的更改(单击保存按钮)
8:关闭编辑器
9:在 Excel 中打开文件
10:Alt+F11(要记住这个快捷键,在后文中屏蔽菜单时,可以用这个快捷键进入VBE)
11:插入模块
12:将下面的宏复制到模块中
Sub Macro1(control As IRibbonControl)
MsgBox "Hi There"
End Sub
13:点击VBA编辑器中的保存按钮
14:使用 Alt+ Q 关闭 VBA 编辑器
15:在 2007 年和/或 2010 年及以上测试工作簿
三 在内置选项卡中添加自定义组实现这个功能是我提供的myExcelA.XLSM文件,正确加载后,会在“主页”选项卡的末尾看到一个新组“Group1”,如下截图:
我们点击任意一个按钮会有下面的提示:
如果我们用Office RibbonX 编辑器打开该文件,我们会看到自定义RibbonX的 CustomUI。
因为此示例中的 RibbonX for Excel 2007 和 Excel 2010-2016 之间没有区别。我们只能为我们的 RibbonX 使用 customUI.xml 文件。Excel 2010-2016 打开文件时如果没有 customUI14.xml 文件,它会从 customUI.xml 文件加载 RibbonX。
如果我们要利用这个自定义RibbonX,可以在标准模块代码中修正我们的代码,我一共给出了8个命令,可以供用户添加与修正。
四 自定义收藏组按钮的选项卡实现这个功能的是我提供的myExcelB.xlsm文件,如果加载正确,会在主页选项卡旁边看到一个新选项卡“个人收藏”。如下截图:
如果我们用Office RibbonX 编辑器打开该文件,我们会看到自定义RibbonX的 CustomUI。
因为此示例中的 RibbonX for Excel 2007 和 Excel 2010-2016 之间没有区别。我们只能为我们的 RibbonX 使用 customUI.xml 文件。Excel 2010-2016 打开文件时如果没有 customUI14.xml 文件,它会从 customUI.xml 文件加载 RibbonX。
五 添加自定义选项卡实现这个功能的是我提供的myExcelC.xlsm文件,如果加载正确,会在主页选项卡旁边看到一个新选项卡“我的菜单”。如下截图:
菜单中我提供了8个过程可以供给用户添加。
如果我们用Office RibbonX 编辑器打开该文件,我们会看到生成自定义RibbonX的 CustomUI。
因为此示例中的 RibbonX for Excel 2007 和 Excel 2010-2016 之间没有区别。我们只能为我们的 RibbonX 使用 customUI.xml 文件。Excel 2010-2016 打开文件时如果没有 customUI14.xml 文件,它会从 customUI.xml 文件加载 RibbonX。
六 屏蔽所有内置选项卡实现这个功能的是我提供的myExcelD.xlsm文件,如果加载正确,当我们打开文件时,会看到如下截图:
是不是非常的干净,此时所有内置功能区选项卡和 QAT(间备注解释) 在 2007 或 2010-2016 消失。
并且在 2007 的 Office 按钮菜单中,只会看到“最近的文档”,在 Excel 2010-2016 中,如果没有使用 RibbonX 添加控件的加载项,则为空。
如果用CustomUI 编辑器中打开文件,会看到 Excel 2007 的 customUI.xml 的 RibbonX及 Excel 2010-2016 的 customUI14.xml RibbonX。
如果在 Excel 2007 中打开文件,它会从 customUI.xml 加载 RibbonX,如果在Excel 2010-2016 它将从 customUI14.xml 文件加载 RibbonX。
备注:QAT:Quick Access Toolbar 快速访问工具栏
七 使用定制的菜单标签实现这个功能的是我提供的myExcelE.xlsm文件,如果加载正确,当我们打开文件时,会看到如下截图:
当我们点击“Caption”命令:
这对于我们利用EXCEL作为开发主界面,是不是非常的方便呢?
这个程序如果正确加载,所有内置功能区选项卡和 QAT 在 2007或 2010-2016消失,并且在 2007 的 Office 按钮菜单中,您只会看到“最近的文档”,在 Excel 2010-2016 Backstage (File) 中,如果没有使用 RibbonX 添加控件的加载项,则为空。Backstage(File) 没有“startFromScratch”选项,以确保所有内容都像功能区一样隐藏。
如果在 CustomUI 编辑器中打开文件,会看到Excel 2007 的 customUI.xml 文件的 RibbonX以及Excel 2010-2019中 的 customUI14.xml 的 RibbonX。
此文件如果在 Excel 2007 中打开,它会从 customUI.xml 加载 RibbonX,如果在
Excel 2010-2016打开它将从 customUI14.xml 文件加载 RibbonX。
八 对选项卡命令的屏蔽这个应用中我给出了选项卡命令的屏蔽方案,实现这个功能的是我提供的myExcelF.xlsm文件,我们先看一下正常一个文件打开的主页选项卡:
如果myExcelF.XLSM加载正确,当我们打开文件时,会看到如下截图:
是的,这个作用是屏蔽了一些命令。在 Excel 2007-2016 中,它禁用 Office 按钮中的“另存为”按钮;禁用主页选项卡上对齐组中的“合并单元格”菜单;隐藏了功能区中的“插入”选项卡;隐藏了主页选项卡上的“字体组”。而且,在“主页”选项卡上单击“粘贴”时正确,它将在此工作簿中运行宏“MyPasteMacro”
如果在 CustomUI 编辑器中打开文件,会看到 Excel 2007 的 customUI.xml 文件中的 RibbonX及 Excel 2010-2016 中 customUI14.xml的 RibbonX。
如果在 Excel 2007 中打开文件,它会从 customUI.xml 加载 RibbonX,如果在
Excel 2010-2016 它将从 customUI14.xml 文件加载 RibbonX。
当然这个应用只是屏蔽了部分按钮给大家一个实例,学员可以根据自己的需要进行必要的开发。
【分享成果,随喜正能量】