[已解决]求助各位帮助解决一个多列求和的问题

zzh49

各位老师好！

      有一难题有求各位帮忙。我在vb6.0窗体上放置了一OLE控件，控件中插入一excel对sql数据库进行分类统计，可是统计表的各列合计卡住了。

      图片是模拟数据，在数据区的最后一行对各列数据求和，下面代码运行时提示Count和Sum 未找到方法或数据成员。本人水平太低，弄了很久实在无力解决，请各位千万帮忙，不胜感激！！！

     请注意：行、列会增加的，代码中不能使用固定的数据区最后行、列数。

Private Sub TJ_Click()

   Dim i%, r%

   Dim m

   Dim arr

   OLE1.DoVerb 0

Set a = OLE1.object

arr =a.ActiveSheet.Range("A1").CurrentRegion

m = UBound(arr)

a.ActiveSheet.Range("A"& m + 1) = "总计"

   For i = 2 To 100

       If Application.Count(a.ActiveSheet.Range(a.ActiveSheet.Cells(4, i),a.ActiveSheet.Cells(r - 1, i))) Then

              a.ActiveSheet.Cells(r, i) = Application.Sum(a.ActiveSheet.Range(a.ActiveSheet.Cells(4, i),a.ActiveSheet.Cells(m - 1, i)))

       End If

    Next i

End Sub

最佳答案

月排行榜 / 总排行榜

suye1010

2014-1-22 17:44

a.parent.worksheetfunction.Count
a.parent.worksheetfunction.Sum

跳转到最佳答案楼层

suye1010

a.parent.worksheetfunction.Count
a.parent.worksheetfunction.Sum