问题是:
我如何求和另一个单元格的输入值?
例如:
答案 0 :(得分:0)
将其放置在工作表模块中
Private Sub Worksheet_Change(ByVal Target As Range)
Dim inpt As Range, otpt As Range
Set inpt = Range("A1"): Set otpt = Range("A2")
If Not Intersect(Target, inpt) Is Nothing Then
otpt.Value = otpt.Value + inpt.Value
'inpt.Value = "" 'Option - Resets A1 after input
'inpt.Select'Option - Returns selection to input cell
End If
End Sub