统计领料周期

看飞鸟的金鱼

gwjkkkkk 发表于 2024-5-19 19:51
。。。。。。。。。。。。。

我的没法显示模块代码，可能是我这边的问题

看飞鸟的金鱼

Qs18 发表于 2024-5-19 19:54
是具体的材料周期吗？好像没有理解到意思，最好是举例子

比如4月5日领料，下次4.25号，就是20天，4.30号领料就是5号

看飞鸟的金鱼

ykcbf1100 发表于 2024-5-19 19:59
附件供参考。。。

非常感谢大神的耐心回复！

看飞鸟的金鱼

ykcbf1100 发表于 2024-5-19 19:59
参与一下。。。

ykcbf1100

看飞鸟的金鱼 发表于 2024-5-19 20:23

你不要修改我的代码，把第一行代码option Explicit去掉再运行。

Qs18

Public Sub test()
Dim arr, i, j, wlmc, rng As Range, r As Range
arr = Sheet2.Range("a1").CurrentRegion.Value
     Set cnn = CreateObject("adodb.connection")
    Set rst = CreateObject("ADODB.RecordSet")
    With cnn
        .Open "Provider=Microsoft.Ace.oledb.12.0;extended properties='excel 12.0;HDR=yes';data source=" & ThisWorkbook.FullName
        Sql = "select 单据日期,物料编码,物料名称 from [领料明细$] order by 物料名称,单据日期 DESC "
       End With
      
       rst.Open Sql, cnn, 1, 3
            
       arr = Application.WorksheetFunction.Transpose(rst.getrows)

With Sheet1
Set rng = .[c3:c21]
For Each r In rng
wlmc = r
k = 0
    For i = LBound(arr) To UBound(arr)
   
     If wlmc = arr(i, 3) Then
            k = k + 1
                     
            If k > 1 Then
                r.Offset(0, k - 1).Value = CDate(arr(i - 1, 1)) - CDate(arr(i, 1))
            End If
    End If
   
    Next
Next
End With

End Sub

Qs18

看飞鸟的金鱼 发表于 2024-5-19 20:07
比如4月5日领料，下次4.25号，就是20天，4.30号领料就是5号

物料名称和物料编号不能对应

看飞鸟的金鱼

Qs18 发表于 2024-5-19 20:57
Public Sub test()
Dim arr, i, j, wlmc, rng As Range, r As Range
arr = Sheet2.Range("a1").CurrentRe ...

感谢大神回复，祝一切顺利！

看飞鸟的金鱼

gwjkkkkk 发表于 2024-5-19 19:47
Option Explicit

Sub test1()

非常感谢回复，腻害！

看飞鸟的金鱼

gwjkkkkk 发表于 2024-5-19 19:47
Option Explicit

Sub test1()

感谢老师的辛苦付出。