vba sum函数用法

slsl2009cn

请教大神，怎么使用求和函数写代码？例如我想求a列中几个连续单元格的和，但是不知道具体会有多少单元格，所以要用到变量，sum函数怎么引用变量呢？
还有就是连接符号&的用法。

dajiahaoxinku12

Range("c1") = Application.Sum(Range("a1:a10"))

chenzyyysl

mysum= Application.Sum([a1].resize(x,1))

x 是你用其它方法求值的变量

slsl2009cn

Public Function bb()
    Dim i As Integer, j As Integer
    i = 2
    j = Worksheets("肖金波").Range("A1").CurrentRegion.Rows.Count
    bb = Application.WorksheetFunction.Sum(C[& i & ]:C [& j & ])
    Worksheets("3月").Range("H2").Value = bb
End Function
这是程序，运行时sum函数那行出错。应该是sum引用的问题。看了楼上的回复，可以每一种都可以解决我的问题。谢谢！

slsl2009cn

chenzyyysl 发表于 2013-5-6 19:51
mysum= Application.Sum([a1].resize(x,1))

x 是你用其它方法求值的变量

按照你提供的方法我的程序是不是可以写成如下：
aa=application.sum([a2].resize(j,1))

slsl2009cn

dajiahaoxinku12 发表于 2013-5-6 19:48
Range("c1") = Application.Sum(Range("a1:a10"))

是否可以写成：
aa=application.sum(range("a2:a" & "j"))

slsl2009cn

slsl2009cn 发表于 2013-5-6 21:07
是否可以写成：
aa=application.sum(range("a2:a" & "j"))

为什么运行时出错说range作用于对象gloab失败？

dajiahaoxinku12

变量 j 不用引号    aa=application.sum(range("a2:a" & j)）

slsl2009cn

chenzyyysl 发表于 2013-5-6 19:51
mysum= Application.Sum([a1].resize(x,1))

x 是你用其它方法求值的变量

大侠，为什么程序运行第一次能够求出正确结果，运行第二次，第三次都是同一个结果，是错误的呢？记得以前做个分类的程序也是的，第一次对，多运行几次就错，错误结果不变但是退出vbe在重新打开运行第一次又可以得到正确结果。
Public Function bb()
    Dim i As Integer, j As Integer
    i = 2
    j = Worksheets("肖金波").Range("A1").CurrentRegion.Rows.Count - 1
    ' Worksheets("肖金波").Activate '激活工作表肖金波
    bb = Application.WorksheetFunction.Sum([C2].Resize(j, 1))
    Worksheets("3月").Range("H2").Value = bb
End Function
                               
3月        6日        47.50         肖金波       
3月        11日        5.00         肖金波       
3月        12日        23.00         肖金波       
3月        14日        22.50         肖金波       
3月        15日        17.00         肖金波       
3月        16日        14.50         肖金波       
3月        17日        18.00         肖金波       
3月        18日        19.50         肖金波       
表格在第2-9行，a-d列。求解惑！

slsl2009cn

dajiahaoxinku12 发表于 2013-5-6 21:21
变量 j 不用引号    aa=application.sum(range("a2:a" & j)）

Public Sub qiuhe()
    Dim j As Integer
    j = Worksheets("包含").Range("A1").CurrentRegion.Rows.Count
    ' Worksheets("包含").Activate '激活工作表包含
     Worksheets("3月").Range("H3").Value = Application.Sum(Range("c2:c" & j))
End Sub
                       
3月        7日        25.00         包含
3月        9日        39.50         包含
数据在2-3行，a-d列
为什么也会出现运行第一次对的，第二次第三次就错了，还是同一个错误值呢？