So rufen Sie eine Funktion in vba auf, die bereits einer Schaltfläche zugewiesen ist

Question

Ich habe versucht, eine Multifunktionsleiste in Excel zu erstellen, und ich war erfolgreich. Jetzt habe ich einem Button ein Makro zugewiesen.

Function delete_cells(control As IRibbonControl) 

Jetzt habe ich ein anderes Makro, von dem ich brauche delete_cells um die Funktion aufzurufen. Ich habe versucht, es wie unten zu nennen.

Function modify_cells(control As IRibbonControl) 
delete_cells 
End Sub 

Ich erhalte ein Fehler Argument nicht optional sagen. Bitte helfen Sie mir mit diesem Fehler.

Answer 1

Ich schlage vor, dass Sie eine separate Unterprogramm erstellen, die Sie von der OnAction der Schaltfläche aufrufen und anderswo wollen Sie es von nennen, zB:

'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: Wenn Sie Sie OnAction Unter der Schaltfläche müssen wirklich nur das, nennen wollen es ein iRibbonControl Objekt als auch passieren, erklären so eine gefälschte:

Sub CallTheButtonsCode() 
Dim FakeControl As IRibbonControl 

cmdDeleteCells_OnAction FakeControl 
End Sub 

ich empfehle nicht wirklich th ist aus Gründen der Codepflege, aber es funktioniert.

Answer 2

In Ihrem haben Sie ein Required-Argument ...(control As IRibbonControl). Wenn Sie die Funktion aufrufen, sollte es so aussehen:

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