求三个数的大小位序

buciyuan

hcm19522 发表于 2022-12-6 14:43
{=SUM(IF(A1:C1=MAX(A1:C1),3,IF(A1:C1=MIN(A1:C1),1,2))*10^{2,1,0})

强，*10^{2,1,0} 这一句怎么理解呢

buciyuan

陆离Lowry 发表于 2022-12-6 13:29

超强，如果不用数组函数，而是用自定义函数来实现呢，希望指点一下，谢谢

grf1973

buciyuan 发表于 2022-12-6 14:47
（25，13，31） 程序输出=223，应该是213

是213，没错的

tanglf188

函数就能搞定了，非要VBA的话就插入函数就行了
=RANK(A1,A1:C1)&RANK(B1,A1:C1)&RANK(C1,A1:C1)

buciyuan

tanglf188 发表于 2022-12-6 15:24
函数就能搞定了，非要VBA的话就插入函数就行了
=RANK(A1,A1:C1)&RANK(B1,A1:C1)&RANK(C1,A1:C1)

简明易懂，佩服！感谢提供帮助！

陆离Lowry

buciyuan 发表于 2022-12-6 14:58
超强，如果不用数组函数，而是用自定义函数来实现呢，希望指点一下，谢谢

非要用VBA？

buciyuan

Function pw(a, b, c)
Dim x, y, z
Dim rng()
rng = Array(a, b, c)
   x = Application.WorksheetFunction.Rank(a, rng)
   y = Application.WorksheetFunction.Rank(b, rng)
   z = Application.WorksheetFunction.Rank(c, rng)
pw = x & y & z
End Function  
rank()的第二个参数没有处理好，请各位大神批评指正

buciyuan

Function pw(a, b, c)
Dim x, y, z
Dim rng As Variant
rng = Array(a, b, c)
x = Application.WorksheetFunction.Rank(a, rng, 1)
y = Application.WorksheetFunction.Rank(b, rng, 1)
z = Application.WorksheetFunction.Rank(c, rng, 1)
pw = x & y & z
End Function

rank函数的第二个参数没有处理好，请各位大神批评指正！

buciyuan

陆离Lowry 发表于 2022-12-6 15:42
非要用VBA？

Function pw(a, b, c)
Dim x, y, z
Dim rng As Variant
rng = Array(a, b, c)
x = Application.WorksheetFunction.Rank(a, rng, 1)
y = Application.WorksheetFunction.Rank(b, rng, 1)
z = Application.WorksheetFunction.Rank(c, rng, 1)
pw = x & y & z
End Function
rank函数的第二个参数没有处理好，请批评指正，谢谢！

ykcbf1100

论坛中公式达人还是很多啊。
我自从迷上VBA，公式就慢慢忘记了。