如何在 Excel 中向右键/上下文菜单添加自定义按钮?
ms excelmicrosoft technologiesadvanced excel function更新于 2025/4/19 13:00:17
Excel 允许您访问上下文菜单，当您右键单击单元格时，该菜单会加载各种选项。此菜单使您能够执行各种任务。您可能需要向上下文菜单添加一些功能，尤其是那些您经常使用的功能。遗憾的是，您无法像编辑其他菜单那样更改上下文菜单，即通过从"工具"菜单中选择"自定义"。这是编辑上下文菜单的唯一方法。单元格菜单是上下文菜单最常见的形式，大多数人都熟悉并经常使用。
本文旨在讨论使用 VBA 代码在 Excel 右键菜单中添加自定义按钮的过程。
使用 VBA 代码向上下文菜单添加自定义按钮
步骤 1
打开 Excel 工作表，然后按 Alt 和 F11 键 (Alt+F11) 打开 Microsoft Visual Basic for Application 窗口。参见下图。
步骤 2
之后，选择插入 >模块，弹出模块窗口。如下图所示。
步骤 3
打开模块窗口后，在其中输入以下 VBA 代码。
Sub AddItemToContextMenu()
Dim cmdNew As CommandBarButton
Set cmdNew = CommandBars("cell").Controls.Add
With cmdNew
.Caption = "My Button"
.OnAction = "MyButton"
.BeginGroup = True
End With
End Sub
添加 VBA 代码后，按 F5 或点击 运行 选项卡。然后按 Alt + Q 键退出 Microsoft Visual Basic for Applications 窗口。
您只需将 .Caption 属性更新为您想要使用的菜单文本，并调整 .OnAction 属性，使其指向要执行的命令或宏。
如果您稍后决定不再需要该菜单选项，可以使用以下宏。
Sub RemoveContextMenuItem()
On Error Resume Next
CommandBars("cell").Controls("My Button").Delete
End Sub
要利用此功能，请将"My Button"文本替换为您在上面编写的宏的 .Caption 属性中使用的文本。在这个特定的宏中，On Error 语句的存在只是为了防止指定的宏项未包含在之前的添加中。
现在选择任意单元格并右键单击，您将看到"我的按钮"按钮添加到列表中。
相关文章
有用资源
excel 参考教程 - 该教程包含有关 excel 的更多信息:https://www.cainiaomax.com/excel/
