Jak wywołać funkcję w vba, która jest już przypisana do przycisku

Question

Próbowałem utworzyć wstążkę w programie Excel i odniosłem sukces. Teraz przypisałem makro do przycisku.

Function delete_cells(control As IRibbonControl) 

Teraz stworzyłem kolejny makro, z którego trzeba wywołać funkcję delete_cells. Próbowałem to nazwać jak poniżej.

Function modify_cells(control As IRibbonControl) 
delete_cells 
End Sub 

ja dostaję błąd mówiąc argument nie opcjonalne. Pomóż mi z tym błędem.

Answer 1

Proponuję, aby utworzyć oddzielną podprogram, który nazywamy od przycisku w OnAction i gdziekolwiek chcesz się połączyć go z np

'button macro 
Sub cmdDeleteCells_OnAction(control as iRibbonControl) 
DeleteCells 
End Sub 

'another Sub that calls the delete routine 
Sub SomeOtherSub 
DeleteCells 
End Sub 

'the one they're all talking about 
Sub DeleteCells 
msgbox "All your cells are toast, bwah hah hah ha!" 
End Sub 

EDIT: Jeśli naprawdę chcesz po prostu zadzwonić OnAction sub Buttona, należy przekazać go do obiektu iRibbonControl, tak więc zadeklarować fałszywy:

Sub CallTheButtonsCode() 
Dim FakeControl As IRibbonControl 

cmdDeleteCells_OnAction FakeControl 
End Sub 

naprawdę nie polecam th jest z powodów konserwacji kodu, ale działa.

Answer 2

W swoim Function delete_cells(control As IRibbonControl) masz WYMAGANY argument ...(control As IRibbonControl). Po wywołaniu funkcji powinna wyglądać następująco:

Function modify_cells(control As IRibbonControl) 
delete_cells(myControl) 'myControl is your variable. Define what control you want to pass to the function. 
End Sub