Nasıl zaten excel bir kurdele oluşturmaya çalıştınız bir düğmeye

Question

atanan vba bir işlev arayıp başarılı oldu. Şimdi bir düğmeye bir makro atadım.

Function delete_cells(control As IRibbonControl) 

Şimdi, ben işlevini delete_cells çağırmak zorunda olduğu başka bir makro yarattı. Aşağıdaki gibi aramaya çalıştım.

Function modify_cells(control As IRibbonControl) 
delete_cells 
End Sub 

bir hata isteğe bağlı değil Argüman söyleyerek alıyorum. Lütfen bu hata ile bana yardımcı olun. Gelen

Answer 1

ben size onu aramak istediğiniz başka bir yerde düğmenin OnAction gelen çağrı ve ayrı alt yordam, örneğin yaratmanızı tavsiye:

'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 

DÜZENLEME: Eğer gerçekten sadece düğmenin OnAction alt aramak istiyorsanız, sahte bir yanı onu bir iRibbonControl nesne geçmek, böylece ilan etmek gerekir:

Sub CallTheButtonsCode() 
Dim FakeControl As IRibbonControl 

cmdDeleteCells_OnAction FakeControl 
End Sub 

gerçekten th önermiyoruz kod bakım nedenlerinden dolayı, ancak çalışır.

Answer 2

senin Function delete_cells(control As IRibbonControl) Bir GEREKLİ argüman ...(control As IRibbonControl) var. Eğer işlevini çağırdığınızda bu gibi görünmelidir:

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