在单元格更改时自动执行Excel宏

每当特定单元格中的值更改时，如何自动执行Excel宏？

现在，我的工作代码是：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("H5")) Is Nothing Then Macro
End Sub

"H5"被监视的特定单元格在哪里Macro，宏的名称。

有没有更好的办法？

您的代码看起来不错。

但是请小心，因为对的调用Range("H5")是的快捷命令Application.Range("H5")，它等效于Application.ActiveSheet.Range("H5")。如果唯一的更改是用户更改（这是最典型的更改），则可能会很好，但是通过编程更改（例如VBA），当工作表的单元格值不是活动表时，工作表的单元格值可能会更改。

考虑到这一点，我将利用Target.Worksheet.Range("H5")：

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

或者Me.Range("H5")，如果事件处理程序位于相关工作表的代码页上（通常是），则可以使用：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("H5")) Is Nothing Then Macro
End Sub

希望这可以帮助...

处理Worksheet_Change事件或Workbook_SheetChange事件。

事件处理程序采用“目标范围”作为参数，因此您可以检查正在更改的范围是否包括您感兴趣的单元格。

在真正弄乱了事件触发因素之后，我花了很多时间研究此问题并学习了它们的工作原理。由于有太多分散的信息，因此我决定将我发现的全部工作共享在一个地方，如下所示：

1）打开VBA编辑器，在VBA项目（YourWorkBookName.xlsm）下，打开Microsoft Excel对象，然后选择与更改事件有关的图纸。

2）默认代码视图为“常规”。从顶部中间的下拉列表中，选择“工作表”。

3）Private Sub Worksheet_SelectionChange已经存在，应该静置。从上方复制/粘贴Mike Rosenblum的代码，然后将.Range引用更改为要监视其更改的单元格（在我的情况下为B3）。但是，请不要放置您的Macro（我在“ Then”之后删除了“ Macro”一词）：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("H5")) Is Nothing Then
End Sub

或从左上角的下拉列表中选择“更改”，然后在“私人字幕”和“结束字幕”之间的空间中粘贴 If Not Intersect(Target, Me.Range("H5")) Is Nothing Then

4）在“然后”之后的行上关闭事件，以便在您调用宏时，它不会触发事件并尝试在永无止境的循环中再次运行此Worksheet_Change，这会使Excel崩溃和/或以其他方式弄乱一切：

Application.EnableEvents = False

5）呼叫您的巨集

Call YourMacroName

6）重新打开事件，以便下次更改（和任何/所有其他事件）触发：

Application.EnableEvents = True

7）结束If块和Sub：

    End If
End Sub

整个代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("B3")) Is Nothing Then
        Application.EnableEvents = False
        Call UpdateAndViewOnly
        Application.EnableEvents = True
    End If
End Sub

这将打开/关闭事件从模块中移出/关闭，这会产生问题，并且只需让更改触发，关闭事件，运行宏并重新打开事件即可。

我更喜欢这种方式，而不是使用单元格，而是使用范围

    Dim cell_to_test As Range, cells_changed As Range

    Set cells_changed = Target(1, 1)
    Set cell_to_test = Range( RANGE_OF_CELLS_TO_DETECT )

    If Not Intersect(cells_changed, cell_to_test) Is Nothing Then 
       Macro
    End If

我有一个链接到在线库存数据库并经常更新的单元。每当单元格值更新时，我都想触发一个宏。

我相信这类似于通过程序或任何外部数据更新来更改单元格值，但以上示例对我不起作用。我认为问题是因为没有触发excel内部事件，但这就是我的猜测。

我做了以下事情

Private Sub Worksheet_Change(ByVal Target As Range) 
  If Not Intersect(Target, Target.Worksheets("Symbols").Range("$C$3")) Is Nothing Then
   'Run Macro
End Sub