Excel VBA将Worksheet_Change代码插入多个工作表

【问题标题】：Excel VBA Inserting Worksheet_Change Code Into Multiple WorksheetsExcel VBA将Worksheet_Change代码插入多个工作表
【发布时间】：2018-07-26 01:45:56
【问题描述】：

将 Worksheet_Change(ByVal Target As Range) 工作表放入具有 25 个工作表的工作簿中 20 个相同工作表的工作表模块中的宏的方法是什么？

【问题讨论】：

标签： vba excel

【解决方案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

【讨论】：

这是否在 ThisWorkbook 模块中？我在 "Me.UsedRange" 上收到编译错误。我需要在代码中添加 Sh 参数吗？
是的，正如我上面所说的。 Sh 是工作表对象，所以sh.usedrange 等或With Sh ... End With。见上文我如何使用sh.name 就像me.name？