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

WYS67 · 发表于 2018-10-13 17:28

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

这个不是区域数组公式，是普通公式输入格式吧？

lss001 · 发表于 2018-10-13 17:44

本帖最后由 lss001 于 2018-10-14 09:29 编辑

上楼代码为普通公式！

WYS67 · 发表于 2018-10-13 18:51

lss001 发表于 2018-10-13 17:44
附件中代码是第一次写的，并不是别人改的，
应以最后为准，并不是不允许别人改代码！
如果速度能提高，运 ...

非常钦佩老师的高风亮节！

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

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

老师：您28楼写的代码，当数据源所在列为I列时，P5:Q9的计算结果都正确；当数据源所在列为K列时，Q14:Q18求行号间隔的计算结果正确；但P14:P18求E列序号间隔的计算结果错误，正确的结果在R14:R18.

无论数据源在那一列【I列或K列或其他任意列】，都是用K1的数字，减去指定数据【O列】最后一次出现在该数据源列对应于序号E列同行的数字。请老师照此修改代码。

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

WYS67 · 发表于 2018-10-14 01:47

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

lss001 发表于 2018-10-13 17:44
附件中代码是第一次写的，并不是别人改的，
应以最后为准，并不是不允许别人改代码！
如果速度能提高，运 ...

34楼附件里不同列标的求序号间隔的公式如下：

I列当前序号间隔的函数公式：P5 { =$K$1-INDIRECT("E"&MATCH(1,0/($I$1:$I$100000&""=$O5&""))) ，下拉至P9;

L列当前序号间隔的函数公式：P14 { =$K$1-INDIRECT("E"&MATCH(1,0/($K$1:$K$100000&""=$O14&"")))
附件R5:R9是I列数据的当前序号间隔，R14:R18是K列数据的当前序号间隔。

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

WYS67 · 发表于 2018-10-14 08:32

lss001 发表于 2018-10-13 17:44
附件中代码是第一次写的，并不是别人改的，
应以最后为准，并不是不允许别人改代码！
如果速度能提高，运 ...

老师：麻烦您看一下34、35楼的公式。据此修改求当前序号间隔的代码。

WYS67 · 发表于 2018-10-14 09:05

lss001 发表于 2018-10-13 17:44
附件中代码是第一次写的，并不是别人改的，
应以最后为准，并不是不允许别人改代码！
如果速度能提高，运 ...

老师：1.求序号当前间隔时，数据源在哪个工作表里，就必须用那个工作表E列的序号。如：  在本工作表里I列当前序号间隔的函数公式：P5    { =$K$1-INDIRECT("E"&MATCH(1,0/($I$1:$I$100000&""=$O5&"")))  ，下拉至P9;

如果需要在本表里计算《总表》I列的当前序号间隔，则上面的公式必须变为：
P5    { =$K$1-INDIRECT("总表!E"&MATCH(1,0/(总表!$I$1:$I$100000&""=$O5&"")))  ，下拉至P9;

  2.如果是在本工作表里求K列当前序号间隔的函数公式：P14    { =$K$1-INDIRECT("E"&MATCH(1,0/($K$1:$K$100000&""=$O5&"")))  ，下拉至P9;
但如果需要在本表里计算《总表》K列的当前序号间隔，则上面的公式必须变为：
P14    { =$K$1-INDIRECT("总表!E"&MATCH(1,0/(总表!$K$1:$K$100000&""=$O5&"")))  ，下拉至P9;

只有这样，才能得出始终正确的计算结果。

需要计算哪个工作表里任意列的当前序号间隔，就必须同步调用相应工作表里的E列序号才能得出正确结果！

lss001 · 发表于 2018-10-14 09:17

本帖最后由 lss001 于 2018-10-14 09:31 编辑

楼上已经更正代码！

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

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

已测试。这次完全正确！谢谢老师！

WYS67 · 发表于 2018-10-14 11:26

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

老师：有空看看http://club.excelhome.net/thread-1440305-1-1.html ，参照8楼山菊花总版主写的过程，修改成自定义函数【使用方便】。

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

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

评分

评分