Excel精英培训网

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

[已解决]多条件求和的自定义函数(我的代码有误),望高手指点

[复制链接]
发表于 2016-3-17 14:46 | 显示全部楼层 |阅读模式
本帖最后由 蝶·舞 于 2016-3-17 18:32 编辑

工作中用到多条件求和,但版本又不是高版本,所以想自编一个函数,但我编的函数返回错误值
多条件求和.zip (7.5 KB, 下载次数: 30)
发表于 2016-3-17 15:23 | 显示全部楼层    本楼为最佳答案   
这种错误以前遇到过,貌似在自定义函数里不能用Currentregion来定义数组。
  1. Function fs(b, d)
  2.     Application.Volatile
  3.     arr = Sheet1.Range("A1:C" & Sheet1.[a65536].End(3).Row)
  4.     For r = 2 To UBound(arr)
  5.         If arr(r, 1) = b And arr(r, 2) < d Then z = z + arr(r, 3)
  6.     Next
  7.     fs = z
  8. End Function
复制代码
回复

使用道具 举报

 楼主| 发表于 2016-3-17 18:32 | 显示全部楼层
grf1973 发表于 2016-3-17 15:23
这种错误以前遇到过,貌似在自定义函数里不能用Currentregion来定义数组。

居然还有这个坑,多谢了
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 15:16 , Processed in 0.544278 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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