求助大神帮忙弄一个钢结构生产附件简单的EXCEL进销存管理系统~~~

qodyrj

求助大神帮忙弄一个钢结构生产附件半成品的出入库管理系统，附件是现在使用的台账，附件表2、表3里A-E列是基础数据，希望可以通过EXCEL导入，能根据D、E列名称进行查询出入库情况~~~~~求大神指点~~~！！感谢~！

3190496160

就是一盒数组+字典的问题，但是：
1.进度 工作表是你需要的最终效果吗？
2.如果是，建议取消合并单元格，大量的合并单元格，认为增加写代码的难度和工作量

qodyrj

3190496160 发表于 2020-8-20 10:23
就是一盒数组+字典的问题，但是：
1.进度 工作表是你需要的最终效果吗？
2.如果是，建议取消合并单元格， ...

谢谢~进度也可以作为报表来看，简单一点就是可以通过VBA实现一个批量入库和出库的信息，然后方便查询有据可寻。

3190496160

qodyrj 发表于 2020-8-20 12:52
谢谢~进度也可以作为报表来看，简单一点就是可以通过VBA实现一个批量入库和出库的信息，然后方便查询有据 ...

合并单元格问题呢？？？？？？？？？？？？

qodyrj

3190496160 发表于 2020-8-20 12:59
合并单元格问题呢？？？？？？？？？？？？

不合并也可以的

3190496160

Sub test()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
Dim ar As Variant, br()
ReDim br(1 To 100, 1 To 10)
For Each sh In Sheets
    If sh.Name <> "进度" And sh.Name <> "测试" Then
        ar = sh.[a1].CurrentRegion
        For i = 5 To UBound(ar)
            If Trim(ar(i, 3)) <> "" And Trim(ar(i, 4)) <> "" And Trim(ar(i, 5)) <> "" Then
                s = Trim(ar(i, 3)) & "|" & Trim(ar(i, 4)) & "|" & Trim(ar(i, 5))
                t = d(s)
                If t = "" Then
                    k = k + 1
                    d(s) = k
                    t = k
                    br(k, 1) = k
                    br(k, 2) = ar(i, 4)
                    br(k, 3) = ar(i, 5)
                    br(k, 4) = ar(i, 3)
                End If
                br(t, 5) = br(t, 5) + ar(i, 2)
                br(t, 6) = br(t, 6) + ar(i, 6)
                br(t, 8) = br(t, 8) + ar(i, 9)
            End If
        Next i
    End If
Next sh
For i = 1 To k
    If br(i, 6) = 0 Then
        br(i, 7) = 0
    Else
        br(i, 7) = br(i, 6) / br(i, 5)
    End If
    br(i, 9) = br(i, 6) - br(i, 8)
Next i
With Sheets("测试")
    .UsedRange.Offset(2).Clear
    .[a3].Resize(k, UBound(br, 2)) = br
End With
MsgBox "ok!"
End Sub

3190496160

附件仓库附件领用记录台账.zip (115.25 KB, 下载次数: 11)

2020-8-21 09:56 上传

点击文件名下载附件

学部委员

你可以采用即用即得的数据表格管理方式、无需要自已计算、只需要在手机上提交进出库记录和进销存操作就可以自动得出结果，微信搜一搜云库存表、打开小程序云库存表就可以使用。

qodyrj

3190496160 发表于 2020-8-21 09:56

感谢！可能我没有表达清楚，但是这个vba也解决了一个问题~很感谢！我希望做到是可以有一个或多个窗口根据项目和 子项目选择对应的编号录入入库信息（包括数量及日期），及出库信息（数量、日期、人名）。