VBA
这个要用
VBA才能实现,把以下代码粘贴在库存表的代码窗口中:Dim oldRange As RangeDim oldValuePrivate Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target = oldRange Then Application.EnableEvents = False Target.Value = oldValue + Target.Value End If Application.EnableEvents = TrueEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next Set oldRange = Target oldValue = Target.ValueEnd Sub
