
如图:为工作表添加VBA代码
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 3 Or Target.Column <> 4 Then Exit Sub
Range("B3").Value = Range("B3").Value + Target.Value
End Sub
第1行代码:工作表发生改变时,如果不是D3单元格就不加总分
第2行代码:B3单元格 增加 输入的D3单元格

如图:为工作表添加VBA代码
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 3 Or Target.Column <> 4 Then Exit Sub
Range("B3").Value = Range("B3").Value + Target.Value
End Sub
第1行代码:工作表发生改变时,如果不是D3单元格就不加总分
第2行代码:B3单元格 增加 输入的D3单元格