创建 多条件查询的自定义函数

lss001

←_←←_←

WYS67

lss001 发表于 2018-9-24 11:50
代码没问题，请检查一下公式

老师：我说的是：当指定条件为“6”时，整个B列只有17个符合条件的数据：
12
7
4
10
16
8
1
6
4
21
13
20
13
2
9
32
4

如果要查询指定次序超过数据个数本身【17】的18或以上个数据，如指定次序为D22:D27，E22:E27不应该显示0，而是显示空白【代表没有的意思】。


    老师：请您把E2里的指定条件 5，换成 6，显示的计算结果就会和18楼里的附件一样，

lss001

Function DTJCX

WYS67

lss001 发表于 2018-9-24 12:17
把→If ac  "" Then f = dr(ac, 0) Else f = ""
改→If ac  "" And ac

老师：把下面红色填充的If ac <> "" Then f = dr(ac, 0) Else f = ""   修改成  If ac <> "" And ac <=n Then f = dr(ac, 0) Else f = ""  后，E22:G27中，只是G22:G27单值公式的计算结果变成了空白，但E22:F27区域公式仍然显示0，没有显示空白：
Function DTJCX(aa As Range, a, ab As Range, b, ac As Range)
Application.Volatile
Dim ar, br, cr, dr, fr, f, i&, j&, k&, m&, n&
    ar = aa: br = ab: cr = ac
    For k = UBound(ar) To 1 Step -1
        If ar(k, 1) <> "" Then Exit For
    Next
    ReDim dr(1 To k, 0): ReDim fr(1 To UBound(ar), 0)
    For i = 1 To k
        j = k - i + 1
        If b = 0 Then
            If ar(i, 1) <> "" And br(i, 1) <> "" And ar(i, 1) = a Then
                n = n + 1: dr(n, 0) = br(i, 1)
            End If
        Else
            If ar(j, 1) <> "" And br(j, 1) <> "" And ar(j, 1) = a Then
                n = n + 1: dr(n, 0) = br(j, 1)
            End If
        End If
    Next
    If ac.Rows.Count > 1 Then
    For i = 1 To UBound(ar)
        If i >= cr(1, 1) And i <= cr(UBound(cr), 1) - cr(1, 1) + 1 Then
            m = m + 1: fr(m, 0) = dr(i, 0)
        Else: fr(i, 0) = ""
        End If
    Next
        Else
          If ac <> "" Then f = dr(ac, 0) Else f = ""  
         
    End If
    If ac.Rows.Count > 1 Then DTJCX = fr Else DTJCX = f
End Function

lss001

WYS67 发表于 2018-9-24 12:32
老师：把下面红色填充的If ac  "" Then f = dr(ac, 0) Else f = ""   修改成  If ac  "" And ac  1 Then
...

请参考楼上修改代码！

WYS67

lss001 发表于 2018-9-24 13:54
请参考楼上修改代码！

老师：楼上的代码还是无法屏蔽E22:F27里的0为空白。
    就是：【当符合指定条件【6】的数据【总共17个】，少于指定次序的区域行数【D5:D27-表头4行=23个单元格】时，】，就会在E22:F27显示0，而不是空白。请看截图和附件：
：


创建一个多条件查询的自定义函数.zip (119.2 KB, 下载次数: 7)

2018-9-24 14:05 上传

点击文件名下载附件

lss001

WYS67 发表于 2018-9-24 14:05
老师：楼上的代码还是无法屏蔽E22:F27里的0为空白。请看截图和附件：
：

请重新复制，刚刚更新！

WYS67

lss001 发表于 2018-9-24 12:17
Function DTJCX(aa As Range, a, ab As Range, b, ac As Range)
Application.Volatile
Dim ar, br, cr, d ...

谢谢老师：这次完全正确了！

WYS67

lss001 发表于 2018-9-24 11:10
=DTJCX($A$5:$A$100000,$E$2,$B$5:$B$100000,G$4,$D5)
是普通公式→单值用
=DTJCX($A$5:$A$100000,$E$2,$ ...

老师：感觉http://club.excelhome.net/thread-1437728-1-1.html  里的问题，比起前几天的简单多了，为什么没有老师编写代码啊？

WYS67

lss001 发表于 2018-9-24 14:11
请重新复制，刚刚更新！

这一段时间里，老师真是帮了我很大的忙！真是感谢不尽！http://club.excelhome.net/thread-1438068-1-1.html里的问题，如果您有兴趣，可以移步前往，看看怎么写代码？