[已解决]用VBA实现公式要求

Banieliang

手动输入数据：			20	29
		1	=E2	=E2+C3
	3		=E3	=E3+B4
		1	=E4	=E4+C5
2			=E5	=E5+A6
	4		=E5	=E6+B7

Book1.rar (6.55 KB, 下载次数: 10)

2015-3-11 13:07 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2015-3-12 14:46

请看附件。

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. For i = 3 To 7
   
3.     s = Val(Cells(i, 1)) + Val(Cells(i, 2)) + Val(Cells(i, 3))
   
4.     Cells(i, 5) = Cells(i - 1, 5) + s
   
5.     Cells(i, 4) = Cells(i, 5) - s
   
6. Next
   
7. End Sub

复制代码

Banieliang

dsmch 发表于 2015-3-11 13:50

Thanks

手动输入数据：			20	29
		1	29	30
	3		30	33
		1	33	34
2			34	36
	4		36(但是这里并没有等于34）	40

过江龙

仅根据附件上的数据猜的，
Sub Macro1()
For i = 3 To 7
    s = Val(Cells(i, 1)) + Val(Cells(i, 2)) + Val(Cells(i, 3))
    Cells(i, 5) = Cells(i - 1, 5) + s
     If Cells(i - 1, 2) = "" And Cells(i - 1, 3) = "" And i > 3 Then
       Cells(i, 4) = Cells(i - 2, 5)
      Else
       Cells(i, 4) = Cells(i-1, 5)
     End If
Next
End Sub

grf1973

Sub tt()
    arr = [a2:e7]
    For i = 2 To UBound(arr)
        If Len(arr(i - 1, 2) & arr(i - 1, 3)) > 0 Then x = i - 1
        If i = 2 Then arr(i, 4) = arr(i - 1, 5) Else arr(i, 4) = arr(x, 5)
        arr(i, 5) = Val(arr(i - 1, 5)) + Val(arr(i, 1)) + Val(arr(i, 2)) + Val(arr(i, 3))
    Next
    [a13:e18] = arr
End Sub

上清宫主

这里又一贴？上一贴那代码没达到目的？

grf1973

请看附件。