工作簿中每个工作表的工作表更改事件-解网

问：

有没有办法全局安装在每张工作表上触发的更改事件？

我有一个包含 52 张工作表的工作簿，我想触发相同的事件处理程序。带有代码的中央模块将有助于管理触发器代码，但我不想将代码添加到每个工作表中。

有没有办法做到这一点？在工作簿模块中实现它没有触发任何内容。

VBA Excel 事件

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    With Sh
        If Not Intersect(Target, .Columns(1)) Is Nothing Then
            On Error GoTo bm_Safe_Exit
            Application.EnableEvents = False
            Dim rng As Range
            For Each rng In Intersect(Target, .Columns(1))
                rng.Offset(0, 4) = Now
            Next rng
        End If
    End With
bm_Safe_Exit:
    Application.EnableEvents = True
End Sub

对任何工作表的 A 列中的单元格所做的任何更改都将导致当前日期时间被放入同一工作表和行的 E 列中。新创建的工作表将立即受到影响。您可以解析受其工作表影响的工作表。CodeName 属性或 Worksheet 。Name 属性。不建议使用 Worksheet.Index 属性，除非锁定工作簿结构，以便无法对工作表重新排序。

3赞 R3uK 10/26/2015 #2

您应该使用：

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

它的工作方式与事件类似，只是您将使用来引用触发事件的工作表，而不是。Sheet_ChangeMe.Sh.

上一个：用户尝试编辑受保护工作表中锁定的单元格导致的关闭消息

下一个：PowerPoint VBA挂起打开损坏的文件

工作簿中每个工作表的工作表更改事件

Worksheet change event for every sheet in the workbook

评论