作者：绿色风
分类：
时间：2022-08-18
浏览：129
楼主
mxqchina |
最近发现有不少e友，有此需求，写一个vba共享一下。简单，勿怪。当然利用宏表函数get.cell(7,a1)的形式也可以解决。
=hbsum(A1:A42,A1)
蓝色为自定义的函数名称，红色为需要统计的整个货币金额区域，绿色为代表需要统计某币种的单元格
- Function hbsum(rngCELL As Range, rng2 As Range)
- Dim rng1 As Range
- For Each rng1 In rngCELL
- If rng1.NumberFormatLocal = rng2.NumberFormatLocal Then
- hbsum = hbsum + rng1
- End If
- Next
- End Function
但最终还有个问题没有解决，发现不管是上面的vba方法还是宏表函数，都是取得单元格的所有单元格格式，即正负零的格式，但无法取得单元格正在使用的格式。即：
_ ￥* #,##0.00_ ;_ $* -#,##0.00_ ;_ ￥* "-"??_ ;_ @_ 类似这种格式，正数是人民币，负数是美元。
 按货币符号统计金额.zip
|
2楼
rongjun |
学习了！
 |
3楼
bluexuemei |
学习,不错的方法! |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一