ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 2728|回复: 17

[求助] 工作表求和

[复制链接]

TA的精华主题

TA的得分主题

发表于 2012-12-23 18:58 | 显示全部楼层 |阅读模式
欲求当前工作表之前的工作表固定单元格的和,每天新建固定格式工作表,新建工作表依次命名为26,27...31,1...25,如在工作表”2“G17单元格求从”26“到”1“工作表中G15的和。已定义名称"标签“=RIGHT(CELL(“filename”,A1),LEN(CELL(“filename”,A1))-FIND("]",(CELL(“filename”,A1))),用类似SUM('26:INDIRECT("标签”)'!G15)格式能实现吗。急求!在线等!

TA的精华主题

TA的得分主题

发表于 2012-12-24 19:21 | 显示全部楼层
sum是可以的,但定义名称的方法错了.另外,既然工作表数组都求了,是否可以不用再用三维引用呢?
定义名称:
xsh=MID(SUBSTITUTE(GET.WORKBOOK(1),"]",REPT(" ",20)),20,40)
然后用数组公式:
=SUM(TRANSPOSE(INDIRECT(TRIM(xx)&"!G15")))

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-12-25 11:12 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-12-25 15:26 | 显示全部楼层
本帖最后由 龙套 于 2012-12-25 15:28 编辑

终于搞明白点了,太感谢了,好牛的思路啊

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-12-25 16:00 | 显示全部楼层
函数貌似明白意思了,可是出现引用错误#ref,trim名称也得不到工作表名称,怎么回事

TA的精华主题

TA的得分主题

发表于 2012-12-25 16:40 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
可以尝试跟踪xsh,看是否有结果.
必须要有文件名啊.否则就错.

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-12-25 18:49 | 显示全部楼层
各位大侠,看下

12月 - 副本.rar

35.85 KB, 下载次数: 8

TA的精华主题

TA的得分主题

发表于 2012-12-26 11:53 | 显示全部楼层
1.你定义名称公式输入有误,rept,被你输错了,可能还有其它.可以直接复制我给的公式.
2.你工作表公式有误,在"标签"外侧,不要加引号.
3.最后是数组公式.

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-12-26 17:41 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
现在OK了,不过新问题来了,我想求从第一个工作表到当前工作表的g15的和,现在的公式得到的是全部工作表的和,想要在当前单元格得到之前工作表的和,用哪个函数可以实现,加if能行吗

TA的精华主题

TA的得分主题

发表于 2012-12-26 20:13 | 显示全部楼层
  1. Option Explicit
  2. Function z()
  3.     Dim sh As Worksheet
  4.     Dim s As Worksheet
  5.     Set sh = Application.Caller.Parent
  6.     Application.Volatile
  7.     For Each s In sh.Parent.Sheets
  8.         If s.Name = sh.Name Then Exit Function
  9.         z = z + s.Range(Application.Caller.Address).Value
  10.     Next
  11. End Function
复制代码
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-24 15:22 , Processed in 0.045574 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表