销售汇总表中累计数如何设公式

sqac

例如A1单元格存放当日数，B1单元格存放累计数，只需在VBA代码中加一句“[b1]=[a1]+[b1]”即可。有一个问题是如何防止用户重复累计，我想了一个简单的办法，每次执行完累计操作后，在另外的一个单元格中存放当日日期，在执行累计操作前首先检查这个单元格中的日期是否早于当前，如果不是，则提示用户当日已执行过累计操作，并结束过程。[upload=rar]uploadImages/200212421462929431.rar[/upload]

gedelfd

如果有好多数据要累计，如何才能快捷的在vba中设置呢：[Bn] = [Bn] + [An]

jydd

如果当天只想执行一次呢？

sqac

to gedelfd:
不太明白您的意思。
to jydd:
上例中提示后，自动退出。如您觉得还不满意，可以取消提示，直接结束。

gedelfd

就是A列有很多的当月数，A1至An,我要把它累计到B1至Bn，我如何才能快速的实现这项功能，[b1]=[a1]+[b1]........[bn]=[an]+[bn]?如何实现1至n的循环？

sqac

Sub aaa()
    Dim i As Integer
    With Sheet1
    For i = 1 To 100
    .Cells(i, 2) = .Cells(i, 1) + .Cells(i, 2)
    Next
    End With
End Sub

gedelfd

谢谢版主！