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

Question

对于将Worksheet_Change（ByVal Target As Range）工作表放置到具有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