Определете кой бутон CommandBar, който стартира макрос с помощта на VBA в Microsoft Excel

Anonim

Нека самите макроси определят кой бутон на CommandBar, който ги е стартирал.
Ако прикачите макроса по -долу към множество бутони на CommandBar, кутията със съобщения ще покаже различно съдържание:

Sub DummyMacro () Ако Application.CommandBars.ActionControl не е нищо Тогава 'макросът не е стартиран от бутона на командната лента MsgBox "Това може да е вашият макрос да работи!", VbInformation, _ "Този макрос не е стартиран от бутон CommandBar" Иначе " макросът е стартиран от бутона на командната лента MsgBox "Това може да е вашият макрос да работи!", vbInformation, _ "Този макрос е стартиран от този бутон CommandBar:" & _ Application.CommandBars.ActionControl.Caption Край, ако End Sub