出入库台账

猪猪被梦吃了

想做一份出入库台账，总共有四种耗材，13个区域，子表一填入出入库明细后，在子表二自动生成结存明细数据。
各位大神如果有更好的模板，可以修改一下模板的。

3190496160

零工耗材出入库台账.rar (10.18 KB, 下载次数: 12)

2023-5-23 10:11 上传

点击文件名下载附件

猪猪被梦吃了

3190496160 发表于 2023-5-23 10:11

德保铠装电缆入库了1000米也没显示出来咧，项目办出库了3000米给那坡在子表2也显示不出来吗

猪猪被梦吃了

3190496160 发表于 2023-5-23 10:11

德保铠装电缆入库了1000米也没显示出来咧，项目办出库了3000米给那坡在子表2也显示不出来吗

3190496160

Sub 汇总()
Application.ScreenUpdating = False
Dim ar As Variant, br As Variant
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("出入库清单")
    rs = .Cells(Rows.Count, 1).End(xlUp).Row
    br = .Range("a1:h" & rs)
End With
With Sheets("明细账")
    .UsedRange.Offset(2).Clear
    y = .Cells(2, Columns.Count).End(xlToLeft).Column
    ar = .Range(.Cells(1, 1), .Cells(rs, y))
    For j = 2 To UBound(ar, 2) Step 2
        If Trim(ar(1, j)) <> "" Then
            d(Trim(ar(1, j))) = j
        End If
    Next j
    k = 2
    For i = 2 To UBound(br)
        If Trim(br(i, 2)) <> "" Then
            t = d(Trim(br(i, 2)))
            If t = "" Then
                k = k + 1
                d(Trim(br(i, 2))) = k
                t = k
                ar(k, 1) = br(i, 2)
            End If
            If Trim(br(i, 4)) <> "" Then
                lh = d(Trim(br(i, 4)))
                If lh <> "" Then
                    ar(t, lh) = ar(t, lh) + br(i, 6)
                    ar(t, lh + 1) = ar(t, lh + 1) + br(i, 5)
                End If
            End If
        End If
    Next i
    .[a1].Resize(k, y) = ar
    .[a1].Resize(k, y).Borders.LineStyle = 1
End With
Application.ScreenUpdating = True
MsgBox "ok!"
End Sub

3190496160

零工耗材出入库台账.rar (17.46 KB, 下载次数: 10)

2023-5-24 11:36 上传

点击文件名下载附件

3190496160

vba完成的，仅供参考
题外话：翻看了你其他的帖子，自始至终没有一句感谢地话，没有一朵小花赠送，只是一味地索取，

tsthh

请老师们指教

猪猪被梦吃了

3190496160 发表于 2023-5-24 11:39
vba完成的，仅供参考
题外话：翻看了你其他的帖子，自始至终没有一句感谢地话，没有一朵小花赠送，只是一 ...

谢谢！我都不知道怎么赠送小花！我看下，马上给您送

猪猪被梦吃了

tsthh 发表于 2023-5-24 14:29
请老师们指教

你好，我下载了您写的公式，那坡入库高压1，在明细表里没有体现呢