求教实现一个简单的仓库管理功能

bbcx

在菜单sheet点击入库或出库按钮会弹出对话框输入信息，入库信息自动生成至入库记录sheet，出库信息自动生成至出库记录sheet，该两个功能已做好。
现在想让入库信息自动生成至库位表sheet，并且在录入时与库位表原有信息进行比较，如果库位号、名称、型号及制造商都相同则在原有数量上累加，反之则另生成一行，不知该如何实现，恳请各位指教以下，谢谢。

liulang0808

楼主上传的附件无效啊
建议根据需求在论坛里搜一下雷同案例
或者附件再重新传一遍

3190496160

附件是空的，什么都没有，请重新上传

bbcx

liulang0808 发表于 2020-2-20 10:24
楼主上传的附件无效啊
建议根据需求在论坛里搜一下雷同案例
或者附件再重新传一遍

不好意思，已重新上传

bbcx

3190496160 发表于 2020-2-20 10:25
附件是空的，什么都没有，请重新上传

不好意思，已重新上传

3190496160

Private Sub CommandButton1_Click()
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or TextBox7.Text = "" Then
MsgBox "请将备件信息填写完整！"
Exit Sub
End If
Dim xrow As Integer
ar = Array(TextBox1.Text, TextBox2.Text, TextBox3.Text, TextBox4.Text, TextBox5.Text, TextBox6.Text, TextBox7.Text)
arr = Array(TextBox6.Text, TextBox2.Text, TextBox3.Text, TextBox7.Text, TextBox4.Text)

With Sheets("入库记录")
    xrow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
    .Cells(xrow, "A").Resize(1, 7) = ar
End With
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("库位表")
    ws = .Cells(Rows.Count, 1).End(xlUp).Row
    If ws < 2 Then
        .Cells(ws + 1, "A").Resize(1, 5) = arr
    Else
        br = .Range("a1:g" & ws)
        For i = 2 To UBound(br)
            If Trim(br(i, 1)) <> "" And Trim(br(i, 2)) <> "" And Trim(br(i, 3)) <> "" And Trim(br(i, 4)) <> "" Then
                s = Trim(br(i, 1)) & "|" & Trim(br(i, 2)) & "|" & Trim(br(i, 3)) & "|" & Trim(br(i, 4))
                d(s) = i
            End If
        Next i
        ss = Trim(arr(0)) & "|" & Trim(arr(1)) & "|" & Trim(arr(2)) & "|" & Trim(arr(3))
        m = d(ss)
        If m <> "" Then
            .Cells(m, 5) = .Cells(m, 5) + arr(4)
        ElseIf m = "" Then
            .Cells(ws + 1, "A").Resize(1, 5) = arr
        End If
    End If
End With
Sheets("入库记录").Activate
End Sub

3190496160

库位表.rar (26.85 KB, 下载次数: 24)

2020-2-20 11:13 上传

点击文件名下载附件

bbcx

3190496160 发表于 2020-2-20 11:13

非常感谢，可以好好学习一下