Bagaimana cara menjalankan beberapa makro dari menu klik kanan di Excel?

Jika ada beberapa makro vba di buku kerja Anda, Anda harus membuka jendela VBA lalu memilih makro saat Anda perlu menjalankan kode. Pada artikel ini, saya ingin berbicara tentang cara menjalankan makro dari menu klik kanan untuk membuat pekerjaan Anda lebih efisien seperti gambar di sebelah kiri.

Jalankan beberapa makro dari menu klik kanan dengan kode VBA

Jalankan beberapa makro dari menu klik kanan dengan kode VBA

Untuk menjalankan kode makro dalam buku kerja dari menu klik kanan, langkah-langkah berikut ini dapat membantu Anda, lakukan seperti ini:

1. Lubang di bawah Alt + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Lalu, klik dua kali Buku Kerja Ini di kiri Project panel, lalu salin dan tempel kode VBA di bawah ini ke modul kosong.

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

3. Masih di Microsoft Visual Basic untuk Aplikasi jendela, silakan klik Menyisipkan > Modul, dan tempel kode berikut ke modul ini.

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. Setelah menempelkan kode, lalu klik Tools > Referensi, Dan Referensi-VBAProject kotak dialog ditampilkan, dan kemudian periksa Microsoft Visual Basic untuk Ekstensibilitas Aplikasi 5.3 pilihan dalam Referensi yang Tersedia kotak daftar, lihat tangkapan layar:

5. Lalu klik OK untuk keluar dari dialog, sekarang, Anda harus menyimpan buku kerja ini sebagai Buku Kerja Excel dengan Makro Aktif format, lihat tangkapan layar:

6. Akhirnya, silakan restart buku kerja untuk mendapatkan efek kode, dan sekarang, saat Anda mengklik kanan sel, a Jalankan Macro opsi dimasukkan ke dalam menu klik kanan, dan semua makro di buku kerja Anda terdaftar di submenu sebagai tangkapan layar berikut:

7. Kemudian Anda dapat menjalankan kode hanya dengan mengkliknya.