vba - 在 Excel 中使用 VBA 自定义功能区

Question

我已经了解到，在 Excel 中创建自定义选项卡在 this 中是不可能的。 !发布(与 MSProject 不同)

具体来说，我可以将宏的路径更改为当前位置吗？

编辑看来这个page可能会找到答案，但我仍然不知道如何实现

对情况的一些更详细的描述:

用户将下载一个文件，其中包含 Material 、设备、劳动力的列表。每列包含有关数量、定价等信息当用户单击我要创建的此按钮(我已手动创建)时，另一个工作簿中名为“Main”的宏将启动并将整个工作表(内容)复制到自身，并执行程序在其上执行的一些操作。

所以我面临的问题是，当我向客户发送新版本时，他必须将其放在确切的位置，否则它将无法工作。由于涉及 Mac 和 Windows 计算机的混合，我宁愿看到这样一种情况:当用户打开 WorkBook B(包含代码的工作簿)时，按钮被分配给过程。

这样，新版本只需打开一次，然后如果要继续使用，用户只需打开下载的文件，单击相应的按钮，WorkBook B 就会自动打开并执行。

也许还有其他方法可以解决这个问题。我还没有检查过将按钮分配给快速访问工具栏是否更容易...

Answer 1

这是我用来添加自定义工具栏的一些代码:

Set cbToolbar = Application.CommandBars.Add(csToolbarName, msoBarTop, False, True)

With cbToolbar
    Set ctButton1 = .Controls.Add(Type:=msoControlButton, ID:=2950)
    Set ctButton2 = .Controls.Add(Type:=msoControlButton, ID:=2950)
    Set ctButton3 = .Controls.Add(Type:=msoControlButton, ID:=2950)
End With

With ctButton1
    .Style = msoButtonIconAndCaption
    .Caption = "Set &Picklists"
    .FaceId = 176
    .OnAction = "SetPicklist"
End With

With ctButton2
    .Style = msoButtonIconAndCaption
    .Caption = "Set &Defaults"
    .FaceId = 279
    .OnAction = "SetDefaults"
End With

With ctButton3
    .Style = msoButtonIconAndCaption
    .Caption = "&Visibility Settings"
    .FaceId = 2174
    .OnAction = "VisibilitySettings"
End With


With cbToolbar
    .Visible = True
    .Protection = msoBarNoChangeVisible
End With

“OnAction”控制运行的宏...如果您想扩展它以在特定工作簿上运行宏，请使用“whatever.xls!MacroName”