Nosakiet, kura CommandBar poga startēja makro, izmantojot Microsoft Excel VBA

Anonim

Ļaujiet makrojiem pašiem noteikt, kura CommandBar poga tos uzsāka.
Ja pievienojat zemāk esošo makro vairākām CommandBar pogām, ziņojumu lodziņā tiks parādīts atšķirīgs saturs:

Sub DummyMacro () If Application.CommandBars.ActionControl Is Nothing Tad 'makro netika palaists no komandjoslas pogas MsgBox "Tas varētu būt jūsu makro!", VbInformation, _ "Šis makro netika palaists no CommandBar pogas" Cits " makro tika palaists no komandrindas pogas MsgBox "Tas varētu būt jūsu makro!", vbInformation, _ "Šis makro tika palaists no šīs CommandBar pogas:" & _ Application.CommandBars.ActionControl.Caption End If End Sub