返回列表 上一主題 發帖

如何算出顯示第幾名並顯示第X名

show5217

帖子
39 
主題
15 
精華
0 
積分
69 
點名
0  
作業系統
Windows 7 
軟體版本
office 2016 
閱讀權限
20 
性別
男 
來自
新北市 
註冊時間
2018-11-23 
最後登錄
2020-2-26 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2018-12-13 20:17 | 顯示全部帖子

如何算出顯示第幾名並顯示第X名

未命名.jpg (179.81 KB)

未命名.jpg

收藏 分享
小武

show5217

帖子
39 
主題
15 
精華
0 
積分
69 
點名
0  
作業系統
Windows 7 
軟體版本
office 2016 
閱讀權限
20 
性別
男 
來自
新北市 
註冊時間
2018-11-23 
最後登錄
2020-2-26 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2018-12-13 20:18 | 顯示全部帖子
如何算出I欄是第幾名, 比如第一名會顯示  第一名而不是1
小武

TOP

show5217

帖子
39 
主題
15 
精華
0 
積分
69 
點名
0  
作業系統
Windows 7 
軟體版本
office 2016 
閱讀權限
20 
性別
男 
來自
新北市 
註冊時間
2018-11-23 
最後登錄
2020-2-26 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2018-12-14 06:53 | 顯示全部帖子
除了這個方法可以用函數代嗎

小武

TOP

show5217

帖子
39 
主題
15 
精華
0 
積分
69 
點名
0  
作業系統
Windows 7 
軟體版本
office 2016 
閱讀權限
20 
性別
男 
來自
新北市 
註冊時間
2018-11-23 
最後登錄
2020-2-26 

論壇榮譽勳章論壇贊助勳章
4#
發表於 2018-12-22 01:24 | 顯示全部帖子
回復 5# 准提部林

謝謝大大 我研究了一下用
Private Sub CommandButton1_Click()


Range("j2:j100").Clear

For I = 2 To 11

Cells(I, 10).Value = "=Rank(I" & I & " ,I$2:I$11" & "" & ")"

Next

End Sub


Private Sub CommandButton2_Click()
Dim Str As Variant
Dim X As Long, Y As Integer, Z As Integer
Dim NX As Long, NA As Integer

Str = "1=第一名 2=第二名 3=第三名"
Str = Split(Str)
NA = UBound(Str)

For Y = 2 To 11
NX = Cells(65536, Y).End(xlUp).Row
小武

TOP

show5217

帖子
39 
主題
15 
精華
0 
積分
69 
點名
0  
作業系統
Windows 7 
軟體版本
office 2016 
閱讀權限
20 
性別
男 
來自
新北市 
註冊時間
2018-11-23 
最後登錄
2020-2-26 

論壇榮譽勳章論壇贊助勳章
5#
發表於 2018-12-22 01:24 | 顯示全部帖子
回復 5# 准提部林

我參考用IF(COUNTIF(I$2:I$11,">"&I2)+1=1,"第一名",IF(COUNTIF(I$2:I$11,">"&I2)+1=2,"第二名",IF(COUNTIF(I$2:I$11,">"&I2)+1=3,"第三名",COUNTIF(I$2:I$11,">"&I2)+1)))   謝謝大大
小武

TOP

show5217

帖子
39 
主題
15 
精華
0 
積分
69 
點名
0  
作業系統
Windows 7 
軟體版本
office 2016 
閱讀權限
20 
性別
男 
來自
新北市 
註冊時間
2018-11-23 
最後登錄
2020-2-26 

論壇榮譽勳章論壇贊助勳章
6#
發表於 2018-12-22 01:25 | 顯示全部帖子
回復 4# p212

多學一招 謝謝
小武

TOP

        靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。
返回列表 上一主題