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

lss001

tylsj740320 发表于 2018-9-23 22:49
For k = UBound(ar) To 1 Step -1
         If ar(k, 1)  "" Then Exit For
     Next

最大非空！！！

WYS67

lss001 发表于 2018-9-23 22:08
Function DTJCX(aa As Range, a, ab As Range, b, ac As Range)
Application.Volatile
Dim ar, br, c ...

老师：公式很好！是针对附件I17:I18的要求编写的代码，在E5:E27输入数组公式  {  =DTJCX($A$5:$A$100000,$E$2,$B$5:$B$100000,E$4,$D5:$D27)，右拉至F5:F27，即可得出如E5:F27的计算结果。

能不能在您写的代码里。增加一个功能，就是I15:I16里要求的：在E5输入公式    =DTJCX($A$5:$A$100000,$E$2,$B$5:$B$100000,E$4,$D5)，右拉至F5，下拖至E27:F27，也能够得出如E5:F27的计算结果。这样可以按照指定次序单独查询。平时用到的机会也很多

   就是：当公式的第五参数【查询对象】不是区域而是指定单元格调用时，可以执行单个指定次序的查询！

lss001

还是用数组公式为妥

WYS67

lss001 发表于 2018-9-24 09:19
还是用数组公式为妥

老师：如果需要单个指定次序数据的查询呢？
请看G列的计算结果：我在G5里输入普通公式 =DTJCX($A$5:$A$100000,$E$2,$B$5:$B$100000,G$4,$D5:$D$27)，也可以得出正确的单个查询结果，但公式下拖到G17，显示的计算结果变成了空白；公式下拖到G27，显示#VALUE!错误。

  如果当输入公式【普通、数组都行】=DTJCX($A$5:$A$100000,$E$2,$B$5:$B$100000,G$4,$D5)时，下拖后，能够逐个显示G列的正确结果，无形中大大扩展了DTJCX的查询功能。

lss001

→_→→_→

WYS67

lss001 发表于 2018-9-24 09:57
功能扩展！但慎用单值公式！

Function DTJCX(aa As Range, a, ab As Range, b, ac As Range)

单值公式只是在需要针对个别数据查询时才会用到，如果是整列引用，自然还是区域数组公式公式方便快捷！

WYS67

lss001 发表于 2018-9-24 09:57
功能扩展！但慎用单值公式！

Function DTJCX(aa As Range, a, ab As Range, b, ac As Range)

另外，G列的公式  =DTJCX($A$5:$A$100000,$E$2,$B$5:$B$100000,G$4,$D5)  是普通公式快，还是数组公式快？

  感觉代码运行起来不是特别顺畅，E5:G27，也就几十个计算结果，有点卡卡的。

WYS67

lss001 发表于 2018-9-24 09:57
功能扩展！但慎用单值公式！

Function DTJCX(aa As Range, a, ab As Range, b, ac As Range)

还有：当指定条件查询的数字不足区域行数时【如指定条件为6时，B列的数据区域总共只有17个数据，导致E22:G27全部显示为0】，E22:G27应该显示为空白才对。

lss001

=DTJCX($A$5:$A$100000,$E$2,$B$5:$B$100000,G$4,$D5)
是普通公式→单值用
=DTJCX($A$5:$A$100000,$E$2,$B$5:$B$100000,G$4,$D5:$D27)
是数组公式→多值用

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,$ ...

嗯，18楼附件里我就是这么用的。

老师：你看怎样把查询不到有效数据的结果显示区域【如E22:G27】，屏蔽为空白？