Excel VBA将工作表_更改代码插入多个工作表

Question

将一个Worksheet_Change（按目标范围的ByVal目标）工作表放入具有25个工作表的工作簿中的20个相同工作表的工作表模块中的宏的处理方式是什么？

Answer 1

更改为Workbook_SheetChange并使用 Sh 参数确定接收更改的工作表。

示例：

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
     select case sh.name
          case "Sheet1", "Sheet2", "Sheet3"
              'do something
          case else
              'do nothing
     end select
End Sub