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

Question

每次特定单元格中的值发生变化时，如何自动执行 Excel 宏？

现在，我的工作代码是：

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

其中"H5"是被监控的特定单元， Macro是宏的名称。

有没有更好的办法？

Answer 1

你的代码看起来很不错。

但是请注意，调用Range("H5")<\/code>是Application.Range("H5")<\/code>的快捷命令，它等效于Application.ActiveSheet.Range("H5")<\/code> 。 这可能很好，如果唯一的更改是用户更改 - 这是最典型的 - 但是当工作表的单元格值不是活动工作表时，它可能会通过编程更改（例如 VBA）进行更改。

考虑到这一点，我将使用Target.Worksheet.Range("H5")<\/code> ：

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

Answer 2

处理Worksheet_Change事件或Workbook_SheetChange事件。

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

Answer 3

在真正搞砸了事件触发器之后，我花了很多时间研究这个并了解它是如何工作的。 由于有这么多分散的信息，我决定将我发现的所有内容分享在一个地方，一步一步如下：

1) 打开 VBA 编辑器，在 VBA 项目 (YourWorkBookName.xlsm) 下打开 Microsoft Excel 对象并选择更改事件将涉及的工作表。

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

3) Private Sub Worksheet_SelectionChange 应该已经存在，不要管它。 从上面复制/粘贴 Mike Rosenblum 的代码并将 .Range 引用更改为您正在观察更改的单元格（在我的情况下为 B3）。 但是，不要放置您的宏（我在“然后”之后删除了“宏”这个词）：

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

或从左上角的下拉列表中选择“更改”，然后在 Private Sub 和 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

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

Answer 4

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

    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

Answer 5

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

我相信这类似于程序或任何外部数据更新的单元格值更改，但以上示例对我不起作用。 我认为问题在于没有触发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