[已解决]查找满足条件的入库时间

JIN2014

各位大神，请帮忙，感谢。

最佳答案

月排行榜 / 总排行榜

风林火山

2021-9-8 11:31

是这个意思吗
Sub test()
    Dim arr, brr, k As Integer, n As Byte, iar As Integer, ibr As Integer, d, d1
    arr = Worksheets("原材料存库").Range("b2").CurrentRegion
    brr = Worksheets("流水台账").Range("b3").CurrentRegion
    Set d = CreateObject("scripting.dictionary")
    Set d1 = CreateObject("scripting.dictionary")
    For n = 2 To UBound(arr)
        For m = UBound(brr) To 2 Step -1
            If brr(m, 1) = arr(n, 3) And brr(m, 3) = "采购收货单" Then
                d(arr(n, 3)) = d(arr(n, 3)) + brr(m, 4)
                d1(arr(n, 3)) = d1(arr(n, 3)) & "|" & brr(m, 2)
                If d(arr(n, 3)) >= arr(n, 8) Then
                    arr(n, 4) = d1(arr(n, 3)): Exit For
                End If
            End If
        Next m
    Next n
    Worksheets("原材料存库").Range("b2").Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

跳转到最佳答案楼层

风林火山

是这个意思吗
Sub test()
    Dim arr, brr, k As Integer, n As Byte, iar As Integer, ibr As Integer, d, d1
    arr = Worksheets("原材料存库").Range("b2").CurrentRegion
    brr = Worksheets("流水台账").Range("b3").CurrentRegion
    Set d = CreateObject("scripting.dictionary")
    Set d1 = CreateObject("scripting.dictionary")
    For n = 2 To UBound(arr)
        For m = UBound(brr) To 2 Step -1
            If brr(m, 1) = arr(n, 3) And brr(m, 3) = "采购收货单" Then
                d(arr(n, 3)) = d(arr(n, 3)) + brr(m, 4)
                d1(arr(n, 3)) = d1(arr(n, 3)) & "|" & brr(m, 2)
                If d(arr(n, 3)) >= arr(n, 8) Then
                    arr(n, 4) = d1(arr(n, 3)): Exit For
                End If
            End If
        Next m
    Next n
    Worksheets("原材料存库").Range("b2").Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

JIN2014

1. Sub test()
   
2.     Dim arr, brr, k As Integer, n As Byte, iar As Integer, ibr As Integer, d, d1
   
3.     arr = Worksheets("原材料存库").Range("b2").CurrentRegion
   
4.     brr = Worksheets("流水台账").Range("b3").CurrentRegion
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     Set d1 = CreateObject("scripting.dictionary")
   
7.     For n = 2 To UBound(arr)
   
8.         For m = UBound(brr) To 2 Step -1
   
9.             If brr(m, 1) = arr(n, 3) And brr(m, 3) = "采购收货单" Then
   
10.                 d(arr(n, 3)) = d(arr(n, 3)) + brr(m, 4)
    
11.                 d1(arr(n, 3)) = brr(m, 2)
    
12.                 If d(arr(n, 3)) >= arr(n, 8) Then
    
13.                     arr(n, 4) = d1(arr(n, 3)): Exit For
    
14.                 End If
    
15.             End If
    
16.         Next m
    
17.     Next n
    
18.     Worksheets("原材料存库").Range("b2").Resize(UBound(arr), UBound(arr, 2)) = arr
    
19. End Sub

复制代码

感谢，改成这样就可以了，谢谢。

风林火山

Sub test()
    Dim arr, brr, k As Integer, n As Byte, iar As Integer, ibr As Integer
    arr = Worksheets("原材料存库").Range("b2").CurrentRegion
    brr = Worksheets("流水台账").Range("b3").CurrentRegion
    For n = 2 To UBound(arr)
        For m = UBound(brr) To 2 Step -1
            If brr(m, 1) = arr(n, 3) Then
                If brr(m, 4) >= arr(n, 8) Then arr(n, 4) = brr(m, 2): Exit For
            End If
        Next m
    Next n
    Worksheets("原材料存库").Range("b2").Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub

JIN2014

风林火山 发表于 2021-9-8 12:33
Sub test()
    Dim arr, brr, k As Integer, n As Byte, iar As Integer, ibr As Integer
    arr = Wor ...

你好，如图所以，只要满足图片中的要求时，也是满足条件的，谢谢。再麻烦你。只要收数量从最后一行网上累计大于或者等于结存库存的时候，入库时间就是该批该物料入库时间

roserice

风林火山 发表于 2021-9-8 12:33
Sub test()
    Dim arr, brr, k As Integer, n As Byte, iar As Integer, ibr As Integer
    arr = Wor ...

请问一下,If brr(m, 4) >= arr(n, 8) Then arr(n, 4) = brr(m, 2): Exit For 这一句是不是有错误啊?

JIN2014

风林火山 发表于 2021-9-8 13:15
是这个意思吗
Sub test()
    Dim arr, brr, k As Integer, n As Byte, iar As Integer, ibr As Integer ...

是的，就是在返回入库时间的时候，只需要返回现在返回时间“|”后的时间就可以，“|”前面的时间和|都不需要，谢谢。如图

JIN2014

roserice 发表于 2021-9-8 13:29
请问一下,If brr(m, 4) >= arr(n, 8) Then arr(n, 4) = brr(m, 2): Exit For 这一句是不是有错误啊?

没有错误的，可以运行的