[已解决]如何求累计

lgzxmlg

根据条件汇总求和和累计.zip (39.87 KB, 下载次数: 30)

2012-1-12 14:26 上传

点击文件名下载附件 如何求累计

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2012-1-13 10:39

如果你是想用VBA完成累加用下面代码就行了

1. 
   
2. Sub leijia()
   
3.     Dim arr, arr1, i As Long, j As Long
   
4.     Range(Cells(3, 7), Cells([G65536].End(xlUp).Row, 11)).ClearContents
   
5.     arr = Range(Cells(3, 1), Cells([A65536].End(xlUp).Row, 6))
   
6.     ReDim arr1(1 To UBound(arr), 1 To 5)
   
7.     For i = 1 To UBound(arr)
   
8.         For j = 1 To 5
   
9.             If i = 1 Then
   
10.                 arr1(i, j) = arr(i, j + 1)
    
11.             Else
    
12.                 arr1(i, j) = arr(i, j + 1) + arr1(i - 1, j)
    
13.             End If
    
14.         Next j
    
15.     Next i
    
16.     Range("G3").Resize(UBound(arr1), 5) = arr1
    
17. End Sub
    

复制代码

附件： 根据条件汇总求和和累计-sunjing.rar (33.04 KB, 下载次数: 26)

2012-1-13 10:42 上传

点击文件名下载附件

跳转到最佳答案楼层

雄鹰

后面如何累计？

lgzxmlg

雄鹰 发表于 2012-1-12 14:58
后面如何累计？

求累计值：对当前日期以前的数据累加。

sunjing-zxl

lgzxmlg 发表于 2012-1-13 10:01
求累计值：对当前日期以前的数据累加。

不懂你的意思，你表格不是有累加的公式了吗？？？

sunjing-zxl

如果你是想用VBA完成累加用下面代码就行了

1. 
   
2. Sub leijia()
   
3.     Dim arr, arr1, i As Long, j As Long
   
4.     Range(Cells(3, 7), Cells([G65536].End(xlUp).Row, 11)).ClearContents
   
5.     arr = Range(Cells(3, 1), Cells([A65536].End(xlUp).Row, 6))
   
6.     ReDim arr1(1 To UBound(arr), 1 To 5)
   
7.     For i = 1 To UBound(arr)
   
8.         For j = 1 To 5
   
9.             If i = 1 Then
   
10.                 arr1(i, j) = arr(i, j + 1)
    
11.             Else
    
12.                 arr1(i, j) = arr(i, j + 1) + arr1(i - 1, j)
    
13.             End If
    
14.         Next j
    
15.     Next i
    
16.     Range("G3").Resize(UBound(arr1), 5) = arr1
    
17. End Sub
    

复制代码

附件： 根据条件汇总求和和累计-sunjing.rar (33.04 KB, 下载次数: 26)

2012-1-13 10:42 上传

点击文件名下载附件

lgzxmlg

sunjing-zxl 发表于 2012-1-13 10:33
不懂你的意思，你表格不是有累加的公式了吗？？？

当日为计算日期相等时符合要求的数据和，累计为计算日期（包括计算日期）以前的符合要求的数据和。

sunjing-zxl

不明白你到底要那个加那个。。。
是不是按照你的函数公式汇总，如果是按照你的函数公式汇总我上面的代码就行了

lgzxmlg

sunjing-zxl 发表于 2012-1-13 10:39
如果你是想用VBA完成累加用下面代码就行了 附件：

如何通过A表数据，求得同样的结果填入C表，期待代码！！

sunjing-zxl

lgzxmlg 发表于 2012-1-13 16:04
如何通过A表数据，求得同样的结果填入C表，期待代码！！

不懂，A表填入C表的要求是什么？

lgzxmlg

sunjing-zxl 发表于 2012-1-13 16:10
不懂，A表填入C表的要求是什么？

我用公式做了下，求代码 根据条件汇总求和和累计.zip (42.86 KB, 下载次数: 6)

2012-1-13 18:40 上传

点击文件名下载附件