使用带VBA的循环和公式计算值

时间:2017-03-16 20:24:28

标签: vba

enter image description here

我是VBA for Excel的新手,因为我处理涉及大量计算的项目,我想用VBA自动化。我的数据范围为15个月。为此,我使用循环和公式,但代码会产生不同的结果。 Spefically:

1 - 我想计算下个月的价值总和,并显示上个月最后一天的结果。这是在H11列中完成的。

2-我希望在确定=H11-G11-F11的值后,在该月的最后一天使用此公式H11

3-我想按照相同的逻辑预期计算下个月的值,在这种情况下,我的公式取决于前几个月的结果。例如:G29=L11+L112*K31;我知道K31中的值。

以下是我正在使用的代码:

Dim i As Long
Dim lrow As Long
Dim start_dif As Double

lrow = Cells(Rows.Count, "A").End(xlUp).Row
For i = 26 To lrow
    data = Cells(i, "A")
    next_date = Cells(i + 1, "A")
    If Month(next_date) = Month(data) + 1 Or _
        Year(next_date) = Year(data) + 1 Then
        'first diference
        start_dif = Cells(i, "I").Value
        'Calculating value in G for each end of month
        Cells(i, "G").Value = start_dif + start_dif * Cells(i, "K").Value
        'setting up next start_dif
        start_dif = Cells(i + 1, "I").Value
    End If
Next i

请注意,我无法计算出计算总和的代码。让我说感谢你的帮助。

0 个答案:

没有答案