[已解决]谁能帮我看看问题在哪里？worksheetfunction.sum的运用

1932leo

任务：将01表数据分类填入02表中，其中需要在02表各工作表填列各月数据后做一个“本月合计”
问题：根据自己绞尽脑汁想出来的的代码，02表中第一个工作表做“本月合计”没有问题，但是在运行到第2个工作表是就提示错误。
实在想不出是什么问题，望大家指点迷津。{:35:}

最佳答案

月排行榜 / 总排行榜

grf1973

2017-6-28 10:18

.Cells(m + icount, 4) = Application.WorksheetFunction.Sum(.Range(Cells(m, 4), Cells(m + icount - 1, 4)))

括号里面的Cells前面少了一个“.”

跳转到最佳答案楼层

大灰狼1976

你有这一句代码：
Set sht = Application.Workbooks("01.2017年产成品分配表").Worksheets("分配表")
但是“01.2017年产成品分配表”这个文件并没有打开，所以会报错，要么用代码打开它，
要么运行前先手动打开它。
我也没测试，你自己先试一下。

1932leo

大灰狼1976 发表于 2017-6-27 09:01
你有这一句代码：
Set sht = Application.Workbooks("01.2017年产成品分配表").Worksheets("分配表")
但 ...

打开了，不打开会提示“下标越界 9 ”

1932leo

不明白的是，为什么02表第一个表可以，运行到第2个表就不行了

1932leo

1.   '.Cells(m + icount, 4) = Application.WorksheetFunction.Sum(.Range(Cells(m, 4), Cells(m + icount - 1, 4)))
   
2.    '.Cells(m + icount, 5) = Application.WorksheetFunction.Sum(.Range(Cells(m, 5), Cells(m + icount - 1, 5)))
   
3. '改为：
   
4.       .Cells(m + icount, 4).Formula = "=Sum(R" & m & "C4:R" & m + icount - 1 & "C4)"
   
5.       .Cells(m + icount, 5).Formula = "=Sum(R" & m & "C5:R" & m + icount - 1 & "C5)"

复制代码

1932leo

虽然还是不明白原来代码的问题出现在哪里，但是改成这样就可以了。

grf1973

.Cells(m + icount, 4) = Application.WorksheetFunction.Sum(.Range(Cells(m, 4), Cells(m + icount - 1, 4)))

括号里面的Cells前面少了一个“.”

1932leo

grf1973 发表于 2017-6-28 10:18
.Cells(m + icount, 4) = Application.WorksheetFunction.Sum(.Range(Cells(m, 4), Cells(m + icount - 1,  ...

我试过了，正是这个问题！感谢指“点”