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

lss001

WYS67 发表于 2018-9-20 22:44
老师：K27:L31是用函数公式计算的正确的模拟结果。10楼新修改的代码计算结果和K27:L31对应不上。
   您 ...

参考上楼附件！

WYS67

lss001 发表于 2018-9-20 22:36
附件应该发原数据为妥
处理数据才比较准确！！！

老师：下边附件里黄色填充的是正确的模拟结果。
创建求指定数据当前间隔的自定义函数 .zip (19.03 KB, 下载次数: 0)

2018-9-20 23:03 上传

点击文件名下载附件

WYS67

lss001 发表于 2018-9-20 22:36
附件应该发原数据为妥
处理数据才比较准确！！！

老师：当前序号间隔正确的计算结果是K27:K31;
          当前行号间隔正确的计算结果是L27:L31.

  

玉阳山人

lss001 发表于 2018-9-20 23:01
参考上楼附件！

老师最后这次的代码很好！谢谢老师！

lss001

玉阳山人 发表于 2018-9-21 08:44
老师最后这次的代码很好！谢谢老师！

可以把多余的x=Cells(1, "K")去掉

WYS67

lss001 发表于 2018-9-21 08:51
可以把多余的x=Cells(1, "K")去掉

老师：大半天了，连个回复的都没有，只得再次求助于您看看http://club.excelhome.net/thread-1437310-1-1.html  怎么写代码？

WYS67

lss001 发表于 2018-9-21 08:51
可以把多余的x=Cells(1, "K")去掉

老师：下面是您写的当前间隔的自定义函数：
Function DQYL(qu As Range, tq As Range, Optional tj = "")
Application.Volatile
    ar = qu: br = Range("E5:E" & qu.Count + 4)
    For k = UBound(ar) To 1 Step -1
        If ar(k, 1) <> "" Then Exit For
    Next
    x = tq
    For i = k To 1 Step -1
        t = t + 1
        If tj = "" Then DQYL = t Else DQYL = tj - br(i, 1)
        If CLng(ar(i, 1)) = CLng(x) Then Exit For
    Next
    If i = 1 Then DQYL = ""
End Function


当E列的序号、I列的数据与公式在同一个工作表内时，计算结果非常正确。

但是当E列的序号和I列的数据区域都在《总表》里，公式 DQYL(总表!$I$5:$I$100000,$N11,$K$1)在《统计》内，虽然第一参数可以在前面加“总表!”，还必须得在代码里添加 总表!，变成ar = qu: br = Range("总表!E5:E" & qu.Count + 4)后，计算结果才能正确。

如此，每次计算DQYL，只要和数据区域不在同一工作表内，都得修改代码，否则就得不出正确结果。如此，这个自定义函数DQYL就没法加载宏，适用于所有工作簿。

有没有办法  默认E列序号始终和I列数据区域在同一工作表内？这样就不需要每次都添加代码里E5:E前面的工作表名称了！

   
         创建求指定数据当前间隔的自定义函数.zip (22.38 KB, 下载次数: 7)

2018-10-13 16:07 上传

点击文件名下载附件

lss001

Function DQYL(qu As Range, tq As Range, Optional tj = "")
    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

lss001

WYS67 发表于 2018-10-13 16:03
老师：下面是您写的当前间隔的自定义函数：
Function DQYL(qu As Range, tq As Range, Optional tj = "" ...

参照以上！

WYS67

lss001 发表于 2018-10-13 16:53
您这附件不是更新附件，应以上次最后更新附件为妥！！！
Function DQYL(qu As Range, tq As Range, Option ...

说实话，里面的代码是别人在您写的原代码基础上修改的，他说，可以提高运算速度。我也不懂，稀里糊涂就听了他的意见。实在对不住老师！在此向您赔礼了！