广告合作
  • 今日头条

    今日头条

  • 百度一下

    百度一下,你就知道

  • 新浪网

    新浪网 - 提供新闻线索,重大新闻爆料

  • 搜狐

    搜狐

  • 豆瓣

    豆瓣

  • 百度贴吧

    百度贴吧——全球领先的中文社区

  • 首页 尚未审核订阅工具 订阅

    如何在EXCEL工具栏中制作自定义按钮

    来源:网络收集  点击:  时间:2024-04-11
    【导读】:
    EXCEL在日常生活及工作中应用非常广泛,对于处理大量的规律性重复性工作有时还会用到宏,或者使用VBA代码来对数据进行操作。本文将会介绍如何将编写好的VBA代码或宏代码制作成快捷按钮并显示在EXCEL工具栏。视觉上更加美观统一,不占据工作区域,而且使用方便。工具/原料moreEXCEL 2019方法/步骤1/4分步阅读

    打开VBA编辑器:点开“开发工具”选项卡,点击“Visual Basic”进入代码编辑界面。

    2/4

    编写好需要使用的VBA代码:编写好需要使用的功能代码,此处以本人自行编写的GPS坐标转换功能为例,过程名为“amaptogo”,当然这个过程名可以自己随意定。

    3/4

    在“加载项”选项卡添加自定义工具栏及功能按钮:

    首先要先添加一个自定义工具栏才能添加功能按钮,代码如下。

    Sub CreateToolBar()

    On Error Resume Next

    CommandBars(custombar1).Delete 清除同名工具栏,避免冲突

    With Application.CommandBars.Add(custombar1, msoBarTop, , True)

    定义工具栏

    .Visible = True 设置工具栏可见

    With .Controls.Add(Type:=msoControlButton) 开始添加自定义按钮

    .Caption = amaptogoName 自定义按钮显示名称

    .Style = msoButtonIconAndCaption 显示风格

    .TooltipText = amaptogo 这个属性是表示当鼠标移动到按钮上方时弹出的悬浮窗显示的提示内容

    .FaceId = 128 FaceId代码,每一个代码对应一个图标,具体对应关系见下一步

    .OnAction = amaptogo 该按钮关联的过程(就是之前编写好的代码过程名)

    End With

    End With

    end sub

    编写完成后运行,“加载项”选项卡中就会显示对应图标,鼠标点击后就能运行指定代码了。

    4/4

    选择合适的图标(FaceId):常用FaceID图标及代号对应表参考如下,EXCEL版本不同图标样式可能会有些许出入,以实际为准。此对应表为本人手工整理,如需转载请明确注明来源。

    本文关键词:

    版权声明:

    1、本文系转载,版权归原作者所有,旨在传递信息,不代表看本站的观点和立场。

    2、本站仅提供信息发布平台,不承担相关法律责任。

    3、若侵犯您的版权或隐私,请联系本站管理员删除。

    4、文章链接:http://www.1haoku.cn/art_488139.html

    相关资讯

    ©2019-2020 http://www.1haoku.cn/ 国ICP备20009186号05-05 05:18:26  耗时:0.025
    0.0255s