设为首页收藏本站
开启辅助访问

Excel精英培训网

 找回密码
 注册
Excel精英培训网»论坛 › Excel 求助区 › Excel VBA开发 › add-ins按钮
数据透视表40+个常用小技巧，让你一次学会！
返回列表 发新帖
查看: 8050|回复: 5

[已解决]add-ins按钮

[复制链接]
发表于 2013-6-16 23:20 | 显示全部楼层 |阅读模式
工作中常用的Excel函数公式，全印在一张超大鼠标垫上
在“开发工具”右边有另一个选择按钮，英文版是"add-ins"。
点击"add-ins"，下边一行会显示已有的宏。点击这个宏就可以运行这个宏。
重点是，只要开着这一个有"add-ins"的EXCEL，
其它所有同时开着的EXCEL，无论是哪个工作表，或无论是哪个EXCEL，
都有"add-ins"这个按钮并且可以运行这个宏。

请问宏是怎样添加到这个"add-ins"里？这个"add-ins"是从哪里添加出来的？


最佳答案
月排行榜 / 总排行榜
hwc2ycy
2013-6-17 08:01
  1. Sub test()
  2.     On Error Resume Next
  3.     CommandBars("Test").Delete
  4.     With CommandBars.Add("Test", msoBarTop)
  5.         With .Controls.Add(Type:=msoControlComboBox, Before:=1)
  6.             .AddItem Text:="First Item", Index:=1
  7.             .AddItem Text:="Second Item", Index:=2
  8.             .DropDownLines = 3
  9.             .DropDownWidth = 75
  10.             .ListHeaderCount = 0
  11.             .Visible = True
  12.         End With
  13.         With .Controls.Add(Type:=msoControlButton)
  14.             .Caption = "按钮1"
  15.             .OnAction = "按钮1"
  16.             .Visible = True
  17.             .FaceId = 3
  18.             .BeginGroup = True
  19.             .Style = msoButtonIconAndCaptionBelow
  20.         End With
  21.         With .Controls.Add(Type:=msoControlButton)
  22.             .Caption = "按钮2"
  23.             .OnAction = "按钮1"
  24.             .Visible = True
  25.             .FaceId = 2
  26.             .BeginGroup = True
  27.             .Style = msoButtonIconAndCaptionBelow
  28.         End With
  29.         .Visible = True
  30.     End With
  31. End Sub

  33. Sub 按钮1()
  34.     MsgBox "test"
  35. End Sub
复制代码
excel精英培训的微信平台，每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
回复

使用道具 举报

工作中最常用的函数公式，全印在一张超大的鼠标垫上
hwc2ycy
发表于 2013-6-16 23:28 | 显示全部楼层
工作中常用的Excel函数公式，全印在一张超大鼠标垫上
你说的那个是在07，10里操作了工具栏的结果。
回复

使用道具 举报

xwenwei
发表于 2013-6-17 00:57 | 显示全部楼层
工作中最常用的Excel函数公式，全印在一张鼠标垫上
谢谢指教。
回复

使用道具 举报

 楼主| 发表于 2013-6-17 01:41 | 显示全部楼层
hwc2ycy 发表于 2013-6-16 23:28
你说的那个是在07，10里操作了工具栏的结果。

那应该怎样操作？
回复

使用道具 举报

hwc2ycy
发表于 2013-6-17 08:01 | 显示全部楼层    本楼为最佳答案   
  1. Sub test()
  2.     On Error Resume Next
  3.     CommandBars("Test").Delete
  4.     With CommandBars.Add("Test", msoBarTop)
  5.         With .Controls.Add(Type:=msoControlComboBox, Before:=1)
  6.             .AddItem Text:="First Item", Index:=1
  7.             .AddItem Text:="Second Item", Index:=2
  8.             .DropDownLines = 3
  9.             .DropDownWidth = 75
  10.             .ListHeaderCount = 0
  11.             .Visible = True
  12.         End With
  13.         With .Controls.Add(Type:=msoControlButton)
  14.             .Caption = "按钮1"
  15.             .OnAction = "按钮1"
  16.             .Visible = True
  17.             .FaceId = 3
  18.             .BeginGroup = True
  19.             .Style = msoButtonIconAndCaptionBelow
  20.         End With
  21.         With .Controls.Add(Type:=msoControlButton)
  22.             .Caption = "按钮2"
  23.             .OnAction = "按钮1"
  24.             .Visible = True
  25.             .FaceId = 2
  26.             .BeginGroup = True
  27.             .Style = msoButtonIconAndCaptionBelow
  28.         End With
  29.         .Visible = True
  30.     End With
  31. End Sub

  33. Sub 按钮1()
  34.     MsgBox "test"
  35. End Sub
复制代码
回复

使用道具 举报

hwc2ycy
发表于 2013-6-17 08:01 | 显示全部楼层
QQ截图20130617080241.jpg
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-4-25 15:01 , Processed in 0.220307 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表