EXCEL VBA程序的名称

我的VBA代码太大了，我正在尝试制作更小的SUBS，所以错误不会出现，但是popup错误“Ambigoius名称”。 我试着重新命名我的潜艇。

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”

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

Answer 2

在我的理解中，worksheet_calculate是重新计算工作表时事件触发的子例程的预定义名称。

你可以定义和调用其他私人潜艇。 喜欢

 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