分享一个自己写的函数，实现 sumifs 函数功能，同时实现 subtotal 不统计隐藏行功能

hgjian

1. 
   
2. Option Explicit
   
3. 
   
4. Function Sumifs_visible(qiuhehangshu_first As Long, qiuhe_liebiao As String, tiaojianquyu1 As Range, tj1 As String, _
   
5.                         Optional tiaojianquyu2 As Range, Optional tj2 As String, Optional tiaojianquyu3 As Range, Optional tj3 As String)
   
6. '可以用本代码实现 sumifs 函数功能，同时实现 subtotal 不统计隐藏行功能，最多限制条件为三个
   
7. 'qiuhehangshu_first 求和开始行数
   
8. 'qiuhe_liebiao 要求和的列，例如 A、B、C......列
   
9. 
   
10.       Dim quyushuzu1
    
11.       Dim quyushuzu2
    
12.       Dim quyushuzu3
    
13.       Dim xunhuan_hangshu
    
14.       Dim lieshu
    
15.       Dim qiuhe
    
16.    
    
17.       '求取列数
    
18.       If Len(UCase(qiuhe_liebiao)) = 1 Then lieshu = Asc(UCase(UCase(qiuhe_liebiao))) - 64 '确认 列表为 字母 A 到 Z
    
19.       
    
20.       If Len(UCase(qiuhe_liebiao)) = 2 Then   '确认 列表为 字母 AA 到 ZZ
    
21.              lieshu = (Asc(Mid(UCase(UCase(qiuhe_liebiao)), 1, 1)) - 64) * 26 + (Asc(Mid(UCase(UCase(qiuhe_liebiao)), 2, 1)) - 64) Mod 26 '确认 列表为 字母 AA 到 ZZ
    
22.              If Len(UCase(qiuhe_liebiao)) = 2 And ((Asc(Mid(UCase(UCase(qiuhe_liebiao)), 2, 1)) - 64) Mod 26) = 0 Then lieshu = (Asc(Mid(UCase(UCase(qiuhe_liebiao)), 1, 1)) - 64) * 26 + 26
    
23.       End If
    
24.       
    
25.       If Len(UCase(qiuhe_liebiao)) = 3 Then   '确认 列表为 字母 AAA 到 XFD
    
26.              lieshu = ((Asc(Mid(UCase(UCase(qiuhe_liebiao)), 1, 1)) - 65) Mod 26) * 676 + (((Asc(Mid(UCase(UCase(qiuhe_liebiao)), 2, 1)) - 64) Mod 26) + 26) * 26 + (Asc(Mid(UCase(UCase(qiuhe_liebiao)), 3, 1)) - 64) '确认 列表为 字母 AAA 到 XFD
    
27.              If Len(UCase(qiuhe_liebiao)) = 3 And ((Asc(Mid(UCase(UCase(qiuhe_liebiao)), 2, 1)) - 64) Mod 26) = 0 Then lieshu = ((Asc(Mid(UCase(UCase(qiuhe_liebiao)), 1, 1)) - 65) Mod 26) * 676 + (26 + 26) * 26 + (Asc(Mid(UCase(UCase(qiuhe_liebiao)), 3, 1)) - 64) '确认 列表为 字母 AAA 到 XFD
    
28.       End If
    
29. 
    
30.       '执行加总
    
31.       If tiaojianquyu2 Is Nothing Then
    
32.       
    
33.              quyushuzu1 = tiaojianquyu1
    
34.             
    
35.              For xunhuan_hangshu = 1 To UBound(quyushuzu1)
    
36.               
    
37.                    If tj1 = "<>" And quyushuzu1(xunhuan_hangshu, 1) <> "" Then quyushuzu1(xunhuan_hangshu, 1) = "<>" '防止统计不为 空值的时候出错，将 非空值单元格全部替换为  "<>"
    
38.             
    
39.                    If quyushuzu1(xunhuan_hangshu, 1) = tj1 And Cells(qiuhehangshu_first + xunhuan_hangshu - 1, lieshu).EntireRow.Hidden = False Then
    
40.                              qiuhe = qiuhe + Cells(qiuhehangshu_first + xunhuan_hangshu - 1, lieshu)
    
41.                    Else
    
42.                              qiuhe = qiuhe + 0       '如果单元格所在的行已经隐藏，则不加总数字，将其作为 数字 0 加总执行一次循环
    
43.                    End If
    
44.                   
    
45.              Next xunhuan_hangshu
    
46.             
    
47.       ElseIf tiaojianquyu3 Is Nothing Then
    
48.       
    
49.             quyushuzu1 = tiaojianquyu1
    
50.             quyushuzu2 = tiaojianquyu2
    
51.      
    
52.              For xunhuan_hangshu = 1 To UBound(quyushuzu1)
    
53.             
    
54.                    If tj1 = "<>" And quyushuzu1(xunhuan_hangshu, 1) <> "" Then quyushuzu1(xunhuan_hangshu, 1) = "<>"
    
55.                    If tj2 = "<>" And quyushuzu2(xunhuan_hangshu, 1) <> "" Then quyushuzu2(xunhuan_hangshu, 1) = "<>"
    
56.             
    
57.                    If quyushuzu1(xunhuan_hangshu, 1) = tj1 And quyushuzu2(xunhuan_hangshu, 1) = tj2 And _
    
58.                    Cells(qiuhehangshu_first + xunhuan_hangshu - 1, lieshu).EntireRow.Hidden = False Then
    
59.                              qiuhe = qiuhe + Cells(qiuhehangshu_first + xunhuan_hangshu - 1, lieshu)
    
60.                    Else
    
61.                              qiuhe = qiuhe + 0
    
62.                    End If
    
63.                   
    
64.              Next xunhuan_hangshu
    
65.             
    
66.       Else    '如果是多条件三个
    
67.       
    
68.             quyushuzu1 = tiaojianquyu1
    
69.             quyushuzu2 = tiaojianquyu2
    
70.             quyushuzu3 = tiaojianquyu3
    
71.       
    
72.              For xunhuan_hangshu = 1 To UBound(quyushuzu1)
    
73.             
    
74.                    If tj1 = "<>" And quyushuzu1(xunhuan_hangshu, 1) <> "" Then quyushuzu1(xunhuan_hangshu, 1) = "<>"
    
75.                    If tj2 = "<>" And quyushuzu2(xunhuan_hangshu, 1) <> "" Then quyushuzu2(xunhuan_hangshu, 1) = "<>"
    
76.                    If tj3 = "<>" And quyushuzu3(xunhuan_hangshu, 1) <> "" Then quyushuzu3(xunhuan_hangshu, 1) = "<>"
    
77.             
    
78.                    If quyushuzu1(xunhuan_hangshu, 1) = tj1 And quyushuzu2(xunhuan_hangshu, 1) = tj2 And quyushuzu3(xunhuan_hangshu, 1) = tj3 And _
    
79.                    Cells(qiuhehangshu_first + xunhuan_hangshu - 1, lieshu).EntireRow.Hidden = False Then
    
80.                              qiuhe = qiuhe + Cells(qiuhehangshu_first + xunhuan_hangshu - 1, lieshu)
    
81.                    Else
    
82.                              qiuhe = qiuhe + 0
    
83.                    End If
    
84.                   
    
85.              Next xunhuan_hangshu
    
86. 
    
87.       End If
    
88. 
    
89.       Sumifs_visible = qiuhe
    
90.               
    
91. End Function

复制代码

QCW911

高人啊，自己写函数

hgjian

QCW911 发表于 2016-2-4 09:44
高人啊，自己写函数

工作需要迫于无奈，边学边卖啊