按住Alt+F11
双击Sheet1(Sheet1),就是包含你的公式的工作表
输入代码:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$F$10" Then Macro1
End Sub
alt+f11在打开的窗口中双击要自动运行宏的工作表表名。将
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
结构粘贴到窗口中。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 10 And Target.Column = 6 Then
''你的代码
End If
End Sub
这样应该可以,试一下。