求助按指定月份倒序计算

dagal

小规模纳税人年收入500万是按循环月份计算12个月，想请教下能自动按指定月份开始倒序的12个月共开票数据，得出剩余的开票数据。谢谢

工作簿1.rar (8.18 KB, 下载次数: 9)

2022-11-29 15:17 上传

点击文件名下载附件

ykcbf1100

没哥德巴赫，你自己核一下吧，我下班了。

gwjkkkkk

Sub TEST()
Dim arr, i&, j&, iMonth&, M&
arr = [A1].CurrentRegion
brr = [D1].CurrentRegion
brr(2, 3) = 0: brr(2, 4) = 0
iMonth = Val(Format([D2], "m"))
For i = 1 To UBound(arr)
   M = Val(Format(arr(i, 1), "m"))
   If M <= iMonth And M >= 1 Then
      brr(2, 3) = brr(2, 3) + arr(i, 2)
      brr(2, 4) = brr(2, 2) - brr(2, 3)
   End If
Next i
[D3].Resize(2, 4) = brr
End Sub

gwjkkkkk

请楼主参考。。。

dagal

gwjkkkkk 发表于 2022-11-29 19:17
请楼主参考。。。

感谢！不过好像加的不大对，假设从22年11月开始，倒序12个月相加是加到21年12月，可是得出的结果是加了21年11月，把12月跳过去了，得出的金额是3300017.9。正确的结果是3419963.14才对。如果从10月开始，又只加到了22年1月，正确要加到21年11月

良良

F2=SUM(OFFSET(B$1,MATCH(D2,A:A,)-1,,-12))

gwjkkkkk

请楼主参考。。。

ykcbf1100

昨天快下班时上传附件失败，当时论坛服务器出问题了。

今天重新上传吧。

dagal

ykcbf1100 发表于 2022-11-30 10:00
昨天快下班时上传附件失败，当时论坛服务器出问题了。

今天重新上传吧。

谢谢，不过好象有个bug，就是G2的数字好象不会随着F2的变动而变动，得出的结果应该是E2-F2的

ykcbf1100

dagal 发表于 2022-12-1 11:35
谢谢，不过好象有个bug，就是G2的数字好象不会随着F2的变动而变动，得出的结果应该是E2-F2的

是我疏忽，附件已重新上传。