文档建议反馈控制台
首页
学习
活动
专区
工具
TVP
最新优惠活动
文章/答案/技术大牛
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往

VBA专题10-9：使用VBA操控Excel界面之在功能区中添加自定义按钮控件

下面的一系列文章将重点讲解如何在功能区中添加不同类型的自定义控件，它们与最底层的自定义命令相关。这里的自定义命令是指程序员自已编写的VBA过程。...添加按钮 如果要在内置功能区选项卡中添加两个按钮，在单击这些按钮时会调用VBA过程，那么执行下面的步骤： 1. 创建新工作簿并保存为启用宏的工作簿。 2....选项卡元素： idMso属性的值是内置选项卡的名称。本例中，TabInsert是“插入”选项卡的idMso。如果要在其他内置选项卡中插入按钮，那就使用其他选项卡的idMso替换掉TabInsert。...如果要使用自已设计的图像，只需使用image属性替换掉imageMso属性。 onAction属性是一个回调属性。该属性的值是在单击按钮时要执行的VBA过程的名称。 5....之后，要将其粘贴到工作簿的VBA模块中。 7. 保存并关闭该文件。 8. 在Excel中打开该工作簿文件。 9. 按Alt+F11键打开VBE。 10.

5.2K30
    • 您找到你想要的搜索结果了吗？
    是的
    没有找到

    VBA专题10-14：使用VBA操控Excel界面之在功能区中添加自定义库控件

    查找并选择你想要的图像文件，并单击打开。 该图像文件的副本被插入，删除原始文件不影响插入的文件。 注意：在图像文件的文件名中避免使用空字符，否则不能正确地引用文件。 6....在Excel中打开该文件。 12. 按Alt+F11键激活VBE。 13. 插入一个标准的VBA模块，并粘贴在步骤9中复制的回调代码。 14. 在过程中添加一个MsgBox语句来测试控件。...图2 代替上述第4步和第5步中手工插入图像，可以通过使用VBA过程使用相同的图像填充库。通过赋VBA过程的名称到loadImage回调属性来实现。下面列出了XML代码和VBA代码： ?...Excel\使用VBA操控Excel界面\04....可以包括MsgBox语句来看看该过程是如何遍历每个元素项的。 （注意，我试着使用png图像但没有成功。）

    3.1K10

    在不确定列号的情况下如何使用Vlookup查找

    最近小伙伴在收集放假前的排班数据 但是收上来的数据乱七八糟的 长下面这样 但是老板们只想看排班率 所以我们最终做的表应该是这样 需要计算出排班率 排班率=排班人数/总人数 合计之外的每一个单元格...都需要引用 除了最基础的等于=引用 我们还有一种更加万能的Vlookup+Match的方法 这样无论日期怎么变化 无论日期顺序是否能对上 我们都不用更改公式 例如A部门,2月1日的排班率应该这么写 =...B17 单元格为排班率日期 A2:K2 单元格为我们排班人数的日期 M2:N8单元格是总人数 其中 分子排班人数的公式是 VLOOKUP($A18,$A$1:$K$8,MATCH(B$17...,$A$2:$K$2,0),0) 排班人数里面的日期匹配 我们用Match函数动态确定列号 MATCH(B$17,$A$2:$K$2,0) 分母总人数比较简单 就是常规的Vlookup VLOOKUP...部门合计我们需要确定部门的行号即可 为防止部门变动 最好也用公式确定行号 这一块 可以有两种写法 一种是用Sum,Offset,Index,Match函数组合 =SUM(OFFSET(INDEX

    2.5K10

    常用功能加载宏——替换不确定数量的空白

    工作中碰到过这种情况：有些外部收集来的资料，由于表格制作者不知道如何在单元格中输入换行符，他的做法是设置单元格格式自动换行，为了达到排版换行目的，是输入了一些空格用来占位的，这种表格在列宽变化了后，很可能就会变的有点乱...所以程序必须考虑到多段不确定空白的情况： 使用InStr找到空格开始的位置 使用Loop找到非空白处 这样就确定了一段非空白的起止位置。...首先在customUI.xml的menu id="rbmenuString"中增加代码： onAction...FTrimSpace(str As String, strReplace As String, iStart As Long) As String '清除左、右的空白 str = VBA.LTrim...'有空格的情况下继续查找到不是空格为止 last = first + 1 Do Until last > iLen

    1.1K31

    VBA专题10-11：使用VBA操控Excel界面之在功能区中添加自定义拆分按钮控件

    拆分按钮控件是一个含有单击按钮和下拉按钮列表的组合控件。用户可以选择单击按钮，或者从下拉列表中选择单击其中一个按钮来执行相应的命令。...添加拆分按钮控件的步骤与本系列前面文章（参见：VBA专题10-10：使用VBA操控Excel界面之在功能区中添加自定义切换按钮控件、VBA专题10-9：使用VBA操控Excel界面之在功能区中添加自定义按钮控件...）中的步骤相同，新建一个启用宏的工作簿并保存，关闭该工作簿，然后在CustomUI Editor中打开该工作簿，输入下面的XML代码： ?...重新打开该工作簿后，在“Custom”选项卡中显示含拆分按钮的组，如图1所示。 ?...图1 在VBE中添加回调代码： 'Callbackfor Btn1 onAction Sub Macro1(control As IRibbonControl) MsgBox control.Tag

    1.8K10

    VBA专题10-18：使用VBA操控Excel界面之在功能区中添加自定义菜单控件

    excelperfect 这是本系列文章讲解的最后一种在功能区中添加的自定义控件类型，也是用于组织多个命令的一种非常有用的控件——菜单控件。...添加该控件的步骤与前面文章介绍的相同，新建一个启用宏的工作簿并保存，关闭该工作簿，然后在CustomUI Editor中打开该工作簿，输入下面的XML代码： ?...在Excel中打开该工作簿，然后打开VBE，插入一个标准的VBA模块，输入下面的代码： 'Callback for button1 onAction Sub Macro1(control As IRibbonControl...注意，本例只是演示了使用XML在菜单控件中添加按钮和菜单控件，也可以添加其他类型的控件，例如切换按钮、拆分按钮、库、复选框、通用控件和动态菜单。...在后面的文章中我们会详细介绍添加动态菜单这类特殊的控件。 下图演示了在自定义选项卡中添加的菜单控件的效果： ?

    1.6K30

    VBA专题10-24：使用VBA操控Excel界面之单元格上下文菜单（Excel 2010及以后的版本）

    在标准的VBA模块中的过程： Sub RemoveUSD(control As IRibbonControl) Dim workRng As Range Dim Item As Range...添加其他类型的控件 除了上面介绍的使用XML代码在单元格上下文菜单中添加按钮控件外，还可以添加6种其他类型的内置控件和自定义控件：切换按钮、拆分按钮、菜单、库、复选框和动态菜单。...示例XML代码： image.png image.png image.png 在标准VBA模块中的代码： Public myRibbon As IRibbonUI Dim Checkbox1Pressed...《VBA专题10-23：使用VBA操控Excel界面之添加动态菜单》一文中，当用户激活不同的工作表时，在Workbook_SheetActivate事件处理中明确地使菜单无效（为了重新构建菜单）。...然而，使用VBA代码实现添加控件仍然是可能的。

    1.6K10

    自定义功能区示例：自定义文件菜单、上下文菜单、功能区选项卡

    标签：VBA，自定义功能区 在《自定义功能区示例：创建用于工作表导航的下拉列表》、《自定义功能区示例：创建用于工作表导航的动态组合框》中，我们在Excel功能区中添加一个自定义的选项卡，然后再该选项卡中添加带有下拉列表或组合框的一个自定义组...，可用于从下拉列表中选择工作表，从而快速导航到该工作表，这对于工作簿中有大量工作表且要快速找到相应的工作表的用户来说，非常有用。...下面介绍一个综合示例，来源于forum.ozgrid.com，分别在工作簿文件菜单、右键上下文菜单中添加了自定义命令，也自定义了一个选项卡。可以作为自定义功能区的模板参考。...该工作簿名称为Ribbon and Backstage and Context Menus.xlsm，使用Custom UI Editor for Microsoft Office打开该工作簿，在其中输入代码...在Excel中打开Ribbon and Backstage and Context Menus.xlsm，打开VBE，插入一个标准模块，输入下面的代码： Sub OnAction(control As

    37010

    VBA技巧：自动给每个工作表添加相同大小和位置的按钮并指定相同的宏

    标签：VBA Q：我有一个工作簿，包含有多个工作表，我想在这些工作表的同一位置都添加一个按钮，并对这些按钮指定相同的宏过程，如何实现？ A：这样的操作最适合使用VBA。...在第一个工作表，假设其名称为“Sheet1”中，在想要添加按钮的位置放置一个大小合适的按钮，编辑修改其上的文字，然后指定宏过程，示例为MacroToRun。...Sheet1").Shapes("Button 1") With oButton T = .Top L = .Left H = .Height W = .Width M = .OnAction...ThisWorkbook.Worksheets If Not ws Is Sheet1 Then ws.Select ws.Buttons.Add(L, T, W, H).Select Selection.OnAction...If Next End Sub Sub MacroToRun() MsgBox ActiveSheet.Name End Sub 运行AddButtons过程，即可在每个工作表相同位置添加相同大小的按钮并指定相同的宏

    53912

    VBA专题10-21：使用VBA操控Excel界面之禁用和启用控件、组和选项卡

    虽然在功能区中被禁用的控件是灰色的，但你仍然可以通过快捷键组合执行它们中的一些命令。...自定义控件 通过使用getEnabled属性禁用（和启用）自定义控件的方法与使用getVisible属性隐藏（和取消隐藏）自定义控件的方法相同。...为了避免重复，这里介绍如何基于其ids禁用（和启用）某个自定义控件。...在Custom UI Editor中保存该文件，首次在Excel中打开该文件时，将会出现关于Initialize和GetEnabledAttnSh过程提示的错误消息，因为在标准的VBA模块中仍然没有这两个回调过程...End Sub 要基于其在XML代码中的id禁用（和启用）某自定义控件，在现有的标准VBA模块或者新的标准VBA模块中包括下面的代码： Sub EnableAll() Call RefreshRibbon

    3.4K20

    VBA专题10-23：使用VBA操控Excel界面之添加动态菜单

    学习Excel技术，关注微信公众号： excelperfect 在本系列后面的示例程序中，你将会看到如何使用项目和带图像的库控件通过getItemLabel和getItemImage回调属性引用的VBA...下面介绍一个简单的使用动态菜单控件示例，在工作簿中为三个工作表（名为Data，Analysis，Reports）的每个显示不同的菜单。 1. 创建一个新的工作簿，将其保存为启用宏的工作簿。 2....这个过程为动态菜单的内容创建XML代码。 注意，上面的VBA代码以类似于CustomUI Editor中的一种方式缩进，通过使用Debug.Print语句发送构建的XML代码到立即窗口。...如果要保留条件，可以在其被无效前存储其状态，然后在重新创建菜单时恢复其状态。这可以通过使用模块级的变量和getPressed回调属性来实现。...一般而言，即使工作簿中的代码执行完毕，工作簿中的公共级别变量、模块级变量和过程级静态变量仍然保留其值。可以使用以下四种方法清除这些变量存储的值： 在过程中或者在立即窗口中执行End语句。

    6.2K20

    VBA专题10-22：使用VBA操控Excel界面之重新利用内置控件以及监控内置控件

    学习Excel技术，关注微信公众号： excelperfect 重新利用内置控件 通过使用command元素及其onAction属性，可以临时或永久地覆盖内置控件的功能。...在标准VBA模块中编辑回调过程，永久地重新利用“剪切”控件的功能： 'Callback for Cut onAction Sub MyCut(control As IRibbonControl, ByRef...然而，如果用户不单击控件或者使用合适的Alt+键来触发控件（本例中，Alt+H+X触发剪切控件），被重新利用的控件不会总是按意图工作。例如，仍然可以通过使用Ctrl+X键组合来访问剪切功能。...例如，下面的回调过程在显示用户一条信息后重新恢复加粗控件的功能： 'Callback for Bold onAction Sub MyBold(control As IRibbonControl, pressed...然而，在Custom UI Editor for Microsoft Office中产生的回调签名的参数数量错误，如下： 'Callback for Bold onAction(wrong number

    1.1K10

    VBA专题10-19：使用VBA操控Excel界面之在功能区中添加不同类型的自定义控件

    excelperfect 本文是前面一系列文章的综合，前面每篇文章讲解如何在功能区中添加一类自定义控件，本文讲解如何将在功能区中同时添加这些控件。...添加该控件的步骤与前面文章介绍的相同，新建一个启用宏的工作簿并保存，关闭该工作簿，然后在CustomUI Editor中打开该工作簿，输入下面的XML代码： ? ? ? ? ? ?...在Excel中打开该工作簿，然后打开VBE，插入一个标准的VBA模块，输入下面的代码： 'Callback for button1 onAction Sub Macro1(control As IRibbonControl...在该工作簿的自定义选项卡中的不同类型的控件如下图所示： ? 下图演示了在自定义选项卡中各类控件的效果： ?...说明：本专题系列大部分内容学习整理自《Dissectand Learn Excel VBA in 24 Hours：Changingworkbook appearance》，仅供学习研究。

    1.9K10

    VBA专题10-25：使用VBA操控Excel界面之一个示例程序

    学习Excel技术，关注微信公众号： excelperfect 在前面的一系列主题中，你已经学到了很多小的修改工作簿外观的VBA代码。下面，我们将介绍一个简单的示例程序，实现下面的功能特点： 1....1.7 运行时使用图像动态地填充库控件。 2....（例如，在Group 1中的G1B1，在Group 2中的G2B2，在Group 3中的G3B3，在Group 4中的G4B3） 6....激活工作表Sheet1，选择一个单元格区域，在“名称”框中输入“Sheet1!MyRange”来命名为一个工作表级的名称。 5. 关闭该工作簿，然后在Custom UIEditor中打开该工作簿。...插入标准的VBA模块，复制并粘贴下列VBA代码： Public myRibbon As IRibbonUI '库中图像的数量 Dim ImageCount As Long '图像的文件名 Dim ImageFilenames

    2.4K10

    Excel VBA常用功能加载宏——工作表隐藏

    有些时候制作的表格，一些基础的设置数据可能不希望使用者看到并被修改掉，这个时候一般可能会选择把表格隐藏起来。 工作表的隐藏很简单，只需要右键点击工作表名称，然后点击隐藏就可以。...但是取消隐藏也差不多，右键点击后，选择某个工作表名称。 这种基本的操作，大多数人Excel用过一段时间的应该都会，所以保证不了其他人不会发现隐藏起来的表格。...这个可以通过VBA代码编辑器里的属性窗口，设置工作表的Visible属性为xlSheetVeryHidden来实现，当然使用VBA来设置肯定就更为方便快捷了： ?...;" size="large" imageMso="WindowSplit"> onAction...在设置当前工作表隐藏的时候，需要判断工作簿是否还有其他的可见工作表，否则会报错。

    2.8K30

    在Excel中自定义上下文菜单（中）

    标签：VBA，用户界面 本文接上篇文章： 在Excel中自定义上下文菜单（上） 使用RibbonX将控件添加到单元格上下文菜单 在下面的示例中，将创建与上文描述的示例相同的按钮和子菜单，但使用RibbonX...要使用内置命令添加自定义按钮，将语句： 替换为下面的语句： onAction属性调用的宏。...使用VBA代码或RibbonX将动态菜单添加到单元格上下文菜单 动态菜单指向在运行时创建菜单的回调过程。dynamicMenu控件包含指向GetContent回调过程的getContent属性。...图4 例如，下面的VBA代码在运行时使用两个按钮构建动态菜单，这意味着只有单击上下文菜单上的菜单控件才能创建动态菜单。

    1.7K40

    使用VBA加载宏小心 Workbook.FullName 属性

    Workbook.FullName在VBA中是一个非常常用的属性，返回的是工作簿的全路径，首先查看一下帮助文件： 返回对象的名称（以字符串表示），包括其磁盘路径。String 型，只读。...看到这里，联系平时使用Windows系统经验，应该能想到，这是因为Windows系统在查找文件的时候，是忽略大小写的，所以虽然手动修改了一些字母的大小写，Workbooks.Open仍然可以正确的打开文件...但是，存在这样一种场景： 对经常使用VBA的人来说，会写一些常用的功能制作为加载宏使用，使用过加载宏的应该知道，一旦加载宏被移动了位置，会出现如下提示： ?...说明加载宏在设置加载的时候，路径就被保存起来了，在这种情况下，如果路径中仅仅是修改了字母的大小写（测试文件名修改没有影响），加载宏打开时不会出问题的，但是，路径其实已经被修改了。...我个人有这样一个使用习惯，由于需要使用的VBA功能较多，我将一些功能分类编写了不同的宏文件，这些文件存放在同一个文件夹里，只设置加载一个加载宏。

    1.5K40

    常用功能加载宏——单元格数字转变

    对于会计人员来说，有一个经常要用到的操作，那就是把数字转变为万元为单位的、或者是把万元为单位的转变为普通的，一般的操作可能是： 在新的一列使用公式*10000或者/10000 然后把结果数值粘贴回去...Excel用的更熟练的可能是： 在一个单元格输入10000，然后复制这个单元格 选中需要转换的数字区域 选择性粘贴-乘或者除-确定 后面这个其实已经很方便了，但是比起点一点菜单就完成转变来说，还是麻烦了那么一点点...id="rbSepNumber01" title="================="/> onAction...="rbbtnNumChange" imageMso="WrapText" tag="0.0001"/> 这里使用了一个tag属性，目的是为了共用一个onAction，因为除10000也就相当于乘...回调函数： Sub rbbtnNumChange(control As IRibbonControl) MRange.NumChange VBA.CDbl(control.Tag) End Sub

    38320

    自定义功能区示例：创建用于工作表导航的下拉列表

    标签：VBA，自定义功能区 我们可以自定义功能区，在上面设置我们想要的功能，从而方便我们对工作表或工作簿的操作。...本文的示例如下图1所示，在功能区中添加一个自定义的选项卡，然后再该选项卡中添加带有下拉列表的一个自定义组，用于从下拉列表中选择工作表，从而快速导航到该工作表，这对于工作簿中有大量工作表且要快速找到相应的工作表的用户来说...图1 假设该工作簿名称为CustomUIDropdown.xlsm，使用Custom UI Editor for Microsoft Office打开该工作簿，在其中输入代码： onAction"/> 验证无误后，保存并关闭Custom UI...在Excel中打开CustomUIDropdown.xlsm，打开VBE，插入一个标准模块，输入下面的代码： Dim Rib As IRibbonUI Private mwkbNavigation As

    37820
    点击加载更多

    扫码

    添加站长 进交流群

    领取专属 10元无门槛券

    手把手带您无忧上云

    扫码加入开发者社群

    相关资讯

    热门标签

    更多标签

    活动推荐

      运营活动

      活动名称
      广告关闭

      腾讯云开发者

      扫码关注腾讯云开发者

      扫码关注腾讯云开发者

      领取腾讯云代金券

      热门产品

      热门推荐

      更多推荐

      Copyright © 2013 - 2025 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有

      深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 深公网安备号 44030502008569

      腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号 | 京公网安备号11010802020287

      领券