按数值从大到小返回前一二三名对应序号的自定义函数

WYS67 · 发表于 2019-7-24 18:07

请在50楼原代码中合适的地方，添加一句判断---当数据源I:R列的任意一行全部为空或全部为0时，结果输出列的对应行显示为空白！

lsdongjh · 发表于 2019-7-25 09:33

自己再核对一下代码是否正确，加载宏的代码与我给的代码是否一致

WYS67 · 发表于 2019-7-25 10:17

lsdongjh 发表于 2019-7-25 09:33
自己再核对一下代码是否正确，加载宏的代码与我给的代码是否一致

老师：我刚才又把代码复制过去，重新作了加载宏，仍然如此--我觉得问题与XHCOUNTIF公式计算结果的显示格式有关。分开来看，XHCOUNTIF的代码本身没有问题，Q3PM的代码应用在其它地方也都能显示正确结果；但是当用Q3PM对XHCOUNTIF输出的计算结果进行排名时，就会发生这种现象【如下面截图的S623:S936显示的错误结果】

所以，我想在Q3PM代码合适的地方增加一个返回空白的判断语句--当数据区域的任意一行和值为0时，强制使Q3PM对应行的计算结果为空白。
由于Q3PM是按指定数据出现次数多少来排名的，当数据区域的任意一行和值为0时，代表各指定数据没有出现过一次，所以添加让其对应行的计算结果显示为空白的的运算规则，对任何情况下的排名统计都没有影响，还能彻底解决50楼附件里出现的问题。麻烦老师看看加在哪里最合适？

lsdongjh · 发表于 2019-7-25 10:37

有没有看我在46楼修改的内容？

HK2454874452 · 发表于 2019-7-25 10:45

留下脚印，看高手过招

WYS67 · 发表于 2019-7-25 10:47

lsdongjh 发表于 2019-7-25 10:37
有没有看我在46楼修改的内容？

老师我当时就看过了，并且已在47楼的N列还反馈了您46楼代码出错的对比结果。

我现在的想法是就50楼里的原代码，不需要修改运算规则，只需在合适的地方增加一个返回空白的判断语句--当数据区域的任意一行和值为0时，强制使Q3PM对应行的计算结果为空白。

这样既简单，还能一劳永逸地解决问题。您看怎么样？

lsdongjh · 发表于 2019-7-25 10:54

46楼代码的核心是：
'找到数据区域最后一行
lngEndRow = rgData.Find("*", SearchOrder:=xlByRows, LookIn:=xlValues, SearchDirection:=xlPrevious).Row - rgData.Row + 1

WYS67 · 发表于 2019-7-25 11:12

本帖最后由 WYS67 于 2019-7-25 11:17 编辑

lsdongjh 发表于 2019-7-25 10:54
46楼代码的核心是：
'找到数据区域最后一行
lngEndRow = rgData.Find("*", SearchOrder:=xlByRow ...

前三排名 (2).zip (693.58 KB, 下载次数: 0)

老师请看，用了46楼的代码M列显示的输出结果有许多错误，N列才是正确答案--仅仅M5:M49，就有错误十次多。

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

[求助] 按数值从大到小返回前一二三名对应序号的自定义函数

评分

最新热点 /1