如何在 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 (Code) 窗口中。

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 中通過命令按鈕自動插入空白新行？
• 如何在 Excel 中使用命令按鈕將活動工作表保存為 PDF 文件？
• 如何在 Excel 中通過命令按鈕保存並關閉活動工作簿而不提示？
• 如何在 Excel 中通過命令按鈕更新或插入（當前）日期和時間？
• 如何在 Excel 中點擊一次後禁用按鈕？