如何在Excel中向右鍵單擊/上下文選單新增自定義按鈕？

Excel 提供了上下文選單，只要您右鍵單擊單元格，就會載入許多選項。此選單使您可以執行各種任務。您可能需要向上下文選單新增一些功能，尤其是一些您經常使用的功能。不幸的是，您無法像編輯其他選單那樣編輯上下文選單（透過從“工具”選單中選擇“自定義”）。這是編輯上下文選單的唯一方法。單元格選單是最常見的上下文選單形式，大多數人都熟悉並使用它。

本文旨在討論使用 VBA 程式碼將自定義程式碼按鈕新增到 Excel 右鍵選單的過程。

使用 VBA 程式碼向上下文選單新增自定義按鈕

步驟 1

開啟一個 Excel 表格，按 Alt 和 F11 鍵 **(Alt+F11)** 開啟 Microsoft Visual Basic for Applications 視窗。請參見下圖。

步驟 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

要利用此功能，請將顯示為“我的按鈕”的文字替換為您在上面編寫的宏的 `.Caption` 屬性中使用的文字。在此特定宏中，`On Error` 語句的存在只是為了防範指定宏項未包含在之前的新增中。

現在選擇任何單元格並右鍵單擊，您將看到已新增到列表中的“我的按鈕”按鈕。

更新於：2022年9月12日

4K+ 次檢視

啟動您的 職業生涯

完成課程後獲得認證

開始
廣告