返回

绕过 VBA 中 SheetChange 事件中指定的名称的工作表

Excel技巧

避开 VBA 中 SheetChange 事件中指定的名称的工作表

简介

SheetChange 事件是一个强大的 VBA 事件，可以在工作表中的任何单元格值发生更改时触发代码执行。然而，在某些情况下，您可能需要在 SheetChange 事件中排除某些工作表，以便当在这些工作表中进行更改时不会触发该事件。本文将讨论如何使用 VBA 代码在 SheetChange 事件中排除指定的命名工作表。

步骤

以下步骤说明了如何使用 VBA 代码在 SheetChange 事件中排除指定的命名工作表：

  1. 打开 Microsoft Excel 并创建一个新工作簿。
  2. 右键单击工作表选项卡，然后选择“重命名”。
  3. 为工作表输入一个名称，例如“排除工作表”。
  4. 在 Visual Basic 编辑器 (VBE) 中，插入一个新的模块。
  5. 在模块中，添加以下代码：
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Sh.Name <> "排除工作表" Then
        ' 在此处添加要在其他工作表中进行更改时触发的代码
    End If
End Sub
  1. 保存工作簿。

代码说明

提供的 VBA 代码在 Workbook_SheetChange 事件中处理工作表更改。它首先检查更改是否发生在名为“排除工作表”的工作表中。如果是，则不会触发代码。否则，将在其他工作表中进行更改时触发的代码。

示例

以下示例演示了如何使用 VBA 代码在 SheetChange 事件中排除指定的命名工作表：

  1. 在 Excel 中，打开一个包含多个工作表的工作簿。
  2. 将其中一个工作表重命名为“排除工作表”。
  3. 在 VBE 中，插入一个新模块。
  4. 将上面提供的 VBA 代码粘贴到模块中。
  5. 保存工作簿。
  6. 在“排除工作表”中进行一些更改。
  7. 观察到没有触发 SheetChange 事件。
  8. 在其他工作表中进行一些更改。
  9. 观察到触发了 SheetChange 事件，并在其他工作表中执行了代码。

优点

在 SheetChange 事件中排除指定的命名工作表有几个优点：

  • 提高效率：它可以防止在不需要时执行不必要的代码，从而提高性能。
  • 提高代码可读性：它使代码更易于阅读和理解，因为可以清楚地识别排除的工作表。
  • 增强控制：它允许您控制哪些工作表上的更改将触发 SheetChange 事件，从而提供对代码执行的更多控制。

结论

使用 VBA 代码在 SheetChange 事件中排除指定的命名工作表是一个有用的技术，可以提高效率、可读性和代码控制。通过遵循本文中概述的步骤，您可以轻松实现此功能并防止在不需要时触发 SheetChange 事件。