[已解决]如何触发VBA程序

一字头螺丝

一个工作簿里的任何工作表的任何单元格数值改变都能触发某个VBA程序，这样的程序要怎么写，谢谢

最佳答案

月排行榜 / 总排行榜

枯禅

2010-1-27 12:31

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

跳转到最佳答案楼层

枯禅

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

喜多多

change事件

一字头螺丝

能否写详细一点，假设我要触发一个叫“汇总”的宏

喜多多

call 汇总

一字头螺丝

大概明白了，谢谢

不过现在的情况是因为我的宏程序也对数值进行了操作，导致宏一直在循环运行。现在这个工作簿里有3个工作表，如果我要限制条件，只有第2个和第3个表格的数值改变时才触发这个宏，那要怎么写

一字头螺丝

好像这样可以，我的第一个表叫“汇总表”

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name <> "汇总表" Then
Call 汇总
End If
End Sub

开辆小富康

请看以下示例，复制在工作表程序中，然后运行一遍。再将两行application开头的，前面的 ' 去掉，体会这两句代码的作用-屏蔽触发事件和打开触发事件。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Address = "$A$1" Then
 'Application.EnableEvents = False
 Range("A1") = Range("A1") + 1
 'Application.EnableEvents = True
End If
End Sub

wayy

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

任何一个工作表变化都触发，应该用这个事件。

开辆小富康

QUOTE:

以下是引用wayy在2010-1-27 14:32:00的发言：

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

End Sub

任何一个工作表变化都触发，应该用这个事件。

真是，没注意到任何这两个字