每当特定单元格中的值发生更改时,如何自动执行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
事件。
事件处理程序采用“目标作为范围”参数,因此您可以检查正在更改的范围是否包括您感兴趣的单元格。
我更喜欢这种方式,不是使用单元格而是使用范围
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
在把事件触发器搞得搞糟之后,我花了很多时间研究这个并学习它是如何工作的。由于有太多分散的信息,我决定在一个地方分享我发现的工作,一步一步如下:
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
这会将模块中的事件打开/关闭从而产生问题,只需让更改触发,关闭事件,运行宏并重新打开事件。
我有一个链接到在线库存数据库并经常更新的单元格。我想在更新单元格值时触发宏。
我相信这类似于程序或任何外部数据更新的单元格值更改,但上面的示例以某种方式对我不起作用。我认为问题是因为没有触发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