Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/json/14.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 自动执行宏命令_Vba_Excel - Fatal编程技术网

Vba 自动执行宏命令

Vba 自动执行宏命令,vba,excel,Vba,Excel,我想写一个VBA宏,它在更改单元格的值后触发另一个宏。这就是我想到的 Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Target.Worksheet.Range("n7")) Is Nothing Then Macro1 End Sub 但是它不起作用。请尝试下面的代码,此代码需要在您试图修改单元格“N7”的工作表中,然后调用宏1 Private Sub Worksheet_Ch

我想写一个VBA宏,它在更改单元格的值后触发另一个宏。这就是我想到的

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

但是它不起作用。

请尝试下面的代码,此代码需要在您试图修改单元格“N7”的工作表中,然后调用宏1

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

嗯,对我来说很好。您是否知道,此代码应该在工作表部分而不是模块中实现,并且仅当此特定工作表中的单元格
N7
发生更改时,才会触发
Macro1