如何在Excel的右鍵單擊/上下文菜單中添加自定義按鈕

發(fā)布:未知文本批量工具

如何在Excel的右鍵單擊/上下文菜單中添加自定義按鈕？

如下面的屏幕截圖所示，許多人傾向于將其常用功能添加到Excel的右鍵單擊菜單中，以便將來僅需單擊一下即可快速使用這些功能。本文討論的是在Excel的右鍵菜單中添加自定義代碼按鈕。

使用VBA代碼將自定義按鈕添加到Excel中的上下文菜單

使用VBA代碼將自定義按鈕添加到Excel中的上下文菜單驚人的！在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！每天節(jié)省50％的時間，并減少數(shù)千次鼠標單擊！

假設您已經(jīng)在Excel中創(chuàng)建了一個名為MyMacro的VBA腳本，現(xiàn)在您需要將該功能添加到上下文菜單中，以通過單擊該代碼來運行代碼。請執(zhí)行以下操作。

1。按其他 + F11 同時打開 Microsoft Visual Basic應用程序 窗口。

2.在 Microsoft Visual Basic應用程序 窗口，雙擊 的ThisWorkbook 在左邊項目窗格。然后將以下VBA代碼復制并粘貼到 本工作簿（代碼） 窗口。

VBA代碼：將自定義按鈕添加到Excel中的上下文菜單

Private Sub Workbook_Deactivate()On Error Resume NextWith Application.CommandBars("Cell").Controls("MyMacro").DeleteEnd WithOn Error GoTo 0End SubPrivate Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)Dim cmdBtn As CommandBarButtonOn Error Resume NextWith Application.CommandBars("Cell").Controls("MyMacro").DeleteSet cmdBtn = .CommandBars("Cell").Controls.Add(Temporary:=True)End WithWith cmdBtn.Caption = "MyMacro".Style = msoButtonCaption.onAction = "MyMacro"End WithOn Error GoTo 0End SubCopy

備注：在代碼中，請全部替換 “ MyMacro” 使用您在Excel中創(chuàng)建的宏名稱。

3。按其他 + Q 退出鍵 Microsoft Visual Basic應用程序 窗口。

現(xiàn)在返回Excel界面，右鍵單擊單元格，您將看到帶有指定名稱的新按鈕被添加到右鍵單擊菜單中，如下圖所示。單擊該按鈕將立即觸發(fā)相應的宏。

相關文章:H可以通過Excel中的“命令按鈕”自動插入空白新行？如何在Excel中使用命令按鈕將活動工作表另存為PDF文件？如何在Excel中沒有命令按鈕提示的情況下保存和關閉活動工作簿？如何通過Excel中的“命令”按鈕更新或插入（當前）日期和時間？在Excel中單擊一次后如何禁用按鈕？