求完工产品成本对比表的VBA代码：F-B列都是SUMIFS函数，求相应的VBA代码

杨炀

求完工产品成本对比表VBA代码：F-B列都是SUMIFS函数，求相应的VBA代码 完工产品成本汇总表已知材料费,人工费,制造费,总成本跟数量，求完工产品成本对比表中单个产品的单位材料费，人工费，制造费及数量 例如：F3列=IFERROR(SUMIFS(完工产品成本汇总表!$J:$J,完工产品成本汇总表!$C:$C,F$2,完工产品成本汇总表!$D:$D,$B3,完工产品成本汇总表!$E:$E,$C3,完工产品成本汇总表!$F:$F,$D3,完工产品成本汇总表!$G:$G,$E3)/SUMIFS(完工产品成本汇总表!$I:$I,完工产品成本汇总表!$C:$C,F$2,完工产品成本汇总表!$D:$D,$B3,完工产品成本汇总表!$E:$E,$C3,完工产品成本汇总表!$F:$F,$D3,完工产品成本汇总表!$G:$G,$E3),0)

opel-wong

密密麻麻，鬼画符一样，
不过我核对过了，结果是对的，哈哈哈哈哈
代码如下，供参考：

杨炀

opel-wong 发表于 2021-6-10 16:03
密密麻麻，鬼画符一样，
不过我核对过了，结果是对的，哈哈哈哈哈
代码如下，供参考：

可以复制出来吗，图片格式我复制不了

opel-wong

杨炀 发表于 2021-6-10 16:08
可以复制出来吗，图片格式我复制不了

这几十行代码，我都是一个个写出来的，建议你抄写一遍，有助于提高自己。
每次发完贴之后，自己要有一定的进步，循序渐进，以后自己就可以写代码了。
都是这么过来的，

杨炀

opel-wong 发表于 2021-6-10 16:13
这几十行代码，我都是一个个写出来的，建议你抄写一遍，有助于提高自己。
每次发完贴之后，自己要有一定 ...

我测算了一下，没有反应哦，就只是算出了数量而已，其他费用都没有哦

opel-wong

杨炀 发表于 2021-6-10 17:46
我测算了一下，没有反应哦，就只是算出了数量而已，其他费用都没有哦

把你抄写好代码的附件上传来看看，
你确定没有抄写错？

杨炀

opel-wong 发表于 2021-6-10 18:22
把你抄写好代码的附件上传来看看，
你确定没有抄写错？

Sub 数据汇总()
    Dim arr, i As Long, j As Integer, mStr As String, nStr As String
    Dim d As Object: Set d = CreateObject("Scripting.Dictionary")
    arr = Worksheets("完工产品成本汇总表").UsedRange.Value
    For i = 2 To UBound(arr)
        If Len(arr(i, 1)) > O And Val(arr(i, 8)) > O Then
           mStr = arr(i, 1)
           If Not d.Exists(mStr) Then d(mStr) = Val(arr(i, 8)) Else d(mStr) = d(mStr) + Val(arr(i, 8))
       End If
       If Len(arr(i, 3)) > 0 And Len(arr(i, 4)) > 0 And Len(arr(i, 5)) > 0 And Len(arr(i, 6)) > 0 And Len(arr(i, 7)) > 0 Then
          mStr = arr(i, 4) & "," & arr(i, 5) & "," & arr(i, 6) & "," & arr(i, 7) & ",材料费用," & arr(i, 3)
          If Not d.Exists(mStr) Then d(mStr) = Val(arr(i, 10)) Else d(mStr) = d(mStr) + Val(arr(i, 10))

          mStr = arr(i, 4) & "," & arr(i, 5) & "," & arr(i, 6) & "," & arr(i, 7) & ",人工费用," & arr(i, 3)
          If Not d.Exists(mStr) Then d(mStr) = Val(arr(i, 11)) Else d(mStr) = d(mStr) + Val(arr(i, 11))

          mStr = arr(i, 4) & "," & arr(i, 5) & "," & arr(i, 6) & "," & arr(i, 7) & ",费用," & arr(i, 3)
          If Not d.Exists(mStr) Then d(mStr) = Val(arr(i, 12)) Else d(mStr) = d(mStr) + Val(arr(i, 12))

          mStr = arr(i, 4) & "," & arr(i, 5) & "," & arr(i, 6) & "," & arr(i, 7) & ",计量," & arr(i, 3)
          If Not d.Exists(mStr) Then d(mStr) = Val(arr(i, 9)) Else d(mStr) = d(mStr) + Val(arr(i, 9))
       End If
   Next
   Application.ScreenUpdating = False
   With Worksheets("完工产品成本对比表")
       .Activate
       .Range("F3:BM1048576").ClearContents
       arr = .UsedRange.Value
       For i = 3 To UBound(arr)
          If Len(arr(i, 1)) > O Then
             For j = 54 To 65
                If Len(arr(2, j)) > O Then
                   mStr = arr(2, j) & arr(i, 1)
                   If d.Exists(mStr) Then arr(i, j) = d(mStr)
               End If
          Next
      End If
      If Len(arr(i, 2)) > O And Len(arr(i, 3)) > 0 And Len(arr(i, 4)) > O And Len(arr(i, 5)) > O Then
         For j = 6 To 41
             If Len(arr(2, j)) > O Then
                If Len(arr(1, i)) - 0 Then arr(1, j) = arr(1, j - 1)
                mStr = arr(i, 2) & "," & arr(i, 3) & "," & arr(i, 4) & "," & arr(i, 5) & "," & arr(1, i) & "," & arr(2, j)
                nStr = arr(i, 2) & "," & arr(i, 3) & "," & arr(i, 4) & "," & arr(i, 5) & ",计量," & arr(2, j)
                If d.Exists(mStr) Then arr(i, j) = d(mStr) / d(nStr)
             End If
        Next
     End If
     For j = 42 To 53
         arr(i, j) = Val(arr(i, j - 12)) + Val(arr(i, j - 24)) + Val(arr(i, j - 36))
     Next
Next
UsedRange.Value = arr
End With
Application.ScreenUpdating = True
MsgBox "数据已统计完成!"
End Sub

杨炀

求完工产品成本对比表的VBA代码：F-B列都是SUMIFS函数，求相应的VBA代码

杨炀

opel-wong 发表于 2021-6-10 18:22
把你抄写好代码的附件上传来看看，
你确定没有抄写错？

你看看代码是不是哪里有什么问题

Yalishanda30

杨炀 发表于 2021-6-10 20:09
你看看代码是不是哪里有什么问题

作业抄错了！！！