请高手老师帮我修改代码

ulcy

请老师帮我查查代码，哪里错了，得出31行里的小计数据有时对，有时不对，有时是0，请老师帮我修改代码

tigerliu007

ActiveWorkbook.Sheets("人力1").Range("j31") = WorksheetFunction.Sum(Range("j6:j30"))
如果被计算的工作表不是活动工作表时，等号前后的值不一定是你想要计算的单元格区域。你这样的代码，每句前只好加上sheets("人力1").select等等了。

roych

ActiveWorkbook.Sheets("人力1").Range("j31") = WorksheetFunction.Sum(Range("j6:j30"))
ActiveWorkbook.Sheets("人力1").Range("k31") = WorksheetFunction.Sum(Range("k6:k30"))
ActiveWorkbook.Sheets("人机配合1").Range("i31") = WorksheetFunction.Sum(Range("i6:i30"))
ActiveWorkbook.Sheets("人机配合1").Range("k31") = WorksheetFunction.Sum(Range("k6:k30"))
ActiveWorkbook.Sheets("人机配合1").Range("l31") = WorksheetFunction.Sum(Range("L6:L30"))
ActiveWorkbook.Sheets("人机配合2").Range("i31") = WorksheetFunction.Sum(Range("i6:i30"))
ActiveWorkbook.Sheets("人机配合2").Range("k31") = WorksheetFunction.Sum(Range("k6:k30"))
ActiveWorkbook.Sheets("人机配合2").Range("L31") = WorksheetFunction.Sum(Range("L6:L30"))
------------------------------------------------------------------------------------------------------------
由于原代码求和部分没有指定工作表，因此总有2个表是不对的。

以工作表“人力1”为例，修改如下：
-------------------------------------------------------------------------------------------
with ActiveWorkbook.Sheets("人力1")'注意，sum的后面还有一个圆点号。
.Range("j31") = WorksheetFunction.Sum(.Range("j6:j30"))
.Range("k31") = WorksheetFunction.Sum(.Range("k6:k30"))
end with
其它类似。。。。

ulcy

roych 发表于 2016-2-16 14:24
ActiveWorkbook.Sheets("人力1").Range("j31") = WorksheetFunction.Sum(Range("j6:j30"))
ActiveWorkbook ...

老师，sum(.Range(j6:j30))     每一句加上小圆点后运行出对话框:编译错误     无效或不合格的引用,请老师再帮我查查代码

ulcy

tigerliu007 发表于 2016-2-13 23:14
ActiveWorkbook.Sheets("人力1").Range("j31") = WorksheetFunction.Sum(Range("j6:j30"))
如果被计算的 ...

谢谢老师,每句前加上Sheets("人力1").Select     Sheets("人机配合1").Select    Sheets("人机配合2").Select后,人力1小计j31 K31；人机配合1及人机配合2小计i31  k31   l31的数据都对了,谢谢老师们!!!!!