如何在 Excel 的右键/上下文菜单中添加自定义按钮？

如下截图所示，许多人倾向于将他们常用的函数添加到 Excel 的右键菜单中，以便将来只需单击一下即可快速使用这些功能。本文将介绍如何在 Excel 的右键菜单中添加自定义代码按钮。

使用 VBA 代码将自定义按钮添加到 Excel 的上下文菜单中

使用 VBA 代码将自定义按钮添加到 Excel 的上下文菜单中

假设您已经在 Excel 中创建了一个名为 MyMacro 的 VBA 脚本，现在需要将此功能添加到上下文菜单中，以便通过单击运行该代码。请按照以下步骤操作。

1. 同时按下 Alt + F11 键以打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，双击左侧 项目 窗格中的 ThisWorkbook。然后将以下 VBA 代码复制并粘贴到 ThisWorkbook（代码） 窗口中。

VBA 代码：将自定义按钮添加到 Excel 的上下文菜单中

Private Sub Workbook_Deactivate()
    On Error Resume Next
        With Application
            .CommandBars("Cell").Controls("MyMacro").Delete
        End With
    On Error GoTo 0
End Sub

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Dim cmdBtn As CommandBarButton
    On Error Resume Next
        With Application
            .CommandBars("Cell").Controls("MyMacro").Delete
            Set cmdBtn = .CommandBars("Cell").Controls.Add(Temporary:=True)
        End With

        With cmdBtn
           .Caption = "MyMacro"
           .Style = msoButtonCaption
           .OnAction = "MyMacro"
        End With
    On Error GoTo 0
End Sub

注意：在代码中，请将所有“MyMacro”替换为您在 Excel 中创建的宏名称。

3. 按下 Alt + Q 键退出 Microsoft Visual Basic for Applications 窗口。

现在您返回到 Excel 界面，右键单击单元格后，您会看到带有指定名称的新按钮已添加到右键菜单中，如下截图所示。单击该按钮将立即触发相应的宏。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

相关文章：

• 如何在 Excel 中通过命令按钮自动插入空白新行？
• 如何使用命令按钮将活动工作表另存为 PDF 文件？
• 如何在 Excel 中通过命令按钮保存并关闭活动工作簿且不提示？
• 如何在 Excel 中通过命令按钮更新或插入（当前）日期和时间？
• 如何在 Excel 中单击一次后禁用按钮？