vba - 自动执行宏

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

试试下面的代码，这个代码需要在你试图修改单元格“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