EXCEL VBAプロシージャあいまいな名前

Question

VBAコードが大きすぎます。私は小さなSUBSを作成しようとしていますので、エラーは表示されませんが、エラー "Ambigoius name"がポップアップします。私は私のサブマシンの名前を変更しようとしました... Ex。

Private Sub worksheet_calculate() 
Range("I9").Interior.Color=Range("AK9").Display.Format.Interior.Color 
end sub 
Private Sub worksheet_calculate2() 
Range("J9").Interior.Color=Range("AQ9").Display.Format.Interior.Color 
end sub 

...例で示したように他のサブネームの名前を変更すると、何も行われず、元のものだけが正しく動作します。正しく動作するように名前を変更するにはどうすればよいですか？

Answer 1

だけworksheet_calculateが時にワークシートイベントによってトリガ、サブルーチンの定義済みの名前で、「worksheet_calculate」私の理解で

Call worksheet_calculate2 
Call worksheet_calculate3 
Call worksheet_calculate4 
Call worksheet_calculate4 
. 
. 
. 
Call worksheet_calculaten 

Answer 2

であるあなたのメイン、サブの終わりにコードの下の行を挿入再計算されます。

他のプライベートサブプライオリティを定義して呼び出すことができます。 like

Private Sub worksheet_calculate() 
    rem sub body 
    CalculateSub1 pars  'variant one 
    Call CalculateSub1(pars) 'variant two 
    rem sub body 
End Sub 

Sub CalculateSub1(pars) 
    Rem Sub body 
End Sub