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

问题描述 投票:86回答:5

每当特定单元格中的值发生更改时,如何自动执行Excel宏?

现在,我的工作代码是:

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

其中"H5"是被监控的特定细胞,Macro是宏的名称。

有没有更好的办法?

excel vba excel-vba automation
5个回答
105
投票

你的代码看起来很不错。

但要小心,因为你对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

希望这可以帮助...


7
投票

处理Worksheet_Change事件或Workbook_SheetChange事件。

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


3
投票

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

    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

2
投票

在把事件触发器搞得搞糟之后,我花了很多时间研究这个并学习它是如何工作的。由于有太多分散的信息,我决定在一个地方分享我发现的工作,一步一步如下:

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

这会将模块中的事件打开/关闭从而产生问题,只需让更改触发,关闭事件,运行宏并重新打开事件。


0
投票

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

我相信这类似于程序或任何外部数据更新的单元格值更改,但上面的示例以某种方式对我不起作用。我认为问题是因为没有触发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
© www.soinside.com 2019 - 2024. All rights reserved.