Excel中如何在同一工作簿的多个工作表运行相同VBA代码

你之前将Sheet1的事件代码放入ThisWorkbook模块无法运行，核心原因是工作表级事件与工作簿级事件的过程定义、参数规则不匹配，直接复制代码不会触发。按以下步骤操作即可实现全工作簿同结构工作表的代码适配：

操作步骤 #

• 清理冲突代码
  • 删除你之前粘贴到ThisWorkbook模块中、直接复制自Sheet1的事件代码，避免过程重名或逻辑冲突。
  • 保留Sheet1中的原有代码作为逻辑参考，由于所有工作表结构一致，原有业务逻辑不需要调整。
• 在ThisWorkbook模块写入工作簿级事件
  工作簿级事件可以捕获所有工作表的对应操作，不需要逐个工作表粘贴重复代码。注意和工作表事件的两个核心差异：
  • 事件名前缀为Workbook_Sheet，而非工作表模块中的Worksheet_
  • 事件自带Sh As Object参数，代表当前触发事件的工作表，所有单元格引用必须绑定到该参数，不能硬编码指向Sheet1。
    代码模板如下：

  ' 以下代码全部写入ThisWorkbook模块
  Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
      ' 按需跳过不需要触发逻辑的特殊工作表，比如目录、参数表
      Select Case Sh.Name
          Case "目录", "参数配置", "汇总统计"
              Exit Sub
      End Select
      
      ' 粘贴原Sheet1中Worksheet_Change过程内的全部业务逻辑
      ' 注意：所有未带父级指定的单元格引用，前面必须加Sh. 前缀
      ' 示例：原代码写Range("B" & Target.Row) = Now() 要改为 Sh.Range("B" & Target.Row) = Now()
      ' 原代码中如果用了Me关键字指代工作表，全部替换为Sh即可
      ' 直接引用Target的逻辑不需要修改，Target本身隶属于当前触发事件的Sh工作表
  
  End Sub
  
  Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
      ' 同样跳过不需要触发逻辑的特殊工作表
      Select Case Sh.Name
          Case "目录", "参数配置", "汇总统计"
              Exit Sub
      End Select
      
      ' 粘贴原Sheet1中Worksheet_SelectionChange过程内的全部业务逻辑
      ' 引用规则和上述Change事件完全一致
  
  End Sub
  

• 校验运行效果
  保存代码后回到任意工作表测试修改、选中单元格的触发效果即可。后续新增同结构工作表时，不需要额外复制代码，事件会自动生效。

常见不生效原因排查 #

• 过程名拼写错误：不要把Workbook_SheetChange写成Worksheet_Change，过程名和参数列表不匹配时VBA不会绑定事件。
• 引用未绑定Sh对象：直接写Range("A1")这类无父级的引用，会默认指向代码运行时当前激活的工作表，快速切换工作表时会出现数据写错位置的问题。
• 事件触发被关闭：如果代码运行中出错触发了中断，可能导致Application.EnableEvents被自动设为False，在立即窗口执行Application.EnableEvents = True即可恢复。

内容的提问来源于stack exchange，提问作者Vinu Varghese