Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 5195|回复: 23

[已解决]极端难度求和哪一列隐藏了哪一列就不参与计算

[复制链接]
发表于 2014-5-13 19:50 | 显示全部楼层 |阅读模式
本帖最后由 张雄友 于 2014-5-13 22:00 编辑

极端难度求和哪一列隐藏了哪一列就不参与计算。
最佳答案
2014-5-13 20:42
本帖最后由 dsmch 于 2014-5-13 20:43 编辑
张雄友 发表于 2014-5-13 20:18
不行啊。
  1. Function pj(rng)
  2. Application.Volatile
  3. For Each cel In rng
  4. If cel.EntireColumn.Hidden = False Then
  5. s = s + cel.Value
  6. s2 = s2 + 1
  7. End If
  8. Next
  9. pj = Application.Round(s / s2, 2)
  10. End Function

  11. Function zdz(rng)
  12. Application.Volatile
  13. s = -10 ^ 8 '最小值
  14. For Each cel In rng
  15. If cel.EntireColumn.Hidden = False Then
  16. If cel.Value > s Then s = cel.Value
  17. End If
  18. Next
  19. zdz = s
  20. End Function
复制代码

极端难度求和哪一列隐藏了哪一列就不参与计算.rar

8.74 KB, 下载次数: 18

发表于 2014-5-13 20:06 | 显示全部楼层
自定义函数
  1. Function qh(rng)
  2. For Each cel In rng
  3.     s = s + IIf(cel.EntireColumn.Hidden = True, 0, cel.Value)
  4. Next
  5. qh = s
  6. End Function
复制代码

评分

参与人数 1 +3 收起 理由
张雄友 + 3 很给力!

查看全部评分

回复

使用道具 举报

发表于 2014-5-13 20:07 | 显示全部楼层
………………

极端难度求和哪一列隐藏了哪一列就不参与计算.zip

9.08 KB, 下载次数: 10

回复

使用道具 举报

 楼主| 发表于 2014-5-13 20:10 | 显示全部楼层
dsmch 发表于 2014-5-13 20:06
自定义函数

类推,如是求平均值呢?最大值呢?谢谢您。

点评

这个你应该可以类推出来  发表于 2014-5-13 20:11
回复

使用道具 举报

 楼主| 发表于 2014-5-13 20:18 | 显示全部楼层
不行啊。
回复

使用道具 举报

 楼主| 发表于 2014-5-13 20:22 | 显示全部楼层
dsmch 发表于 2014-5-13 20:06
自定义函数

平均?
  1. Function PJ(rng)
  2. For Each cel In rng
  3. s = s + IIf(cel.EntireColumn.Hidden = True, 0, WorksheetFunction.Average(cel.Value))
  4. Next
  5. PJ = s
  6. End Function
复制代码

点评

求和结果出来了,增加一个变量计数,两者相除就行了  发表于 2014-5-13 20:31
回复

使用道具 举报

 楼主| 发表于 2014-5-13 20:27 | 显示全部楼层
dsmch 发表于 2014-5-13 20:06
自定义函数

数据不会自动更新的,要按一下F2,重新填充才行。

点评

第一句代码加上 Application.Volatile  发表于 2014-5-13 20:30
回复

使用道具 举报

 楼主| 发表于 2014-5-13 20:32 | 显示全部楼层
这样?
  1. Function QH(rng)
  2. Application.Volatile
  3. For Each cel In rng
  4.     s = s + IIf(cel.EntireColumn.Hidden = True, 0, cel.Value)
  5. Next
  6. QH = s
  7. End Function
复制代码
回复

使用道具 举报

 楼主| 发表于 2014-5-13 20:33 | 显示全部楼层
这样的话要按一下F9才行的。
回复

使用道具 举报

 楼主| 发表于 2014-5-13 20:34 | 显示全部楼层
不懂啊?
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 16:30 , Processed in 0.503725 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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