发布网友 发布时间:2022-03-06 23:24
共2个回答
热心网友 时间:2022-03-07 00:53
按ALT+F11
双击SHEET1工作表,
将如下代码复制。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Or Target.Address = "$C$2" Then
Range("D2").Select
Selection.Copy
Application.CutCopyMode = False
Selection.Copy
Range("E2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlAdd, SkipBlanks _
:=False, Transpose:=False
End If
End Sub
参考附件
热心网友 时间:2022-03-07 02:11
先启用迭代计算,每次迭代计算为1,然后在E2输入=E2+D2.