小白求学

暗夜清寒

大佬们
我设置好第4行中的第5列，第6列，第7列的累加格式后，如何设置第4行到第n行中的第5列，第6列，第7列格式都一样，代码如下，下面该如何写下去，谢谢


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 4 And Target.Column = 7 Then
Cells(4, 6) = Cells(4, 7).Value + Cells(4, 6).Value
End If
If Target.Row = 4 And Target.Column = 7 Then
Cells(4, 5) = Cells(4, 7).Value + Cells(4, 5).Value
End If
End Sub

暗夜清寒

滴滴，不要沉下去啊

风中稻草人

直接用f Target.Row ＞= 4 And Target.Column = 7 Then(行就包含了第四行及以下的n行了)

暗夜清寒

风中稻草人 发表于 2020-5-31 20:48
直接用f Target.Row ＞= 4 And Target.Column = 7 Then(行就包含了第四行及以下的n行了)

可以直接加到我的代码里面吗？我加进去好像不行

liulang0808

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 7 Then Exit Sub
If Target.Row < 4 Then Exit Sub
If Target.CountLarge > 1 Then Exit Sub
r = Target.Row

Cells(r, 6) = Cells(r, 7).Value + Cells(r, 6).Value
Cells(r, 5) = Cells(r, 7).Value + Cells(r, 5).Value

End Sub

暗夜清寒

liulang0808 发表于 2020-5-31 21:32
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column  7 Then Exit Sub
If Target.Ro ...

大佬啊，真的厉害