这个VBA多条件统计错在那里

wyf22006

单元格的指向都做了,可以代码运行后的计算结果怎么错了,
附件我已经上传
Sub GGGG()

    Dim iO&, i&, sm#, arr1(), arr2(), arr3()

    arr1 = [C2].Resize([C65536].End(3).Row - 1, 3).Value
    arr2 = [E2:E10000].Value
    arr3 = [m2:m21].Value
    arr4 = [o2:o21].Value
    For iO = 2 To UBound(arr3)
        sm = 0
        For i = 2 To UBound(arr1)
            If (arr1(i, 1)) >= arr3(iO, 1) Then
            If (arr1(i, 1)) <= arr4(iO, 1) Then
            If arr1(i, 3) = [Q1] Then
                   sm = sm + Cells(i, 9)
               End If
                End If
             End If
        Next
        Cells(iO, 17).Value = sm
    Next

End Sub

wyf22006

看一下附件吧,能帮我提点建议也好

wj2368

已经修正

1. Sub GGGG()
   
2.     Dim iO&, i&, sm#, arr1(), arr2(), arr3()
   
3. 
   
4.     arr1 = [C2].Resize([C65536].End(3).Row - 1, 3).Value
   
5.     arr2 = [I2:I10000].Value
   
6.     arr3 = [m2:m21].Value
   
7.     arr4 = [o2:o21].Value
   
8.     For iO = 1 To UBound(arr3)
   
9.         sm = 0
   
10.         For i = 1 To UBound(arr1)
    
11.             If arr1(i, 1) >= arr3(iO, 1) And arr1(i, 1) <= arr4(iO, 1) And arr1(i, 3) = [Q1] Then
    
12.                    sm = sm + arr2(i, 1)
    
13.           End If
    
14.         Next
    
15.         Cells(iO + 1, 17).Value = sm
    
16.     Next
    
17. End Sub
    
18. 
    

复制代码

wyf22006

非常感谢谢wj2368的指导帮我解了困了我好几天的难题
不知道为什么：Cells（i，9）和arr2（i，1）所指向的区域是一样的，但计算的结果怎么会二样了，
还有：Q1：Y1也是条件区域，当条件是Q1时是现在的代码，不知道当条件是R1到Y1时不知道怎么写代码了，望指教

wyf22006

谢谢你的指导，多条件计算是我工作中的重点，而且数据量大，以前用公式老是跑不动，这一次你帮我解决了一个大难题，谢谢，非常谢谢

wj2368

原帖由 wyf22006 于 2010-10-8 11:08 发表
非常感谢谢wj2368的指导帮我解了困了我好几天的难题
不知道为什么：Cells（i，9）和arr2（i，1）所指向的区域是一样的，但计算的结果怎么会二样了，
还有：Q1：Y1也是条件区域，当条件是Q1时是现在的代码，不知道当 ...
并去掉0

1. Sub GGGG()
   
2.     Dim iO&, i&, sm#, arr1(), arr2(), arr3()
   
3. 
   
4.     arr1 = [C2].Resize([C65536].End(3).Row - 1, 3).Value
   
5.     arr2 = [I2:I10000].Value
   
6.     arr3 = [m2:m21].Value
   
7.     arr4 = [o2:o21].Value
   
8.     For i1 = 1 To 9
   
9.     For iO = 1 To UBound(arr3)
   
10.         sm = 0
    
11.         For i = 1 To UBound(arr1)
    
12.             If arr1(i, 1) >= arr3(iO, 1) And arr1(i, 1) <= arr4(iO, 1) And arr1(i, 3) = Cells(1, 16 + i1) Then
    
13.                    sm = sm + arr2(i, 1)
    
14.           End If
    
15.         Next
    
16.         If sm <> 0 Then
    
17.         Cells(iO + 1, 16 + i1).Value = sm
    
18.         End If
    
19.     Next
    
20.     Next
    
21. End Sub

复制代码

[ 本帖最后由 wj2368 于 2010-10-8 11:26 编辑 ]

wyf22006

谢谢，经测试完全正确，珍藏这个非常珍贵的代码

qczvba

不错，学习了。

蓝色风

不错，学习了。

wyf22006

那天的代码我增加了一个计总数的代码，可不知道为什么执行起来会不停的跳动
期待你的解答，在此先谢了
Private Sub CommandButton1_Click()
Dim i1&, iO&, i&, sm#, aw#, arr1(), arr2(), arr3(), arr4()
    arr1 = [B2].Resize([B65536].End(3).Row - 1, 4).Value
    arr2 = [I2].Resize([I65536].End(3).Row - 1, 1).Value
    arr3 = [m2:m21].Value
    arr4 = [o2:o21].Value
    For i1 = 1 To 9
    For iO = 1 To UBound(arr3)
        sm = 0
        aw = 0
        For i = 1 To UBound(arr1)
                  If arr1(i, 1) >= arr3(iO, 1) And arr1(i, 1) <= arr4(iO, 1) Then
           aw = aw + arr2(i, 1)
             End If
            If arr1(i, 1) >= arr3(iO, 1) And arr1(i, 1) <= arr4(iO, 1) And arr1(i, 4) = Cells(1, 16 + i1) Then
                   sm = sm + arr2(i, 1)
          End If
        If sm <> 0 Then
           Cells(iO + 1, 16 + i1).Value = sm
        End If
         If aw <> 0 Then
              Cells(iO + 1, 16).Value = aw
              End If
              Next
        Next
        Next
End Sub