Office中国论坛/Access中国论坛

标题: 请高手老师帮我修改代码 [打印本页]

作者: ulcy 时间: 2016-2-13 19:47
标题: 请高手老师帮我修改代码
请老师帮我查查代码，哪里错了，得出31行里的小计数据有时对，有时不对，有时是0，请老师帮我修改代码

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

作者: roych 时间: 2016-2-16 14:24
本帖最后由 roych 于 2016-2-16 14:25 编辑

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 时间: 2016-2-17 19:45

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

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

作者: ulcy 时间: 2016-2-17 20:26

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的数据都对了,谢谢老师们!!!!!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)