Excel'de sağ tıklama menüsünden birden çok makro nasıl çalıştırılır?

Çalışma kitabınızda birden çok vba makrosu varsa, VBA penceresini açmalı ve ardından kodu çalıştırmanız gerektiğinde makroyu seçmelisiniz. Bu yazıda, sol ekran görüntüsünde gösterildiği gibi çalışmanızı daha verimli hale getirmek için sağ tıklama menüsünden makroları nasıl çalıştıracağınızdan bahsetmek istiyorum.

VBA kodları ile sağ tıklama menüsünden birden fazla makro çalıştırın

VBA kodları ile sağ tıklama menüsünden birden fazla makro çalıştırın

Makro kodlarını bir çalışma kitabında sağ tıklama menüsünden çalıştırmak için aşağıdaki adımlar size yardımcı olabilir, lütfen şu şekilde yapın:

1. Aşağı delik Alt + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. Ardından çift tıklayın Bu Çalışma Kitabı solda Proje bölmesini açın ve ardından aşağıdaki VBA kodunu kopyalayıp boş modüle yapıştırın.

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. Hala içinde Uygulamalar için Microsoft Visual Basic pencere, lütfen tıklayın Ekle > modülve aşağıdaki kodu bu modüle yapıştırın.

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. Kodları yapıştırdıktan sonra Tools > ReferanslarVe Referanslar-VBAProject iletişim kutusu görüntülenir ve ardından Uygulamalar için Microsoft Visual Basic Genişletilebilirliği 5.3 seçeneği Mevcut Referanslar liste kutusu, ekran görüntüsüne bakın:

5. Sonra tıklayın OK iletişim kutusundan çıkmak için, şimdi bu çalışma kitabını şu şekilde kaydetmelisiniz Excel Makro Etkin Çalışma Kitabı biçim, ekran görüntüsüne bakın:

6. Sonunda, kodların etkisini almak için lütfen çalışma kitabını yeniden başlatın ve şimdi, bir hücreye sağ tıkladığınızda Makroyu Çalıştır seçeneği sağ tıklama menüsüne eklenir ve çalışma kitabınızdaki tüm makrolar aşağıdaki ekran görüntüsü gibi alt menüde listelenir:

7. Ardından kodu tıklayarak çalıştırabilirsiniz.