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

宏将工作表更改（ByVal Target As Range）工作表放入包含25个工作表的工作簿中20个相同工作表的工作表模块的方法是什么？

更改为工作表更改，并使用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

---

更改为工作簿。\u 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

等或

与Sh。。。以

结束。参见上文我是如何使用

sh.name

的，比如

me.name

？这是否包含在ThisWorkbook模块中？我在“Me.UsedRange”上得到一个编译错误。我需要在代码中添加Sh参数吗？是的，正如我上面所说的。Sh是工作表对象，因此

Sh.usedrange

等或

与Sh。。。以

结束。参见上文我如何使用

sh.name

像

me.name

？