如何在 Excel 中添加自定义按钮到右键或上下文菜单

当您右键单击单元格时，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””替换为上面编写的宏中使用的标题所用的文本。在这个特定的宏中，“On Error”语句的存在仅在早期的添加中未包含指定的宏项时出现。

现在选择任何单元格，右键单击那里，您将看到“My Button”按钮已添加到列表中。