创建求当前间隔的自定义函数

WYS67 · 发表于 2018-10-14 12:45

本帖最后由 WYS67 于 2018-10-14 14:01 编辑

lss001 发表于 2018-10-13 17:44
上楼代码为普通公式！

感觉还是自定义函数用起来方便。过程就像新科技产品，功能很全，就是驾驶员手生，老出现这样那样的问题，还不知道怎样解决？比如您前两天写的《按J1指定更新》的代码，用了几天都没有问题，运算速度也很快！刚才，我把这两天的快三彩号数据更新一下，在《00 总表》的I列添加了这两天的数据，点击按钮后出现下面错误：

换了几个，都是一样的问题--编译错误，标签未定义--头都大了！

WYS67 · 发表于 2018-10-14 14:33

lss001 发表于 2018-10-13 17:44
上楼代码为普通公式！

老师：http://club.excelhome.net/forum. ... 843&pid=9687178 41楼的错误怎么解决？

lss001 · 发表于 2018-10-14 14:51

WYS67 发表于 2018-10-14 12:45
感觉还是自定义函数用起来方便。过程就像新科技产品，功能很全，就是驾驶员手生，老出现这样那样的问题， ...

上次去掉→t:←有误

把最后一个Next
改为→t: Next

WYS67 · 发表于 2018-10-14 15:00

lss001 发表于 2018-10-14 14:51
上次去掉→t:←有误

把最后一个Next

谢谢！还真是因为它！加上后又能更新了！

WYS67 · 发表于 2018-10-16 19:34

本帖最后由 WYS67 于 2018-10-16 20:05 编辑

--------

WYS67 · 发表于 2018-11-14 15:08

本帖最后由 WYS67 于 2018-11-14 15:42 编辑

lss001 发表于 2018-10-13 16:53
Function DQYL(qu As Range, tq As Range, Optional tj = "")
Set x = qu.Worksheet.Rows("4:4").Find ...

老师：28楼自定义函数的代码有点问题--如《按J1指定更新不同工作簿内的分表》中，【00 总表】的J1指定为3，当点击K2处的“更新分表”后，【1 组三】的AE5:AE34和AP5:AP34都是自定义函数（AE列是DPBCF,AP列是DQYL），为什么AE列的DPBCF能够显示正确的计算结果，而AP列的当前遗漏却显示#VALUE!错误？必须要在AE5的公式后面点击“确定”后，才会显示正确结果？

按JI指定更新不同工作簿内的分表 lss001.zip (1.58 MB, 下载次数: 3)

当前遗漏.zip (21.36 KB, 下载次数: 2)

恳请老师看一下问题出现在DQYL代码的哪个地方了？

请看视频演示：

Video_20181114154102.zip (1.34 MB, 下载次数: 1)

WYS67 · 发表于 2018-11-14 15:46

lss001 发表于 2018-10-13 16:53
Function DQYL(qu As Range, tq As Range, Optional tj = "")
Set x = qu.Worksheet.Rows("4:4").Find ...

请看46楼【1 组三】里AP列的视频演示：

Video_20181114154102.zip (1.34 MB, 下载次数: 0)

lss001 · 发表于 2018-11-14 15:58

WYS67 发表于 2018-11-14 15:08
老师：28楼自定义函数的代码有点问题--如《按J1指定更新不同工作簿内的分表》中，【00 总表】的J1指 ...

这是因为DQYL函数不是易失性函数！
既然要实时更新只须声明为易失性函数即可!
方法:在DQYL函数中(一般第二行)加入
→Application.Volatile

WYS67 · 发表于 2018-11-14 16:19

lss001 发表于 2018-11-14 15:58
这是因为DQYL函数不是易失性函数！
既然要实时更新只须声明为易失性函数即可!
方法:在DQYL函数中(一般 ...

还真是这个问题引发的！在第二行加上 Application.Volatile 后，问题已圆满解决！谢谢老师了！

WYS67 · 发表于 2020-4-8 23:48

lss001 发表于 2018-10-13 16:53
Function DQYL(qu As Range, tq As Range, Optional tj = "")
Set x = qu.Worksheet.Rows("4:4").Find ...

32 当前遗漏及分区公式.zip (116.73 KB, 下载次数: 0)

老师：《当前遗漏举例》的P:Q列是用您28楼自定义函数输入的公式，计算结果完全正确！只是第二参数【指定数据】只能输入单值，遇到类似N5:N60那样，指定条件为多值的情况，只能通过输入普通公式下拉来完成，如果指定条件很多时，运算速度就会降低很多！

能不能在全盘保留原代码计算功能的基础上，当需要计算的条件数据很多时，增加第二参数可以为指定条件区域，输入为区域数组公式，如选定P5:P60，输入区域数组公式 { =DQYL($I$5:$I$10252,$N5:$N60)；选定Q5:Q60，输入区域数组公式 { =DQYL($I$5:$I$10252,$N5:$N60,1001)，即可显示如P5:Q60的计算结果。这样可以大大提高公式计算速度!

附：原代码如下--

Function DQYL(qu As Range, tq As Range, Optional tj = "")
Application.Volatile
Set x = qu.Worksheet.Rows("4:4").Find(What:="序号", LookAt:=xlPart)
br = Range(qu.Worksheet.Cells(5, x.Column), qu.Worksheet.Cells(qu.Count + 4, x.Column))
ar = qu
For k = UBound(ar) To 1 Step -1
      If ar(k, 1) <> "" Then Exit For
Next
For i = k To 1 Step -1
      t = t + 1
      If tj = "" Then DQYL = t Else DQYL = tj - br(i, 1)
      If ar(i, 1) = CLng(tq) Then Exit For
Next
End Function

麻烦老师让第二参数指定为单值时，仍然执行上面代码的计算功能；指定为条件区域【即多值计算】时，采取区域数组公式输入方式。

		自动登录	找回密码
密码			免费注册

[求助] 创建求当前间隔的自定义函数

评分