[已解决]难题问了几个人无解,自定义格式的金额分类汇总的自定义函数

jinru

请做个自定义格式的金额,进行分类汇总的自定义函数
谢谢!!,最好有注释

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2012-1-11 16:58

1. Function 汇总(rng As Range, str1 As Range, str2 As Range) '汇总(汇总区域,汇总币种,汇总部门)
   
2. '定义变量
   
3.     Dim i As Long, arr
   
4.     Dim s As String, n As Double, s As String
   
5.     arr = rng '把汇总单元格区域赋值给数组
   
6.     For i = 1 To UBound(arr) '循环汇总
   
7.         s = rng(i, 2).Text '单元格的显示值赋值给s
   
8.         s = Mid(s, 2, Len(str1)) '获取汇总区域货币种类
   
9.         If s = str1 And arr(i, 1) = str2 Then '当条件打到时进行汇总
   
10.             n = n + arr(i, 2) '汇总计算
    
11.         End If
    
12.     Next i
    
13.     汇总 = n '将汇总值赋值给函数
    
14. End Function
    

复制代码

附件： Book1-sunjing-zxl.rar (8.81 KB, 下载次数: 21)

2012-1-11 17:00 上传

点击文件名下载附件

跳转到最佳答案楼层

sunjing-zxl

1. Function 汇总(rng As Range, str1 As Range, str2 As Range) '汇总(汇总区域,汇总币种,汇总部门)
   
2. '定义变量
   
3.     Dim i As Long, arr
   
4.     Dim s As String, n As Double, s As String
   
5.     arr = rng '把汇总单元格区域赋值给数组
   
6.     For i = 1 To UBound(arr) '循环汇总
   
7.         s = rng(i, 2).Text '单元格的显示值赋值给s
   
8.         s = Mid(s, 2, Len(str1)) '获取汇总区域货币种类
   
9.         If s = str1 And arr(i, 1) = str2 Then '当条件打到时进行汇总
   
10.             n = n + arr(i, 2) '汇总计算
    
11.         End If
    
12.     Next i
    
13.     汇总 = n '将汇总值赋值给函数
    
14. End Function
    

复制代码

附件： Book1-sunjing-zxl.rar (8.81 KB, 下载次数: 21)

2012-1-11 17:00 上传

点击文件名下载附件

jinru

谢谢sunjing-zxl
谢谢!!!!!

jinru

还有问题,请sunjing-zxl 解决,谢谢!!

sunjing-zxl

明天记得提醒我，今天刚刚喝完酒。要去睡觉了。

jinru

请sunjing-zxl 解决

sunjing-zxl

jinru 发表于 2012-1-13 15:58
请sunjing-zxl 解决

你为什么一样的东西要用两种不同自定义来设置，这样不是自己找麻烦吗？
你把后面添加的自定义设置成和前面一样就可以了