24小时热门版块排行榜    

查看: 980  |  回复: 2

a5506257

铁虫 (初入文坛)

[求助] 求助Excel表格中几个不同表格数据之间的加和问题已有1人参与

我们有一个表格,是每天都要做的里面,每天都要补充一张新表格,其中有两项是每日的累计领用,和累计消耗需要累计加和,不知道有什么养的公式可以用???表格为附件的表格,求指导
回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈:小木虫仅提供交流平台,不对该内容负责。
    本内容由用户自主发布,如果其内容涉及到知识产权问题,其责任在于用户本人,如对版权有异议,请联系邮箱:xiaomuchong@tal.com
  • 附件 1 : 新建_Microsoft_Office_Excel_97-2003_工作表.xls
  • 2014-02-27 12:39:46, 19 K

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yumoym

至尊木虫 (文坛精英)

【答案】应助回帖

感谢参与,应助指数 +1
一般函数难做,用VBA做了下.
只要填入每个表每天的本日领用和本日消耗,且各表次序为日期升序即可一次得出所有表中结果.
运行方法,在工具>宏 中找到subt并运行.
2楼2014-02-27 22:08:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yumoym

至尊木虫 (文坛精英)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★
a5506257: 金币+10, ★★★很有帮助 2014-02-28 01:06:59
怎么传文件呢?把代码发给你,新建一个宏,命名为"subt",复制这段代码中间部分到代码窗口,再运行即可.
Sub subt()
For i = 1 To ThisWorkbook.Worksheets.Count
  For k = 2 To 13
  s = 0: t = 0
  For j = 1 To i
    s = s + Sheets(j).Cells(k, 4)
    t = t + Sheets(j).Cells(k, 6)
  Next j
  Sheets(i).Cells(k, 5) = s
  Sheets(i).Cells(k, 7) = t
  Next k
Next i
End Sub
3楼2014-02-27 22:13:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 a5506257 的主题更新
信息提示
请填处理意见