我是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
请注意,我无法计算出计算总和的代码。让我说感谢你的帮助。