。。。。各位大大，别嫌麻烦啊 ，我又来了。。。

婊孓也寂寞

根据“生产编号”+“工序”对应出在制品的“重量”，并写到作业计划相同“生产编号”+“工序”的工序下边

婊孓也寂寞

主要是一行一列，我不会写到数组中。。。。

jsqb

没有人烦你，这标题已不新鲜

魂断蓝桥

【在制品】 表格中生产编号+工序有重复的，重量需要加总？，时间如何取？

婊孓也寂寞

魂断蓝桥 发表于 2019-4-19 08:06
【在制品】 表格中生产编号+工序有重复的，重量需要加总？，时间如何取？

有重复的，肯定要累计，时间的话取最近的。。。

microyip

如果你是学习的话，非常欢迎提出疑问，把自己做的过程中遇到的问题展示出来。
如果是把工作完成，不停把工作内容拆分成很多小模块功能来展示求助，作为求学的论坛就不欢迎了。你还不如一次把内容提出，有偿请专业人士处理。

婊孓也寂寞

microyip 发表于 2019-4-19 08:54
如果你是学习的话，非常欢迎提出疑问，把自己做的过程中遇到的问题展示出来。
如果是把工作完成，不停把工 ...

。。。。您可以看看我的附件 都是包含了很多我自己编写的代码，肯定是想学习而已，我确实是把它拆分开了，因为我也是才学这个东西不久，仅仅是想先一步一步的搞清楚而已，当然如果确需酬劳的话，也是可以的毕竟付出多辛苦

microyip

婊孓也寂寞 发表于 2019-4-19 09:05
。。。。您可以看看我的附件 都是包含了很多我自己编写的代码，肯定是想学习而已，我确实是把它拆分开了 ...

具体你的代码出问题出哪呢？没写哦

longkkkk

mark，学习下

魂断蓝桥

Option Explicit
Sub A()
    Dim cnn, rs As Object, Sql As String, i%, myf, d, j%, s, tmp
    myf = ThisWorkbook.Path & "\在制品.xls"
    Set cnn = CreateObject("adodb.connection")
    Set rs = CreateObject("adodb.Recordset")
    Set d = CreateObject("Scripting.Dictionary")
    cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & myf
    Sql = "SELECT 生产编号,工序名称,重量+0,FORMAT(时间,""YYYY-MM-DD HH:MM:SS"") FROM [Sheet1$A1:AP] WHERE 生产编号 is not null "
    rs.Open Sql, cnn, 1, 1
    Do While Not rs.EOF
        d(rs.Fields(0) & "|" & rs.Fields(1)) = rs.Fields(2) & "|" & rs.Fields(3)
        rs.movenext
    Loop
    Set rs = Nothing
    Set cnn = Nothing
    Dim arr
    arr = Sheet1.[a1].CurrentRegion
    For i = 3 To UBound(arr)
        For j = 12 To 33 Step 2
            s = arr(i, 1) & "|" & arr(2, j)
            If d.exists(s) Then
                tmp = Split(d(s), "|")
                arr(i, j) = tmp(0)
                arr(i, j + 1) = tmp(1)
            Else
                arr(i, j) = ""
                arr(i, j + 1) = ""
            End If
        Next
    Next
    [a1].Resize(UBound(arr), UBound(arr, 2)) = arr
    Set d = Nothing
End Sub