工作表事件多列影响一列

pepsi7777

各位老师好，

工作表事件：希望ABC三列修改后，D列求和自动更新。D2=A2+B2+C2

下面是我的代码，很繁琐，如果有20列作用于一列，就要写20段，很麻烦。

有简单的写法吗？ 感谢！！！





Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row > 1 Then
    Target.Offset(0, 3) = Target.Offset(0, 0) + Target.Offset(0, 1) + Target.Offset(0, 2)
End If

If Target.Column = 2 And Target.Row > 1 Then
    Target.Offset(0, 2) = Target.Offset(0, -1) + Target.Offset(0, 0) + Target.Offset(0, 1)
End If

If Target.Column = 3 And Target.Row > 1 Then
    Target.Offset(0, 1) = Target.Offset(0, -2) + Target.Offset(0, -1) + Target.Offset(0, 0)
End If
End Sub

山菊花

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim Arr()
   
3.     If Target.Column > 3 Or Target.Row = 1 Then Exit Sub
   
4.     If Target.CountLarge > 1 Then Exit Sub
   
5.     Arr = Range("a" & Target.Row).Resize(1, 3).Value
   
6.     For i = 2 To 3
   
7.         Arr(1, 1) = Arr(1, 1) + Arr(1, i)
   
8.     Next
   
9.     Application.EnableEvents = False
   
10.     Range("d" & Target.Row).Value = Arr(1, 1)
    
11.     Application.EnableEvents = True
    
12. End Sub

复制代码

pepsi7777

山菊花 发表于 2022-11-25 14:20

感谢 山菊花 老师！！