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

Question

我已经了解到在 Excel 中创建自定义选项卡在 this 中是不可能的！发布（与 MSProject 不同）

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

编辑 似乎这个page 可能会导致答案，但我仍然不知道如何，虽然

一些更详细的情况描述：

用户将下载一个文件，其中包含材料、设备、劳动力的列表。每列包含有关数量、价格等的信息 当用户单击我要创建的此按钮（我已手动创建）时，另一个工作簿中名为“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”