报废单累计计算

y1983y

机械加工单位报废单统计，以前都是人工计算的，但是累计工时无法计算，请大侠协助，谢谢！

谢谢给位大侠的鼎力相助，这个也可以用在计件工资上，计算损失的金额。

wodewan

这个没必要VBA吧？普通函数不就可以了吗？G2填入=SUM(OFFSET(零件清单!$F$2,,,MATCH(E2,零件清单!E:E,0)-1))

xiangbaoan

Private Sub CommandButton1_Click()
Dim Cn As Object, Rs As Object, Sq$, ar, i&, s$
Set Cn = CreateObject("ADODB.Connection")
Set Rs = CreateObject("ADODB.Recordset")
Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
Sheets("报废登记").Activate
ar = [a1].CurrentRegion.Resize(, 4)
ReDim br(2 To UBound(ar), 0)
For i = 2 To UBound(ar)
    s = " WHERE " & ar(1, 1) & "='" & ar(i, 1) & "' AND " & _
                    ar(1, 2) & "='" & ar(i, 2) & "' AND " & _
                    ar(1, 3) & "='" & ar(i, 3) & "' AND " & _
                    ar(1, 4) & "*1<=" & Val(ar(i, 4))
    Sq = " SELECT SUM(单件工时) FROM [零件清单$A1:g" & Sheets("零件清单").Cells(Rows.Count, 1).End(xlUp).Row & "]" & s
    Rs.Open Sq, Cn, 1, 3
    br(i, 0) = Rs(0)
    If Rs.State = 1 Then Rs.Close
Next
[g2].Resize(i - 2) = br
Cn.Close
Set Cn = Nothing
Set Rs = Nothing
End Sub

y1983y

wodewan 发表于 2019-9-4 18:37
这个没必要VBA吧？普通函数不就可以了吗？G2填入=SUM(OFFSET(零件清单!$F$2,,,MATCH(E2,零件清单!E:E,0)-1) ...

谢谢您！由于数据量较多，有进两万条，用函数太慢了。

y1983y

xiangbaoan 发表于 2019-9-4 20:30
Private Sub CommandButton1_Click()
Dim Cn As Object, Rs As Object, Sq$, ar, i&, s$
Set Cn = Create ...

非常感谢您！你太厉害了，正是吾想要的结果。

xiangbaoan

y1983y 发表于 2019-9-5 10:10
非常感谢您！你太厉害了，正是吾想要的结果。

不客气，能用就好，也是学习中。

y1983y

xiangbaoan 发表于 2019-9-4 20:30
Private Sub CommandButton1_Click()
Dim Cn As Object, Rs As Object, Sq$, ar, i&, s$
Set Cn = Create ...

您好，又要麻烦您了，近来碰到工序号含字母的情况，如一个零件工序为10,20,30,40,50，60A，60B，70A，70B，80，100，该如何累计计算。例如80报废了，需要将前面的工序工时全部相加，若是70B报废，需要前面的全部相加。

xiangbaoan

y1983y 发表于 2019-9-12 10:51
您好，又要麻烦您了，近来碰到工序号含字母的情况，如一个零件工序为10,20,30,40,50，60A，60B，70A，70B ...

For i = 2 To UBound(ar)
    s = " WHERE " & ar(1, 1) & "='" & ar(i, 1) & "' AND " & _
                    ar(1, 2) & "='" & ar(i, 2) & "' AND " & _
                    ar(1, 3) & "='" & ar(i, 3) & "' AND " & _
                    "VAL(" & ar(1, 4) & ")<=" & Val(ar(i, 4))
    Sq = " SELECT SUM(单件工时) FROM [零件清单$A1:g" & Sheets("零件清单").Cells(Rows.Count, 1).End(xlUp).Row & "]" & s
    Rs.Open Sq, Cn, 1, 3
    br(i, 0) = Rs(0)
    If Rs.State = 1 Then Rs.Close
Next

y1983y

xiangbaoan 发表于 2019-9-12 11:17
For i = 2 To UBound(ar)
    s = " WHERE " & ar(1, 1) & "='" & ar(i, 1) & "' AND " & _
           ...

棒棒哒，太强了

xiangbaoan

y1983y 发表于 2019-10-11 20:35
棒棒哒，太强了

呵呵，看样子是一个月上论坛一次。