自动执行一个macrop

我想写一个VBAmacros，它会在更改单元格的值后触发另一个macros。 这是我想出来的。

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Target.Worksheet.Range("n7")) Is Nothing Then Macro1 End Sub 

但是它不起作用。

Answer 1

试试下面的代码，这段代码需要在工作表中，试图修改单元格“N7”，然后调用Macro1。

 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("N7")) Is Nothing Then Call Macro1 End Sub 

子Macro1示例，位于另一个代码模块中：

 Sub Macro1() MsgBox "Hello" End Sub