精华内容
下载资源
问答
  • VBA自定义工具栏按钮制作方法

    千次阅读 2011-04-02 10:26:27
    在 Excel 中点击菜单 “工具” → “自定义” ,在弹出的对话框中选择 “命令”栏,在左边的“类别”框中选择“宏”,在右边的“命令”框中左键拖动“自定义按钮”到任意一个工具栏上(自己觉得方便的位置上即可),...

    在 Excel 中点击菜单 “工具” → “自定义” ,在弹出的对话框中选择 “命令”栏,在左边的“类别”框中选择“宏”,在右边的“命令”框中左键拖动“自定义按钮”到任意一个工具栏上(自己觉得方便的位置上即可),右键点击刚刚拖到工具栏上的图标,选择“指定宏”,在弹出的“指定宏”对话框中选择要使用的宏名字,点“确定” → “关闭”,要使用该宏,只需点击刚刚拖到工具栏上的按钮即可。 

     

    说明:上面的按钮只能用于包含上述代码的工作簿,若要对其他工作簿也适用,则可新建一空白工作簿,进入VBA编辑器,在此空白工作簿下新建一模块,将上述代码复制到该模块中,返回 Excel ,点击“另存为”,选择保存类型为 “Microsoft Office Excel 加载宏(*.xla)”,将此加载宏文件复制到 “Documents and Settings/<user name>/Application Data/Microsoft/AddIns” 文件夹内,重新打开 Excel ,点击菜单 “工具” → “加载宏”,此时在 “可用加载宏” 可看到多出了一个刚刚保存的加载宏的文件名字的选项,将此项前面的勾打上,即可在以后打开 Excel 时自动加载该宏。此时再按上述第2点中的步骤设置按钮时,在选择“指定宏”时,在弹出的“指定宏”对话框中看不到任何选项,不用理会直接输入自己的宏名,再点“确定” → “关闭”,返回 Excel 操作界面即可在任何工作簿中使用该按钮了。

    展开全文
  • 可以在加载项选项卡中插入自定义按钮、创建自定义工具栏,效果如下:Sub 插入自定义按钮()Dim cmb As Office.CommandBarDim bt As Office.CommandBarButtonSet cmb = Application.CommandBars("Formatting")Set bt =...

    可以在加载项选项卡中插入自定义按钮、创建自定义工具栏,效果如下:

    018471831ecc407262037ef91fbd2010.png
    Sub 插入自定义按钮()Dim cmb As Office.CommandBarDim bt As Office.CommandBarButtonSet cmb = Application.CommandBars("Formatting")Set bt = cmb.Controls.Add(Type:=Office.MsoControlType.msoControlButton)With bt.Caption = "右对齐".FaceId = 2950.Style = msoButtonIconAndCaption.OnAction = "Right"End WithEnd Sub

    下面的Right 过程是自定义按钮的回调函数。

    Sub Right()Selection.HorizontalAlignment = Excel.Constants.xlRightEnd Sub

    添加控件:

    Sub 添加控件() '添加的控件用回调函数响应 On Error Resume Next Dim cmb As Office.CommandBar Dim pop As Office.CommandBarPopup Dim bt As Office.CommandBarButton Dim combo As Office.CommandBarComboBox Dim drop As Office.CommandBarControl Dim txt As Office.CommandBarControl Application.CommandBars("Everything").Delete '添加子菜单控件 Set cmb = Application.CommandBars.Add(Name:="Everything
    展开全文
  • 可以在加载项选项卡中插入自定义按钮、创建自定义工具栏,效果如下:Sub 插入自定义按钮()Dim cmb As Office.CommandBarDim bt As Office.CommandBarButtonSet cmb = Application.CommandBars("Formatting")Set bt =...

    可以在加载项选项卡中插入自定义按钮、创建自定义工具栏,效果如下:

    9376369a0d6bf1cddda704a45cac2bae.png
    Sub 插入自定义按钮()Dim cmb As Office.CommandBarDim bt As Office.CommandBarButtonSet cmb = Application.CommandBars("Formatting")Set bt = cmb.Controls.Add(Type:=Office.MsoControlType.msoControlButton)With bt.Caption = "右对齐".FaceId = 2950.Style = msoButtonIconAndCaption.OnAction = "Right"End WithEnd Sub

    下面的Right 过程是自定义按钮的回调函数。

    Sub Right()Selection.HorizontalAlignment = Excel.Constants.xlRightEnd Sub

    添加控件:

    Sub 添加控件() '添加的控件用回调函数响应 On Error Resume Next Dim cmb As Office.CommandBar Dim pop As Office.CommandBarPopup Dim bt As Office.CommandBarButton Dim combo As Office.CommandBarComboBox Dim drop As Office.CommandBarControl Dim txt As Office.CommandBarControl Application.CommandBars("Everything").Delete '添加子菜单控件 Set cmb = Application.CommandBars.Add(Name:="Everything
    展开全文
  • 自定义菜单栏、工具栏的效果:主要是使用CommandBars对象模型:VBA代码:1 自定义菜单命令组'自定义菜单命令组Public Sub creatediyMenu() For Each con In Application.CommandBars("Data").Controls con.Delete...

    Excel2007中,功能区替代了以前的分层菜单、工具栏和任务窗格系统。

    自定义菜单栏、工具栏的效果:

    4278a35303597a7596622e94eb0aaad7.png

    主要是使用CommandBars对象模型:

    71942a62bfba6cdeb00cc735e18f57ef.png

    VBA代码:

    1 自定义菜单命令组

    '自定义菜单命令组Public Sub creatediyMenu()    For Each con In Application.CommandBars("Data").Controls        con.Delete    Next    Dim diyMenu As Object    Dim MenuItem As Variant    Dim Menusub As Variant    MenuItem = Array( _        "首行标题和冻结及边框", "创建工作表目录", _        "工作表按名称排序", _        "设置页眉页脚", _        "隔行插入空行", "删除空行", "删除选定列空单元格的行", _        "删除超级链接", _        "删除形状(图形、文本框等)", _        "设置最后一个字符为上标", _        "多条件排序(ABCD列)", _        "多条件筛选(AB列)", _        "Setting", _        "选区字符统计", _        "借书记录", _        "定位到D列最后一行", _        "显示或隐藏批注", "删除当前表中批注")    Menusub = Array( _        "PERSONAL.XLSB!行操作.首行标题和冻结及边框", _        "PERSONAL.XLSB!表操作.创建工作表目录", _        "PERSONAL.XLSB!表操作.sortShtByName", _        "PERSONAL.XLSB!表操作.设置页眉页脚", _        "PERSONAL.XLSB!行操作.insertBlankRow", _        "PERSONAL.XLSB!行操作.DeleteBlankRow", _        "PERSONAL.XLSB!行操作.批量删除空行_先选定列", _        "PERSONAL.XLSB!数据编辑.删除超级链接", _        "PERSONAL.XLSB!数据编辑.删除形状", _        "PERSONAL.XLSB!数据编辑.设置单元格最后一个字符为上标", _        "PERSONAL.XLSB!排序与筛选和统计.MoreKeySort", _        "PERSONAL.XLSB!排序与筛选和统计.Filter_MoreCriteria", _        "PERSONAL.XLSB!自定义菜单.ExcelSetting", _        "PERSONAL.XLSB!排序与筛选和统计.textcount", _        "PERSONAL.XLSB!借书记录.借书记录", "PERSONAL.XLSB!自定义菜单.newRowPos", _        "PERSONAL.XLSB!排序与筛选和统计.显示或隐藏批注", _        "PERSONAL.XLSB!排序与筛选和统计.删除当前表中批注")     For i = 0 To UBound(MenuItem)        Set diyMenu = Application.CommandBars("Data").Controls.Add(Type:=msoControlButton)        With diyMenu            .Caption = MenuItem(i)            .OnAction = Menusub(i)        End With    Next i    Set diyMenu = NothingEnd Sub

    2 插入自定义工具栏命令

    Sub 插入自定义工具栏命令()    Dim cmb As Office.CommandBar    Dim bt As Office.CommandBarButton    'Call 删除菜单栏    Set cmb = Application.CommandBars("Formatting")    Set bt = cmb.Controls.Add(Type:=Office.MsoControlType.msoControlButton)    With bt        .Caption = "借书记录"        .FaceId = 2560        .Style = msoButtonIconAndCaption        .OnAction = "PERSONAL.XLSB!借书记录.借书记录"    End WithEnd Sub'下面的Right 过程是自定义按钮的回调函数?Sub Right()    Selection.HorizontalAlignment = Excel.Constants.xlRightEnd Sub

    3 创建新的菜单栏

    Const strBarName As String = "我的菜单栏"Public Sub 创建新的菜单栏()    Dim cbr As CommandBar, ctl As CommandBarControl    Call 删除菜单栏    'For Each con In Application.CommandBars(strBarName).Controls        'con.Delete    'Next    Set cbr = Application.CommandBars.Add(strBarName, MenuBar:=True)    cbr.Visible = True    Set ctl = Application.CommandBars("Worksheet Menu Bar").FindControl(ID:=30002)    ctl.Copy Application.CommandBars(strBarName)   ' 30002文件下拉菜单    Set ctl = Application.CommandBars("Worksheet Menu Bar").FindControl(ID:=30003)    'Set ctl = Application.CommandBars("Chart Menu Bar").FindControl(ID:=30003)    '30003编辑、30004视图、30005插入、30006格式、30007工具    ctl.Copy Application.CommandBars(strBarName)    With cbr.Controls.Add(msoControlPopup)        .Caption = "帮助"        With .Controls.Add(msoControlButton)            .Caption = "重置"            .OnAction = "删除菜单栏"        End With        With .Controls.Add(msoControlButton)            .Caption = "关于"            .OnAction = "关于"        End With    End WithEnd SubSub 删除菜单栏()    On Error Resume Next    Application.CommandBars(strBarName).Delete    On Error GoTo 0End SubSub 关于()    Dim strMsg As String    strMsg = "这是一个新的菜单栏" & vbCrLf    strMsg = strMsg & "由" & Application.UserName & "创建"    MsgBox strMsg, , "关于"End Sub

    自定义功能区参照:

    Excel2007|RibbonX控件 & 自定义功能区

    在Excel2013中,创建功能区选项卡的操作非常简单,用户可通过打开“Excel选项"对话框直接进行功能区选项卡和组的创建。

    -End-

    展开全文
  • 替换工具栏按钮的图标_Excel VBA应用.rar,Excel为工具栏按钮提供了大量的内置图标,每个图标对应一个FacelD。通过指定FaceID,可以为工具栏按钮设置不同的图标,这为创建个性用户的工具栏以及自定义工具栏提供了便利...
  • 将"VBA加载工具.xlsm"置于D:\根目录中,在execl自定义工具栏导入"Excel 自定义.exportedUI"文件 选中要处理数据单元格后,点击宏按钮,会实现功能,同时会加载宏文件(也是个表格,不要关闭) 详见:宏按钮工具栏.jpg ...
  • EXCEL VBA自定义菜单项

    2009-05-05 17:37:00
    首先要确保要更改的工具栏是可见的,再单击“工具栏选项”箭头指向“添加或删除按钮”或用右击单击工具栏,再单击“自定义”,单击“ 命令”选项卡,在类别中选择“宏”,将“自定义按钮”拖拉到你需要的工具栏的...
  • 但是通过这个小实验,我们可以学会一种简易的自定义工具栏方法、把自己编写的VBA程序做成功能按钮,所以还是很值得一试的。只是要注意:本方法只对Excel2013及以上版本适用。 ~END~ 更多精彩阅读 接下来,我们会怎么...
  • Excel_VBA教程

    2014-09-22 11:36:34
    17通过工具栏按钮运行宏 37 18通过工作表里面的按钮运行宏 38 19保存宏 39 20打印宏 39 21保存宏在个人宏工作簿 40 22打开含有宏的工作簿 41 23VB编辑窗口 42 24了解工程浏览窗口 43 25了解属性窗口 43 26了解代码...
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧90 自定义工具栏按钮图标 12 技巧91 自定义工作簿图标 12 技巧92 移除工作表的最小最大化和关闭按钮 12 技巧93 在工具栏上添加下拉列表框 12 技巧94 屏蔽工作表的复制功能 12 技巧95 禁用工具栏的自定义 12 技巧...
  • VBA零基础入门 系列4:你会编程,领导/同事不会怎么办?乐学偶得版权所有  公众号:乐学Fintech  正版视频课程 网易云课堂:乐学偶得千万不要...自定义工具栏Ribbon Tab 乐学偶得版权所有  ...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧90 自定义工具栏按钮图标 216 技巧91 自定义工作簿图标 217 技巧92 移除工作表的最小最大化和关闭按钮 218 技巧93 在工具栏上添加下拉列表框 219 技巧94 屏蔽工作表的复制功能 221 技巧95 禁用工具栏的自定义 ...
  • ExcelVBA程序设计.doc

    2011-04-05 21:32:51
    17通过工具栏按钮运行宏 37 18通过工作表里面的按钮运行宏 38 19保存宏 39 20打印宏 39 21保存宏在个人宏工作簿 40 22打开含有宏的工作簿 41 23VB编辑窗口 42 24了解工程浏览窗口 43 25了解属性窗口 43 26了解代码...
  • execl VBA的操作备忘

    2012-04-10 15:07:59
    开发工具---录制新宏(开发工具在:自定义快速访问工具栏(最上面的倒三角)---常用---勾选) 操作 结束录制 点击开发工具就可以查看代码了 2 添加一个命令按钮 开发工具--插入--命令按钮 3 设置单元格...
  • 第15章提供发布VBA应用程序的各种技术,包括菜单宏的使用、在工具栏中使用自定义图标、基本图库的实现(动态修改菜单文件)、在命令行或菜单中执行VBA程序、实现VBA程序的先选择再操作、更改AutoCAD应用程序的图标和...
  • 《CAD地形图常用实用工具套件》 所有程序必须解压到 E:\xhykj\测量测绘 文件夹下,否则有可能按钮图片加载失败。... 注:工具栏按钮运行时,MyCADPopWin.exe /T 必须在状态栏运行,不能关闭,否则工具条不能使用。
  • 《CAD地形图常用实用工具套件》 150 多项在地形图测绘时经常使用的功能。可以执行外部Exe程序,也可以运行在CAD动态... 注:工具栏按钮运行时,MyCADPopWin.exe /T 必须在状态栏运行,不能关闭,否则工具条不能使用。
  • Excel 2007与VBA编程从入门到精通 10/10

    热门讨论 2012-04-01 15:47:40
     2.3.6 单击快速访问工具栏上的宏按钮执行宏  2.4 决定宏保存的位置  2.5 加载宏  2.5.1 什么是加载宏  2.5.2 加载宏的类型  2.5.3 Excel 2007提供的加载宏  2.5.4 添加其他来源的加载宏  2.5.5 ...
  • Excel 2007与VBA编程从入门到精通 6/10

    热门讨论 2012-04-01 14:47:49
     2.3.6 单击快速访问工具栏上的宏按钮执行宏  2.4 决定宏保存的位置  2.5 加载宏  2.5.1 什么是加载宏  2.5.2 加载宏的类型  2.5.3 Excel 2007提供的加载宏  2.5.4 添加其他来源的加载宏  2.5.5 ...
  • Excel 2007与VBA编程从入门到精通 1/10

    热门讨论 2012-04-01 13:34:05
     2.3.6 单击快速访问工具栏上的宏按钮执行宏  2.4 决定宏保存的位置  2.5 加载宏  2.5.1 什么是加载宏  2.5.2 加载宏的类型  2.5.3 Excel 2007提供的加载宏  2.5.4 添加其他来源的加载宏  2.5.5 ...
  • Excel 2007与VBA编程从入门到精通 9/10

    热门讨论 2012-04-01 15:43:41
     2.3.6 单击快速访问工具栏上的宏按钮执行宏  2.4 决定宏保存的位置  2.5 加载宏  2.5.1 什么是加载宏  2.5.2 加载宏的类型  2.5.3 Excel 2007提供的加载宏  2.5.4 添加其他来源的加载宏  2.5.5 ...
  • Excel 2007与VBA编程从入门到精通 3/10

    热门讨论 2012-04-01 14:09:14
     2.3.6 单击快速访问工具栏上的宏按钮执行宏  2.4 决定宏保存的位置  2.5 加载宏  2.5.1 什么是加载宏  2.5.2 加载宏的类型  2.5.3 Excel 2007提供的加载宏  2.5.4 添加其他来源的加载宏  2.5.5 ...
  • Excel 2007与VBA编程从入门到精通 5/10

    热门讨论 2012-04-01 14:34:23
     2.3.6 单击快速访问工具栏上的宏按钮执行宏  2.4 决定宏保存的位置  2.5 加载宏  2.5.1 什么是加载宏  2.5.2 加载宏的类型  2.5.3 Excel 2007提供的加载宏  2.5.4 添加其他来源的加载宏  2.5.5 ...
  • Excel 2007与VBA编程从入门到精通 2/10

    热门讨论 2012-04-01 13:54:03
     2.3.6 单击快速访问工具栏上的宏按钮执行宏  2.4 决定宏保存的位置  2.5 加载宏  2.5.1 什么是加载宏  2.5.2 加载宏的类型  2.5.3 Excel 2007提供的加载宏  2.5.4 添加其他来源的加载宏  2.5.5 ...
  • Excel 2007与VBA编程从入门到精通 4/10

    热门讨论 2012-04-01 14:21:28
     2.3.6 单击快速访问工具栏上的宏按钮执行宏  2.4 决定宏保存的位置  2.5 加载宏  2.5.1 什么是加载宏  2.5.2 加载宏的类型  2.5.3 Excel 2007提供的加载宏  2.5.4 添加其他来源的加载宏  2.5.5 ...
  • Excel 2007与VBA编程从入门到精通 8/10

    热门讨论 2012-04-01 15:29:41
     2.3.6 单击快速访问工具栏上的宏按钮执行宏  2.4 决定宏保存的位置  2.5 加载宏  2.5.1 什么是加载宏  2.5.2 加载宏的类型  2.5.3 Excel 2007提供的加载宏  2.5.4 添加其他来源的加载宏  2.5.5 ...
  • Excel 2007与VBA编程从入门到精通 7/10

    热门讨论 2012-04-01 15:01:23
     2.3.6 单击快速访问工具栏上的宏按钮执行宏  2.4 决定宏保存的位置  2.5 加载宏  2.5.1 什么是加载宏  2.5.2 加载宏的类型  2.5.3 Excel 2007提供的加载宏  2.5.4 添加其他来源的加载宏  2.5.5 ...

空空如也

空空如也

1 2 3 4 5 6
收藏数 101
精华内容 40
关键字:

vba自定义工具栏按钮