如何用代码计算各成本要素的占比，求教各大师！

chengshanming

各位大师好！正确结果如截图与附件！附件是用函数做的，我觉的自己做的代码比较繁琐，并且速度比较慢，能不能帮忙写个其它代码？

wzsy2_mrf

1. Sub 备份1()
   
2.     Dim d, arr, brr, i&, j&, rend&
   
3.     rend = Range("B65536").End(3).Row
   
4.     arr = Range("B3:R" & rend)
   
5.    
   
6.     brr = Range("S3:X" & rend)
   
7.     Set d = CreateObject("scripting.dictionary")
   
8.     For i = 1 To UBound(arr)
   
9.         d(arr(i, 1)) = i
   
10.     Next
    
11.     For i = 1 To UBound(brr)
    
12.         j = d(brr(i, 1))
    
13.         brr(i, 2) = arr(i, 12) / arr(j, 17)
    
14.         brr(i, 3) = IIf(arr(i, 10) = "是", "", arr(i, 13) / arr(j, 17))
    
15.         brr(i, 4) = IIf(arr(i, 10) = "是", "", arr(i, 14) / arr(j, 17))
    
16.         brr(i, 5) = IIf(arr(i, 10) = "是", "", arr(i, 15) / arr(j, 17))
    
17.         brr(i, 6) = IIf(arr(i, 10) = "是", "", arr(i, 16) / arr(j, 17))
    
18.     Next
    
19.     Range("S3:X" & rend) = brr
    
20.     Erase arr, brr
    
21.     Set d = Nothing
    
22. End Sub
    

复制代码

yjh_27

直接利用层级判顶层

1. Sub 备份2()
   
2.     Dim d, arr, brr, i&, j&, rend&
   
3.     rend = Range("B65536").End(3).Row
   
4.     arr = Range("a3:R" & rend)
   
5.    
   
6.     brr = Range("S3:X" & rend)
   
7.     For i = 1 To UBound(brr)
   
8.         If arr(i, 1) = 0 Then i0 = i
   
9.         brr(i, 2) = arr(i, 13) / arr(i0, 18)
   
10.         For j = 3 To 6
    
11.         If arr(i, 11) = "是" Then
    
12.             brr(i, j) = ""
    
13.         Else
    
14.             brr(i, j) = arr(i, j + 11) / arr(i0, 18)
    
15.         End If
    
16.     Next j, i
    
17.     Range("S3:X" & rend) = brr
    
18.     Erase arr, brr
    
19. End Sub
    

复制代码

chengshanming

yjh_27 发表于 2016-8-23 10:48
直接利用层级判顶层

yjh_27老师好！有个问题请教下！如果某个数组的列位置是相对变化的，range(,)范围能用cells(i,1) 到cells(i,n+20)这种形式表示么，可以话该怎么来表示。以下有个类似的代码，运算逻辑一样的。

TOTAL是工序数，可以自动变化的。
Sub 备份2()
  N = Range("A65536").End(3).Row
        For i = 2 To UBound(N)
            crr = Range(Cells(2, 1), Cells(i, 16 + total * 2)) & N
            drr = Range(Cells(2, 17 + total * 2), Cells(i, 21 + total * 2)) & N
            If crr(i, 1) = 0 Then i0 = i
            drr(i, 2) = crr(i, 11 + total * 2) / crr(i0, 16 + total * 2)
            For j = 0 To 4
                If crr(i, 9 + total * 2) = "是" Then
                    drr(i, j) = ""
                Else
                    drr(i, j) = crr(i, j + 11 + total * 2) / crr(i0, 16 + total * 2)
                End If
            Next j, i
            Range(Cells(i, 17 + total * 2), Cells(i, 21 + total * 2) & N) = drr
            Erase crr, drr
End Sub

yjh_27

chengshanming 发表于 2016-8-24 10:56
yjh_27老师好！有个问题请教下！如果某个数组的列位置是相对变化的，range(,)范围能用cells(i,1) 到cells ...

A2起始单元格
一般用下说明范围大小
Range("a2").Resize(行数, 列数)

用以下说明偏移
Range("a2").Offset (偏移行数, 偏移列数)

chengshanming

yjh_27 发表于 2016-8-24 12:00
A2起始单元格
一般用下说明范围大小
Range("a2").Resize(行数, 列数)

yjh-27老师好！从你的代码中学到了不少东西！以下还有个问题要您帮下忙，能改下代码么？因为之前对BOM有些问题未考虑全面深入，现遇到新问题需求解决。多谢！

Private Sub 料工费计算_Click()
total = Sheet1.Cells(Rows.Count, 2).End(xlUp).Row - 2
N = Range("B1:B" & Range("B65536").End(3).Row)
For i = 2 To UBound(N)
    If Cells(i, 1) = 0 Then i0 = i
    Cells(i, 18 + total * 2) = Cells(i, 11 + total * 2) / Cells(i0, 16 + total * 2)
    For j = 0 To 3
        '材料占0层成品成本的比例，各半成品在各自工序段发生工费占0层成品成本比例，0层成品工费为从下往上累加的成本比例。
        Cells(i, 19 + j + total * 2) = IIf(Cells(i, 1) = 0, Cells(i, 12 + j + total * 2) / Cells(i0, 16 + total * 2), IIf(Cells(i, 12 + j + total * 2) = 0, Empty, (Cells(i, 12 + j + total * 2) - Cells(i + 1, 12 + j + total * 2)) / Cells(i0, 16 + total * 2)))
    Next
Next
Range(Cells(1, 18 + total * 2), Cells(i, 22 + total * 2)).NumberFormatLocal = "0.00%"
End Sub

yjh_27

chengshanming 发表于 2016-8-24 20:52
yjh-27老师好！从你的代码中学到了不少东西！以下还有个问题要您帮下忙，能改下代码么？因为之前对BOM有 ...

正常统计是
本层金额=∑下层金额
你的是
本层金额=本层基本金额+∑下层金额

所以现在      占比=本层金额/总金额
而你要的是   占比=本层基本金额/总金额

chengshanming

yjh_27 发表于 2016-8-24 22:09
正常统计是
本层金额=∑下层金额
你的是

是的老师！正常核算金额是从下往上累加，占比0层（本层）的是累加总金额占比，各半成品段是本工序所耗用各种费用占0总成本比例！实际中做一个含多个半成品的0层成品，如果成本过高，首先会看它高在材料，还是人工，费用，再看看它在哪个工序段，耗费用大。

kszcs

成本的计算，挺复杂的

chengshanming

huang1314wei 发表于 2016-8-22 21:45
一点描述都没有，主要是不知道你要计算什么，怎么计算？

大师好！请教个问题！
乘积求和怎么用代码表示！如
For total = 1 To 10
For i = 1 To 65536
那么 [arr(i, 7 ) * FL(1, 2) + arr(i, 8 ) * FL(2, 2)+ arr(i, 9 ) * FL(3, 2)+……  + arr(i, 7 + total ) * FL(total,2)]
'累积求和怎么用代码格式表示，total是可以灵活变动的。类似从1+到N可以用N(N+1)/2一样?