求简易进销存表格

布加甜 · 发表于 2023-3-28 09:06

3190496160 发表于 2023-3-27 17:21
往往玩儿代码的不懂公式，玩儿公式的不懂代码，

老师,就是利用在代码,求和各进仓列,出仓列,最后得出结存数,结存=期实+进仓-出仓,能帮忙下吗,谢谢

3190496160 · 发表于 2023-3-28 10:42

Sub 计算()
With ActiveSheet
r = .Cells(Rows.Count, 2).End(xlUp).Row
If r < 4 Then MsgBox "数据源为空": End
.Range("cu4:cx" & r) = Empty
.Range("f" & r & ":cx" & r) = Empty
ar = .Range("a3:cx" & r)
For i = 2 To UBound(ar)
      hj1 = 0: hj = 0: hj = 0
      If Trim(ar(i, 3)) <> "" Then
         For j = 6 To UBound(ar, 2) - 4 Step 3
            hj1 = hj1 + ar(i, j)
            hj2 = hj2 + ar(i, j + 1)
            hj3 = hj3 + ar(i, j + 2)
         Next j
         ar(i, UBound(ar, 2) - 3) = hj1
         ar(i, UBound(ar, 2) - 2) = hj2
         ar(i, UBound(ar, 2) - 1) = hj3
         ar(i, UBound(ar, 2)) = ar(i, 5) + ar(i, UBound(ar, 2) - 3) - ar(i, UBound(ar, 2) - 2)
         For j = 6 To UBound(ar, 2) Step 1
            ar(UBound(ar), j) = ar(UBound(ar), j) + ar(i, j)
         Next j
      End If
Next i
.Range("a3:cx" & r) = ar
End With
MsgBox "ok!"
End Sub

3190496160 · 发表于 2023-3-28 10:43

3190496160 · 发表于 2023-3-28 10:44

2023年出入明细表.rar (29.22 KB, 下载次数: 7)

布加甜 · 发表于 2023-3-28 11:35

3190496160 发表于 2023-3-28 10:44

老师,我刚试了下,第一行的数据是正确的,但第二行开始就不正确了,所求和的数据全都是第一的,第二行及以下的,怎么输入都没发生变化.能麻烦您抽空帮忙再改改吗?

布加甜 · 发表于 2023-3-28 11:42

3190496160 发表于 2023-3-28 10:44

如果我库存里,有的上月结存(或者结存是的0),本月没发生额,本月结存应该是等于上月结存呀,现在出现的错误是,本月没发生额,数据自动变成上一行的数据了

zxsea_7426 · 发表于 2023-3-28 13:18

布加甜发表于 2023-3-28 11:35
老师,我刚试了下,第一行的数据是正确的,但第二行开始就不正确了,所求和的数据全都是第一的,第二行及以下 ...

红框中对应修改一下就好

zxsea_7426 · 发表于 2023-3-28 13:21

3190496160 发表于 2023-3-28 10:43

最后一列是cy

布加甜 · 发表于 2023-3-28 13:37

zxsea_7426 发表于 2023-3-28 13:18
红框中对应修改一下就好

改成CY?,我改了，还是不行，我是小白，不懂这个代码，能上传个附件吗，谢谢

3190496160 · 发表于 2023-3-28 14:19

2023年出入明细表.rar (28.13 KB, 下载次数: 13)

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

[求助] 求简易进销存表格