对一列数据求积后，将求积求和

410491844

对数据求积后，再对求出的积求和。
但是现在只能做到求积，求和这一步怎么都实现不了，囧
Sub 型材重量计算()
Dim i, j, k, l As Integer
Dim sum1 As Integer
For i = 1 To Cells(65336, 1).End(xlUp).Row
    If Cells(i, 1) = "型材成本" Then
    k = i
    End If
    If Cells(i, 1) = "五金成本" Then
    l = i
    End If
    For j = k + 2 To l - 2
    Cells(j, 24) = Cells(j, 7) * Cells(j, 11)
    sum1 = Cells(j, 24).Value + sum1
    Next j
    Cells(l - 1, 24) = sum1
Next i
End Sub

sucx007

1. Sub 型材重量计算()
   
2. Dim i, j, k, l As Integer
   
3. Dim sum1 As Double
   
4. For i = 1 To Cells(65336, 1).End(xlUp).Row
   
5.     If Cells(i, 1) = "型材成本" Then k = i        'K是型材
   
6.     If Cells(i, 1) = "五金成本" Then l = i        'L是五金
   
7.     If k < l And l = i Then '当满足条件进行循环运算
   
8.         sum1 = 0 '初始化
   
9.         For j = k + 2 To l - 2
   
10.             Cells(j, 24) = Cells(j, 7) * Cells(j, 11)
    
11.             sum1 = Cells(j, 24).Value + sum1
    
12.         Next j
    
13.         Cells(l - 1, 24).Value = sum1
    
14.    End If
    
15. Next i
    
16. End Sub

复制代码

没仔细看，是否这样

mmlzh

1. Sub 型材重量计算()
   
2. Dim i, K, sum
   
3. For i = 1 To [A65336].End(xlUp).Row
   
4.     If Cells(i, 1) = "合计：" Then Cells(i, 24) = sum: sum = 0
   
5.     If Application.IsNumber(Cells(i, 7)) And Cells(i, 1) <> 1 Then K = Cells(i, 7) * Cells(i, 11): Cells(i, 24) = K: sum = K + sum
   
6. Next i
   
7. End Sub
   

复制代码

准提部林

mmlzh 发表于 2019-2-15 17:03

if Application.IsNumber(Cells(i, 7)) then
也可用~~
if IsNumeric(Cells(i, 7)) then

mmlzh

准提部林 发表于 2019-2-15 20:35
if Application.IsNumber(Cells(i, 7)) then
也可用~~
if IsNumeric(Cells(i, 7)) then

谢谢部林老师指导，VBA很少涉及，很多函数还不了解，见了不少部林老师写的VBA,可惜没学到精髓，照虎画猫，见笑了。

准提部林

mmlzh 发表于 2019-2-15 20:41
谢谢部林老师指导，VBA很少涉及，很多函数还不了解，见了不少部林老师写的VBA,可惜没学到精髓，照虎画猫 ...

哈! 我也是見樣學樣來的, 不會無中生有~~~

Datous

我经常用这个

1. VBA.IsNumeric()

复制代码

Datous

函数前面加上对象，是编程的规范之一，有助于阅读。

micch

只是做个样子，全录下来太麻烦，会超出附件大小限制。合并就不录了

准提部林

計算列位置及方式不盡相同????
Sub TEST()
Dim xR As Range, T$, S, xSum, C%, K%
For Each xR In Range([A1], [A65536].End(3))
    If InStr("/型材成本/五金成本/玻璃成本/其它费用/", xR) Then T = xR: C = 0: K = 1: GoTo 101
    If K = 1 Then K = 2: GoTo 101
    If Right(xR, 3) = "合计：" And C > 0 Then xR(1, C) = xSum: xSum = 0: C = 0: K = 0: GoTo 101
    Select Case T
           Case "型材成本"
                S = Val(xR(1, 7)) * Val(xR(1, 11)) * Val(xR(1, 16)) / 1000
                xR(1, 22) = S: xSum = xSum + S: C = 22
           Case "五金成本"
                 S = Val(xR(1, 13)) * Val(xR(1, 17))
                xR(1, 22) = S: xSum = xSum + S: C = 22
           Case "玻璃成本"
                 S = Val(xR(1, 15)) * Val(xR(1, 18))
                xR(1, 23) = S: xSum = xSum + S: C = 23
           Case "其它费用"
                S = Val(xR(1, 6)) + Val(xR(1, 21))
                xSum = xSum + S: C = 6
    End Select
101: Next
End Sub