小编kop*_*psy的帖子

我在运行一个 Private Sub Worksheet_SelectionChange 时没有问题，但是当我添加多个 Worksheet_SelectionChange 事件时，它没有运行。后来，我才知道不可能在同一工作表中运行不同的工作表选择更改事件。

根据我的理解，我有四个不同的 Private Sub Worksheet_SelectionChange 事件，试图在各种站点的帮助下将它们合并，但没有一个对我有用。我能得到一些帮助吗，1。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cells1 As Range
Set cells1 = ActiveSheet.Range("B1:B27")
If Not (Intersect(Target, cells1) Is Nothing) Then
   ActiveSheet.Range("B30").Value = Target.Value
End If
End Sub

2.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cells2 As Range
Set cells2 = ActiveSheet.Range("C1:C27")
If Not (Intersect(Target, cells2) Is Nothing) Then
   ActiveSheet.Range("C30").Value = Target.Value
End If
End Sub

3.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim cells3 As Range …