自动执行macrop

Question

我想编写一个VBA宏，在更改单元格的值后触发另一个宏。这就是我提出的。

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

但它不起作用。

Answer 1

尝试下面的代码，此代码需要位于您尝试修改单元格的工作表中＃N;＆＃34; N7＆＃34;然后调用Macro1。

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

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

Sub Macro1()
    MsgBox "Hello"
End Sub