Определить, какую кнопку CommandBar, начавшийся макрос с помощью VBA в Microsoft Excel
Пусть макросы сами определяют, какая кнопка CommandBar их запустила.
Если вы прикрепите приведенный ниже макрос к нескольким кнопкам CommandBar, в окне сообщения будет отображаться другое содержимое:
Sub DummyMacro() If Application.CommandBars.ActionControl Is Nothing Then ' the macro was not started from a commandbar button MsgBox "This could be your macro running!", vbInformation, _ "This macro was not started from a CommandBar button" Else ' the macro was started from a commandbar button MsgBox "This could be your macro running!", vbInformation, _ "This macro was started from this CommandBar button: " & _ Application.CommandBars.ActionControl.Caption End If End Sub