单元格内的数字怎么进行自动叠加！！

wandy822

我需要统计一批图纸的纸张类型，逐个相加最后求和的方式较为麻烦（如图所示）。有没有哪种函数方便我进行叠加计算，比如当我在 C3 单元格输入数字时，希望 D3 能够自动进行叠加计算。我尝试过使用 WPS 自带的叠加计算功能，但它只能对单个单元格进行计算，并且改动一个单元格的数字时，其他单元格的数字也会发生变化。求大佬帮忙解惑！！

wp231957

没看明白  是这个意思？？？

wandy822

[color=rgba(0, 0, 0, 0.85)]若我首次在 C3 单元格输入数字 9，此时 D3 单元格应自动变为 26。接着，当我第二次在 C3 单元格继续输入数字 1 时，D3 单元格自动变为 27，依此类推。请问怎么进行操作。

acbczhhw

wandy822 发表于 2024-11-8 16:19
若我首次在 C3 单元格输入数字 9，此时 D3 单元格应自动变为 26。接着，当我第二次在 C3 单元格继续输入数 ...

是想要这样的结果吗？

quqiyuan

函数应该是解决不了吧，需要用vba的change事件，c列更改，然后让d列加c列数据回到d列

沈默00

可以实现，，，但我建议你使用带记录的方式
因为没有增加的记录，你每填写一次就会累加一次，，后期数据核对都难了

leepoison

之前写的功能类似的自触发


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
Application.EnableEvents = False
Static lastValue As Double
Static lastRecordedValue As Double
Dim inputValue As Variant
inputValue = Range("A1").Value
If inputValue = "reset" Then
Range("A1").Value = 0
lastValue = 0
lastRecordedValue = 0
Range("B:B").Clear
ElseIf inputValue = "return" Then
Dim lastRow As Long
lastRow = Cells(Rows.Count, 2).End(xlUp).Row
If lastRow > 0 Then
Range("A1").Value = lastValue - lastRecordedValue
lastValue = lastValue - lastRecordedValue
Cells(lastRow, 2).Clear
End If
ElseIf IsNumeric(inputValue) Then
Dim currentValue As Double
currentValue = inputValue
Range("A1").Value = currentValue + lastValue
lastValue = Range("A1").Value
lastRecordedValue = currentValue
Dim nextRow As Long
nextRow = Cells(Rows.Count, 2).End(xlUp).Row + 1
If nextRow = 2 And Cells(1, 2).Value = "" Then
nextRow = 1
End If
Cells(nextRow, 2).Value = currentValue
Cells(nextRow, 2).Font.Color = RGB(255, 0, 0)
Else
MsgBox "输入内容必须是数字型！", vbExclamation
Range("A1").Value = lastValue
End If
Application.EnableEvents = True
End If
End Sub

wandy822

acbczhhw 发表于 2024-11-8 16:40
是想要这样的结果吗？

对就是这样的效果

acbczhhw

wandy822 发表于 2024-11-11 08:25
对就是这样的效果

你想要这样的结果实际上很简单
=IF(C3=9,27-1,27+C3-1)
如果C列=9，D就=27-1，如果C列≠9，那就27+C列-1