在excel中,如何把宏的自定义按纽(加载项)放在excel中的工具栏中去

发布网友发布时间：2022-04-23 02:57

共2个回答

热心网友时间：2022-06-18 10:01

方法：
1- 假定打开了一个Excel 表格，并且制作或写好了一个宏。注意：宏必须写在模块中，并且是public sub 的宏，不能带有参数。这里假定是如下的宏：
Public Sub API_Test()
MsgBox "Hello"
End Sub
2- 现在点击保存，会弹出保存对话框。在该对话框的“保存类型”中选择“Excel加载宏(*.xlam)”或“Excel 97-2003加载宏(*.xla)”。这个时候保存对话框的保存路径默认会修改（这个路径根据你安装Excel 程序的不同而不同，也根据操作系统变化，这里不详细说明。当然，也可以修改到其他你想要的路径下面。假定该保存路径是A）。——注：如果在保存类型中看不到程序的后缀名，则需要先在Windows 的文件夹窗口下面先打开文件夹选项，在显示中把文件的后缀名显示出来，再重复该步骤。
3- 点击保存，则该xlam 文件（2007版本）或xla 文件（2003和老版本）已经保存在路径A下。
4- 再打开一个新的Excel表格，这里假定是2007版本的Excel，文件名B。
5- 右键点击菜单栏，选中“自定义快速访问工具栏”。——也就是进入到“Excel选项”中，选中“自定义”选项卡。
6- 在“自定义”选项卡的后面，有一个下拉菜单“从下列位置选择命令”，点击选中其中的“宏”。
7- 这个时候就可以看到在该下拉菜单的下面，多了一个API_Test的宏。——注意：在进行这步操作的时候，要确保刚才保存的xlam 文件或xla文件要打开才可以，否则找不到该API_Test的宏。
8- 剩下的就简单了，选中该API_Test的宏，然后添加到右边的框框中，最后确定，保存，退出Excel。
9- 现在只要把所有的Excel 关闭，重新打开一个Excel程序，按Alt+F8（也就是运行宏），在对话框中选中API_Test宏，点击确定后，就会弹出一个对话框：“Hello”。
10- 剩下的就是在这个基础上，自己把想要的东西添加就可以了。

热心网友时间：2022-06-18 11:19

这个问题属于中高级课程的知识，在本基础班不会涉及。我下面分享一下例子，可以把宏添加到加载项里，要做成楼主这样，还得细细研究CommandBar对象。建议楼主百度一下搜索一下。Sub 自定义菜单() Dim cmd As CommandBar On Error Resume Next Application.CommandBars("asktell").Delete Set cmd = Application.CommandBars.Add("asktell", msoBarTop) With cmd With .Controls.Add(msoControlButton) .Caption = "测试" .Style = msoButtonCaption .OnAction = "test" End With .Visible = True End WithEnd SubSub test() Range("a1") = 1End Sub