我给VBA下的定义VBA是个人小型自动化处理的有效工具。利用好了可以大大提高自己的工作效率而且可以提高数据的准确度。我的教程一共九套一部VBA手册教程分为初级、中级、高级三大部分。是对VBA的系统讲解从简单的入门到数据库到字典到高级的网抓及类的应用手册是为方便编程人员查找案例编写的。对于初级及中级的学员很想看到VBA的利用价值。也是对自己知识点的整合。我推出的YZ系列工具可以让这个阶段的学员感受到VBA之强大。坚定自己学习VBA的决心。VBA工具共两个系列一个是YZ系列一个是NZ系列。YZ系列比较简单些实用性强可以在自己的工作中方方面面都可以利用到,今日给大家介绍的是【分享成果随喜正能量】我们很多道友没受过什么苦或受不了一句话、一点气总想悠悠自在成佛。或是念上几十部经就想换取什么法宝是无价的你拿有价来换不但换不到还丧失了功德。应当不退初心遇到恶缘把它看作考验你能不能定得住?人身难得佛法难闻百念千生要坚固自己的信愿力莫退信心。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-2003xls 文件中。我们这个应用所讲解的也是仅针对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.xlsm4右键单击 Office RibbonX 编辑器中的文件名或使用插入菜单5选择“Office 2007 Custom UI Part”创建customUI.xml文件6将下面的RibbonX粘贴到右侧窗口中onActionMacro1 imageMsoHappyFace /7在 Office RibbonX 编辑器中保存您的更改单击保存按钮8关闭编辑器9在 Excel 中打开文件10AltF11要记住这个快捷键在后文中屏蔽菜单时可以用这个快捷键进入VBE11插入模块12将下面的宏复制到模块中Sub Macro1(control As IRibbonControl)MsgBox Hi ThereEnd Sub13点击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。当然这个应用只是屏蔽了部分按钮给大家一个实例学员可以根据自己的需要进行必要的开发。为了无分别以上代码不便公开如需要可以私信我