错行对应求和..........

zhangjimfu

secowu ，看看是不是这样的结果

secowu

原帖由 zhangjimfu 于 2010-8-31 17:09 发表
secowu ，看看是不是这样的结果

非常感谢，为何这样加了下，算出来的都是15？

1. 
   
2. Sub sumproduct()
   
3.      Dim i As Integer
   
4.      Dim row As Integer
   
5.      Dim sum As Integer
   
6.      On Error Resume Next
   
7.      row = 2
   
8.      For j = 3 To ActiveSheet.UsedRange.Columns.Count
   
9.      For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(3).row Step 2
   
10.           sum = sum + Cells(i + 2, 1) * Cells(row, j)
    
11.           row = row + 2
    
12.      Next i
    
13.            Cells(6, j) = sum
    
14.      Next j
    
15. End Sub
    

复制代码

[ 本帖最后由 secowu 于 2010-8-31 17:22 编辑 ]

secowu

原帖由 secowu 于 2010-8-31 17:18 发表

非常感谢，为何这样加了下，算出来的都是15？
Sub sumproduct()
     Dim i As Integer
     Dim row As Integer
     Dim sum As Integer
     On Error Resume Next
     row = 2
     For j = 3 To Acti ...

算出来都一样，原来是忘记变量再初始化了。不好意思。

1. 
   
2. Sub sumproduct()
   
3.      Dim i As Integer
   
4.      Dim row As Integer
   
5.      Dim sum As Integer
   
6.      On Error Resume Next
   
7.      row = 2
   
8.      For j = 3 To ActiveSheet.UsedRange.Columns.Count
   
9.      For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(3).row Step 2
   
10.           sum = sum + Cells(i + 2, 1) * Cells(row, j)
    
11.           row = row + 2
    
12.      Next i
    
13.            Cells(6, j) = sum
    
14.            i = 1
    
15.            row = 2
    
16.            sum = 0
    
17.      Next j
    
18. End Sub
    

复制代码

zhangjimfu

哈哈、、吃饭刚回来

secowu

原帖由 zhangjimfu 于 2010-8-31 17:49 发表
哈哈、、吃饭刚回来

谢谢，辛苦了。
那个value的原因是因为“”的值。
看来，得从其它地方处理这个“”了

secowu

原帖由 zhangjimfu 于 2010-8-31 17:49 发表
哈哈、、吃饭刚回来

看这个附件，两个问题：
1、value错误
2、这种直接等于的公式表示有没有数量限制，同样，换为sumproduct之前测试是否也有数量限制。如果是，何解？

secowu

放个图上来先。。。。。。。

secowu

第一个过程修改一句，忘记写变量上去了
原来的

1. 
   
2. For i = 1 To 3 Step 2
   

复制代码

修改为：

1. 
   
2. For i = 1 To k Step 2
   

复制代码

secowu

原帖由 secowu 于 2010-8-31 20:20 发表

谢谢，辛苦了。
那个value的原因是因为“”的值。
看来，得从其它地方处理这个“”了

解决了，感谢zhangjimfu的热心帮助。

1. 
   
2. 
   
3. Option Explicit
   
4. option private module
   
5. Sub mSumproductAddress()
   
6.     Dim i, j, k As Integer
   
7.     Dim row As Integer
   
8.     Dim mSum As String
   
9.     On Error Resume Next
   
10.     row = 2
    
11.     k = ActiveSheet.Cells(Rows.Count, 1).End(3).row + 2
    
12.     For j = 3 To ActiveSheet.UsedRange.Columns.Count
    
13.         For i = 1 To k - 4 Step 2
    
14. 
    
15.             mSum = mSum & Cells(i + 2, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "*" & Cells(row, j).Address(RowAbsolute:=False, ColumnAbsolute:=False) & "+"
    
16.             row = row + 2
    
17.         Next i
    
18.         Cells(k, j) = "=" & Left(mSum, Len(mSum) - 1)
    
19.         i = 1
    
20.         row = 2
    
21.         mSum = ""
    
22.     Next j
    
23. End Sub
    
24. 
    
25. Sub mSumproduct()
    
26.      Dim i, j, k As Integer
    
27.      Dim row As Integer
    
28.      Dim mSum As Integer
    
29.      On Error Resume Next
    
30.      row = 2
    
31.      k = ActiveSheet.Cells(Rows.Count, 1).End(3).row + 1
    
32.      For j = 3 To ActiveSheet.UsedRange.Columns.Count
    
33.      For i = 1 To ActiveSheet.Cells(Rows.Count, 1).End(3).row Step 2
    
34.           mSum = mSum + Cells(i + 2, 1) * Cells(row, j)
    
35.           row = row + 2
    
36.      Next i
    
37.            Cells(k, j) = mSum
    
38.            i = 1
    
39.            row = 2
    
40.            mSum = 0
    
41.      Next j
    
42. End Sub
    
43. 
    
44. Sub temp()
    
45.     Call mSumproduct
    
46.     Call mSumproductAddress
    
47. End Sub
    

复制代码

secowu

只能到这么多个了，再加一个就溢出了。

1. 
   
2. =A3*C2+A5*C4+A7*C6+A9*C8+A11*C10+A13*C12+A15*C14+A17*C16+A19*C18+A21*C20+A23*C22+A25*C24+A27*C26+A29*C28+A31*C30+A33*C32+A35*C34+A37*C36+A39*C38+A41*C40+A43*C42+A45*C44+A47*C46+A49*C48+A51*C50+A53*C52+A55*C54+A57*C56+A59*C58+A61*C60+A63*C62+A65*C64+A67*C66+A69*C68+A71*C70+A73*C72+A75*C74+A77*C76+A79*C78+A81*C80+A83*C82+A85*C84+A87*C86+A89*C88+A91*C90+A93*C92+A95*C94+A97*C96+A99*C98+A101*C100+A103*C102+A105*C104+A107*C106+A109*C108+A111*C110+A113*C112+A115*C114+A117*C116+A119*C118+A121*C120+A123*C122+A125*C124+A127*C126+A129*C128+A131*C130+A133*C132+A135*C134+A137*C136+A139*C138+A141*C140+A143*C142+A145*C144+A147*C146+A149*C148+A151*C150+A153*C152+A155*C154+A157*C156+A159*C158+A161*C160+A163*C162+A165*C164+A167*C166+A169*C168+A171*C170+A173*C172+A175*C174+A177*C176+A179*C178+A181*C180+A183*C182+A185*C184+A187*C186+A189*C188+A191*C190+A193*C192+A195*C194+A197*C196+A199*C198+A201*C200+A203*C202+A205*C204+A207*C206+A209*C208+A211*C210+A213*C212+A215*C214+A217*C216+A219*C218+A221*C220+A223*C222+A225*C224+A227*C226+A229*C228+A231*C230+A233*C232+A235*C234+A237*C236+A239*C238+A241*C240+A243*C242+A245*C244+A247*C246+A249*C248+A251*C250+A253*C252+A255*C254+A257*C256+A259*C258+A261*C260+A263*C262+A265*C264+A267*C266+A269*C268+A271*C270+A273*C272+A275*C274+A277*C276+A279*C278+A281*C280+A283*C282+A285*C284+A287*C286+A289*C288+A291*C290+A293*C292+A295*C294+A297*C296+A299*C298+A301*C300
   

复制代码