怎麼用函數求出第三大的數 ?

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 126
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-6-2

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2010-7-6 21:06 | 顯示全部帖子

dictionary物件要使用add方法可配合exists先檢查是否索引值已經存在
個人並不贊同使用on error陳述式來避開錯誤
只有在不確定錯誤產生狀況才使用on error resume next

Function maxk(rng As Range, k As Integer)
Set d = CreateObject("scripting.dictionary")
Dim rngg As Range
For Each rngg In rng
If d.exists(rngg.Value) = False Then d(rngg.Value) = ""
Next
maxk = Application.WorksheetFunction.Large(d.keys, k)
End Function

複製代碼

學海無涯_不恥下問

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 126
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-6-2

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

3^#

發表於 2010-7-6 23:06 | 顯示全部帖子

回復 12# gong

若C欄中的數值很大時如超過65536
恐怕就無法使用此法了

學海無涯_不恥下問

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 126
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-6-2

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2010-7-7 14:19 | 顯示全部帖子

回復 16# zz5151353

拍手叫好.gif

原來FREQUENCY的bins_array是不需要連續數值及單一性
這函數很少去用他值得研究看看

學海無涯_不恥下問

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 126
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-6-2

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2010-11-20 14:04 | 顯示全部帖子

回復 24# Luc

討論不重複清單

學海無涯_不恥下問