请教：计算当月和本年累计代码

龙蒙山

请教：附件中想通过选择[K3]，用代码在[L3]得到当月金额和在[M3]得到本年累计金额。
计算公式为：如选择的是2月份，[L3]=2月份计算出的金额，[M3]=1月份+2月份
1月份=([C4]-[C3])*[F4]*[G4+([D4]-[D3])*[F4]*[H4]+([E4]-[E3])*[F4]*[I4]
2月份=([C5]-[C4])*[F5]*[G5+([D5]-[D4])*[F5]*[H5]+([E5]-[E4])*[F5]*[I5]
以此类推。。。。。。谢谢！
计算累计.rar (9.59 KB, 下载次数: 18)

2014-2-24 16:21 上传

点击文件名下载附件

ＭisterRight

发现个错误
1月份=([C4]-[C3])*[F4]*[G4+([D4]-[D3])*[F4]*[H4]+([E4]-[E3])*[F4]*[I4]
，这里你应该是写错了我就不要括号了=(c4-c3)*f4*g4+(d4-d3)*f4*h4+(e4-e3)*f4*i4

yjh_27

参见附件。

龙蒙山

yjh_27 发表于 2014-2-24 20:32
参见附件。

谢谢大师！

龙蒙山

yjh_27 发表于 2014-2-24 20:32
参见附件。

再请教：选择月份后，用按钮执行代码怎么改？谢谢！

ＭisterRight

你真客气。原来你只是需要处理13行的数据啊。

yjh_27

龙蒙山 发表于 2014-2-24 20:54
再请教：选择月份后，用按钮执行代码怎么改？谢谢！

1. Private Sub CommandButton1_Click()
   
2. yue = Val(Mid(Range("k3"), 6))
   
3. jeh = 0
   
4. For i = 1 To yue
   
5. je = (Range("c3").Offset(i, 0) - Range("c2").Offset(i, 0)) * Range("f3").Offset(i, 0) * Range("g3").Offset(i, 0) + _
   
6.     (Range("d3").Offset(i, 0) - Range("d2").Offset(i, 0)) * Range("f3").Offset(i, 0) * Range("h3").Offset(i, 0) + _
   
7.     (Range("e3").Offset(i, 0) - Range("e2").Offset(i, 0)) * Range("f3").Offset(i, 0) * Range("i3").Offset(i, 0)
   
8. jeh = jeh + je
   
9. Next
   
10. Range("k3").Offset(0, 1) = je
    
11. Range("k3").Offset(0, 2) = jeh
    
12. 
    
13. End Sub
    

复制代码