如何在 Excel 中透過右鍵選單執行多個巨集？

作者Xiaoyang修改日期2024-08-15

如果您的活頁簿中包含多個 VBA 巨集，建議開啟 VBA 視窗，並在需要執行程式碼時直接選取對應的巨集。本文將說明如何透過右鍵選單執行巨集，讓您的操作更有效率，如左側截圖所示。

使用 VBA 程式碼從右鍵選單執行多個巨集

若要從右鍵選單執行活頁簿內的巨集程式碼，下列步驟或許能協助您，請依此操作：

1 按住 Alt + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2 接著，在左側專案窗格中雙擊 ThisWorkbook，然後將下方的 VBA 程式碼複製並貼上至空白模組中。

Private Sub Workbook_Open()
Run "LoadMacro"
End Sub
Private Sub Workbook_Activate()
Run "LoadMacro"
End Sub
Private Sub Workbook_Deactivate()
Run "ClearMacro"
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Run "ClearMacro"
ThisWorkbook.Save
End Sub

將程式碼貼到 ThisWorkbook 模組中

3 仍在 Microsoft Visual Basic for Applications 視窗中，請點選插入＞模組，並將下列程式碼貼上至該模組中。

Private Sub LoadMacro()
Dim xArrMenu As Variant
Dim xStrLine, xSreBtnName As String
Dim xObjCBCF, xObjCntrAll As CommandBarControl
Dim xObjCBCs As CommandBars
Dim xObjCBBtn As CommandBarButton
Dim xIntLine, xFNum As Integer
Dim xObjComponent As Object
Run "ClearMacro"
Set xObjCBCF = Application.CommandBars("Cell").Controls.Add(msoControlPopup, before:=1)
xObjCBCF.Caption = " Run Macro "
xObjCBCF.BeginGroup = False
For Each xObjComponent In ActiveWorkbook.VBProject.VBComponents
    If xObjComponent.Type = 1 Then
        For xIntLine = 1 To xObjComponent.CodeModule.CountOfLines
        xStrLine = xObjComponent.CodeModule.Lines(xIntLine, 1)
        xStrLine = Trim(xStrLine)
            If (InStr(xStrLine, "()") > 0) And (Left(xStrLine, 11) = "Private Sub" Or Left(xStrLine, 3) = "Sub") Then
            xSreBtnName = ""
            If "Private Sub" = Left(xStrLine, 11) Then
                xSreBtnName = Trim(Mid(xStrLine, 12, InStr(xStrLine, "()") - 12))
            ElseIf "Sub" = Left(xStrLine, 3) Then
               xSreBtnName = Trim(Mid(xStrLine, 4, InStr(xStrLine, "()") - 4))
            End If
            If xSreBtnName <> "" And xSreBtnName <> "RightClickReset" And xSreBtnName <> "LoadMacro" And xSreBtnName <> "ActionMacro" Then
                Set xObjCBBtn = xObjCBCF.Controls.Add
                With xObjCBBtn
                    .FaceId = 186
                    .Style = msoButtonIconAndCaption
                    .Caption = xSreBtnName
                    .OnAction = "ActionMacro"
                End With
            End If
            End If
        Next xIntLine
    End If
Next xObjComponent
End Sub
Private Sub ClearMacro()
On Error Resume Next
CommandBars("Cell").Controls(" Run Macro ").Delete
Err.Clear
CommandBars("Cell").Reset
End Sub
Private Sub ActionMacro()
On Error GoTo Err1
With Application
Run .CommandBars("Cell").Controls(1).Controls(.Caller(1)).Caption
End With
Exit Sub
Err1:
    MsgBox "Invalid"
End Sub

將程式碼貼到一般模組中

4 貼上程式碼後，請點選工具> 參考項目，此時會顯示 參考項目-VBAProject對話方塊，請在可用參考項目清單中勾選 Microsoft Visual Basic for Applications Extensibility 5.3 選項，如截圖所示：

在參考對話方塊中勾選 Microsoft Visual Basic for Applications Extensibility 5.3

5 接著點選確定以關閉對話方塊。現在，請將此活頁簿儲存為 Excel 啟用巨集活頁簿格式，如截圖所示：

將活頁簿儲存為 Excel 巨集啟用活頁簿格式

6 最後，請重新啟動活頁簿以使程式碼生效。現在當您在儲存格上點擊右鍵時，右鍵選單將新增一個執行巨集選項，且您活頁簿中的所有巨集都會顯示於子選單中，如以下截圖所示：

當您在儲存格上按右鍵時，活頁簿中的所有巨集都會列於子選單中

7 接著，只需點選即可執行該段程式碼。

太神奇了！在 Excel 中使用高效 Tabs，就像 Chrome、Edge、Firefox 和 Safari 一樣！
每天為您節省 50% 的時間，並減少數千次滑鼠點擊！

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多