作者：绿色风
分类：
时间：2022-08-17
浏览：115
楼主
xyf2210 |
Q:编写什么样VBA才能实现如下数组公式的功能？？？
- ={SUM(('1'!$R$7:$R$15000=TODAY())*('1'!$I$7:$I$15000="A")*('1'!$F$7:$F$15000))+SUM(('1'!$R$7:$R$15000=TODAY())*('1'!$I$7:$I$15000="A")*('1'!$L$7:$L$15000="定金")*('1'!$K$7:$K$15000))+SUM(('1'!$R$7:$R$15000=TODAY())*('1'!$I$7:$I$15000="A")*('1'!$L$7:$L$15000="减款")*('1'!$K$7:$K$15000))}
A:- Function qiuhe(rng As Range)
- Dim arr, d As Object, i
- Set d = CreateObject("Scripting.Dictionary")
- arr = Range("A7:S15000")
- For i = 1 To UBound(arr)
- If arr(i, 8) = 1 And arr(i, 9) = rng And arr(i, 18) = Date Then
- d(rng.Value) = d(rng.Value) + arr(i, 6) + arr(i, 11)
- End If
- Next
- qiuhe = d(rng.Value)
-
- Erase arr
- Set d = Nothing
- End Function
 自定义函数.rar
|
2楼
绿篱 |
 好东西 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一