循环减

ddz79101 · 发表于 2024-10-1 10:36

老师！有表，我希望据月循环减。有请老师帮忙看看。谢谢

ddz79101 · 发表于 2024-10-1 11:51

审核的时间，怎么如此如此漫长

ddz79101 · 发表于 2024-10-1 12:21

ddz79101 发表于 2024-10-1 11:51
审核的时间，怎么如此如此漫长

还没有审核完呀

ddz79101 · 发表于 2024-10-1 15:12

ddz79101 发表于 2024-10-1 12:21
还没有审核完呀

ddz79101 发表于 2024-10-1 11:51
审核的时间，怎么如此如此漫长

还没有审核完呀

ddz79101 · 发表于 2024-10-1 18:53

有老师指点吗

不规则结构 · 发表于 2024-10-1 19:12

很明显，你问题描述的不够清楚！比如是年初预留12个月还是一个月增加一个月？

ddz79101 · 发表于 2024-10-1 19:16

不规则结构发表于 2024-10-1 19:12
很明显，你问题描述的不够清楚！比如是年初预留12个月还是一个月增加一个月？

老师！12个月，这里的案例给了3个月，因为我想12个月和3个月的格式一样，若放置12个月，不方便浏览。

不规则结构 · 发表于 2024-10-1 19:45

ddz79101 发表于 2024-10-1 19:16
老师！12个月，这里的案例给了3个月，因为我想12个月和3个月的格式一样，若放置12个月，不方便浏览。

你模拟数据计算似乎有错误。会计的表应该是不能预留月份的。估计你不会数组，所以用单元格写的。只有核心部分的计算逻辑。合计什么的没有做
Sub eeeee()
Set Rng = [a1:ad1].Find("合计")
c = Rng.Column
[a1:a7].Copy [a18]
For j = 2 To 7
      For i = 2 To c - 1 Step 2

         Cells(j + 17, i / 2 + 1) = Cells(j, i + 1) - Cells(j, i)
         k = k + Cells(j, i + 1) - Cells(j, i)

      Next
      Cells(j + 17, (c + 2) / 2) = k
      k = 0
Next

End Sub

lizhipei78 · 发表于 2024-10-1 19:56

JSA 走一波

lizhipei78 · 发表于 2024-10-1 19:58

循环减.rar (10.02 KB, 下载次数: 6)

		自动登录	找回密码
密码			免费注册

[求助] 循环减

评分

评分