VBA 再请教…古怪的排名函数?

On_fire · 发表于 2024-1-8 18:21

VBA 再请教…古怪的排名函数?

*

上次的发的帖如下,

因实际用法, 还没完全解决...只能再发请求…

*

Sheet1是源数据,

比如,

只用E列的数据/值( 注: 那列, 或多少行数是变量 )

同时, 输出古怪排名的结果到同行H列

( 注: 升及降序的自定义函数, 两个都需要 )

*

这两个自定义函数要怎么写?

及如何用?

请大神, 老师再帮帮忙...谢谢...!!!

chxw68 · 发表于 2024-1-8 19:40

函数名为paixu(byval rng as range,byval lx as byte)，第二个参数决定排序顺序，1为降序，其他为升序。

yjh_27 · 发表于 2024-1-8 19:43

复制代码

选中单元格H2:H11，输入自定义数组函数，三键结束

On_fire · 发表于 2024-1-8 19:59

chxw68 发表于 2024-1-8 19:40
函数名为paixu(byval rng as range,byval lx as byte)，第二个参数决定排序顺序，1为降序，其他为升序。

褚老师,
新年好, 感谢您…
但你这个降序的结果, 跟模拟(Sheet1(3))的不一样?

On_fire · 发表于 2024-1-8 20:02

yjh_27 发表于 2024-1-8 19:43
选中单元格H2:H11，输入自定义数组函数，三键结束

原来是这样用, 再次感谢老师…

请问, 如果是ARR数组的调用及输出呢?

yjh_27 · 发表于 2024-1-8 20:05

本帖最后由 yjh_27 于 2024-1-8 20:08 编辑

On_fire 发表于 2024-1-8 20:02
原来是这样用, 再次感谢老师…

请问, 如果是ARR数组的调用及输出呢?

复制代码

复制代码

chxw68 · 发表于 2024-1-8 20:08

修改好了。

yynrzwh · 发表于 2024-1-8 20:41

special rank2.rar (18.12 KB, 下载次数: 1)

On_fire · 发表于 2024-1-8 22:18

yynrzwh 发表于 2024-1-8 20:41

谢谢老师,
但模拟的结果, 才正确...

On_fire · 发表于 2024-1-8 22:22

chxw68 发表于 2024-1-8 20:08
修改好了。

褚老师,
请看截图,
如果数据有变, 结果还是有点不对...

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

[求助] VBA 再请教…古怪的排名函数?