Come eseguire più macro dal menu di scelta rapida in Excel?
Se sono presenti più macro vba nella cartella di lavoro, è necessario aprire la finestra VBA e quindi scegliere la macro quando è necessario eseguire il codice. In questo articolo, vorrei parlare di come eseguire le macro dal menu di scelta rapida per rendere il tuo lavoro più efficiente come mostrato nell'immagine a sinistra.
Esegui più macro dal menu di scelta rapida con i codici VBA
Per eseguire i codici macro all'interno di una cartella di lavoro dal menu di scelta rapida, i seguenti passaggi possono aiutarti, per favore fai come segue:
1. Buca nel Alt + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Quindi fare doppio clic Questa cartella di lavoro sulla sinistra Progetto riquadro, quindi copia e incolla il codice VBA sottostante nel modulo vuoto.
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. Ancora in Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Modulie incolla il codice seguente in questo modulo.
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. Dopo aver incollato i codici, fare clic su Strumenti > Riferimenti, e un Riferimenti-VBAProject viene visualizzata la finestra di dialogo, quindi selezionare Estendibilità di Microsoft Visual Basic for Applications 5.3 opzione nel Riferimenti disponibili casella di riepilogo, vedi screenshot:
5. Quindi fare clic OK per uscire dalla finestra di dialogo, ora, dovresti salvare questa cartella di lavoro come Cartella di lavoro abilitata per Excel formato, vedi screenshot:
6. Alla fine, riavvia la cartella di lavoro per ottenere l'effetto dei codici e ora, quando fai clic con il pulsante destro del mouse su una cella, a Esegui macro l'opzione è inserita nel menu di scelta rapida e tutte le macro nella cartella di lavoro sono elencate nel sottomenu come nella seguente schermata:
7. Quindi puoi eseguire il codice semplicemente facendo clic su di esso.