如何将出库单中单元格数据，根据相应的商品代码，自动保存到仓储明细中指定单元格

AHMGCXH

出库数据.zip (132.1 KB, 下载次数: 13)

2024-2-7 10:28 上传

点击文件名下载附件

quqiyuan

P2=IF(ISNUMBER(MATCH($K2,出库录入!$B$4:$B$6,)),CHOOSE(COLUMN(A$1),出库录入!$A$2,出库录入!$C$2,出库录入!$E$2,出库录入!$H$2,出库录入!$K$2,出库录入!$M$2,出库录入!$N$2),"")
W2=VLOOKUP($K2,出库录入!$B$4:$O$40,COLUMN(L$1),)

3190496160

Sub 出库到明细()
Dim ar As Variant
Dim d As Object
Dim arr()
Set d = CreateObject("scripting.dictionary")
With Sheets("出库录入")
   rs = .Cells(Rows.Count, 1).End(xlUp).Row
   If rs < 4 Then MsgBox "出库录入为空！": End
   br = .Range("a1:n" & rs)
End With

With Sheets("仓储明细")
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    ar = .Range("a1:x" & r)
    For i = 2 To UBound(ar)
        If ar(i, 11) <> "" Then
            d(ar(i, 11)) = i
        End If
    Next i
    ReDim arr(1 To UBound(ar), 1 To 9)
    For j = 16 To 24
        arr(1, j - 15) = ar(1, j)
    Next j
    For i = 2 To UBound(br)
        xh = d(br(i, 2))
        If xh <> "" Then
            arr(xh, 1) = br(2, 1)
            arr(xh, 2) = br(2, 3)
            arr(xh, 3) = br(2, 5)
            arr(xh, 4) = br(2, 8)
            arr(xh, 5) = br(2, 11)
            arr(xh, 6) = br(2, 13)
            arr(xh, 7) = br(2, 14)
            arr(xh, 8) = br(i, 13)
            arr(xh, 9) = br(i, 14)
        End If
    Next i
    .[p1].Resize(UBound(arr), UBound(arr, 2)) = arr
End With
MsgBox "ok!"
End Sub

3190496160

出库数据.rar (84.3 KB, 下载次数: 10)

2024-2-16 09:46 上传

点击文件名下载附件

AHMGCXH

3190496160 发表于 2024-2-16 09:46

效果良好，感谢指点！谢谢！顺致龙年快乐！心想事成！

AHMGCXH

3190496160 发表于 2024-2-16 09:46

只能保存，1个出库单记录，再次，保存出库单数据，原出库数据将清空！

AHMGCXH

3190496160 发表于 2024-2-16 09:45
Sub 出库到明细()
Dim ar As Variant
Dim d As Object

只能保存，1个出库单记录，再次，保存出库单数据，原出库数据将清空！

3190496160

AHMGCXH 发表于 2024-2-19 14:51
只能保存，1个出库单记录，再次，保存出库单数据，原出库数据将清空！

说实话，到现在为止，也还没完全了解你的真是意图究竟是什么
如果出库单中同一个商品代码的数据需要多次保存的话，在明细中的究竟要如何对应？？？
求助一定要把自己的意图表述清楚，毕竟，别人不是做你的工作的，

AHMGCXH

3190496160 发表于 2024-2-19 14:59
说实话，到现在为止，也还没完全了解你的真是意图究竟是什么
如果出库单中同一个商品代码的数据需要多次 ...

仓储明细表中，同一个商品代码的商品，需保存入库及出库数据，钢卷只有一次，出入库记录，此代码，是将出库单中的出库数据添加保存到仓储明细表中，以备后期查阅。出库记录，同一个商品代码只有一条。

3190496160

AHMGCXH 发表于 2024-2-19 16:50
仓储明细表中，同一个商品代码的商品，需保存入库及出库数据，钢卷只有一次，出入库记录，此代码，是将出 ...

说实话，这段话，根本就看不懂是什么意思