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

帖子: 75
主題: 19
精華: 0
積分: 135
點名: 0
作業系統: win7
軟體版本: 2007 010
閱讀權限: 20
註冊時間: 2010-5-18
最後登錄: 2013-10-26

2^#

發表於 2010-7-6 16:59 | 只看該作者

=large(范围,3)

学习

metrostar

帖子: 55
主題: 20
精華: 0
積分: 80
點名: 0
作業系統: winxp
軟體版本: officexp
閱讀權限: 20
性別: 女
註冊時間: 2010-7-5
最後登錄: 2013-8-25

3^#

發表於 2010-7-6 17:18 | 只看該作者

本帖最後由 metrostar 於 2010-7-6 17:19 編輯

多謝 wqfzqgk 帥哥學長

您的公式雖然能用

但不是學妹要的,求出的數據是 99 耶 (不對不對)

是要 97 那個數據才對
不管前面數據是否有重複 100,99,97,96
要找出第三那個才算

版主 Rank: 7 Rank: 7 Rank: 7

PD961A

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2010-7-6 17:45 | 只看該作者

回復 3# metrostar

找出第3大值.rar (2.12 KB)

帖子: 75
主題: 19
精華: 0
積分: 135
點名: 0
作業系統: win7
軟體版本: 2007 010
閱讀權限: 20
註冊時間: 2010-5-18
最後登錄: 2013-10-26

5^#

發表於 2010-7-6 18:21 | 只看該作者

看错了，一自定义函数
Function 数值(rng As Range, k As Integer)
On Error Resume Next
Set d = CreateObject("scripting.dictionary")
Dim rngg As Range
For Each rngg In rng
d.Add rngg.Value, ""
Next
arr = d.keys
数值 = Application.WorksheetFunction.Large(arr, k)
End Function

学习

帖子: 75
主題: 19
精華: 0
積分: 135
點名: 0
作業系統: win7
軟體版本: 2007 010
閱讀權限: 20
註冊時間: 2010-5-18
最後登錄: 2013-10-26

6^#

發表於 2010-7-6 20:34 | 只看該作者

Function 数值(rng As Range, k As Integer)
On Error Resume Next
Set d = CreateObject("scripting.dictionary")
Dim rngg As Range
For Each rngg In rng
d.Add rngg.Value, ""
Next
数值 = Application.WorksheetFunction.Large(d.keys
, k)
End Function

学习

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

7^#

發表於 2010-7-6 20:42 | 只看該作者

回復 6# wqfzqgk

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

複製代碼

這樣不需用ON ERROR RESUME NEXT來避免錯誤

學海無涯_不恥下問

帖子: 75
主題: 19
精華: 0
積分: 135
點名: 0
作業系統: win7
軟體版本: 2007 010
閱讀權限: 20
註冊時間: 2010-5-18
最後登錄: 2013-10-26

8^#

發表於 2010-7-6 20:48 | 只看該作者

本帖最後由 wqfzqgk 於 2010-7-6 20:52 編輯

回復 7# Hsieh

以前也用过，时间长了忘记了

学习

帖子: 75
主題: 19
精華: 0
積分: 135
點名: 0
作業系統: win7
軟體版本: 2007 010
閱讀權限: 20
註冊時間: 2010-5-18
最後登錄: 2013-10-26

9^#

發表於 2010-7-6 20:49 | 只看該作者

本帖最後由 wqfzqgk 於 2010-7-6 20:54 編輯

回復 8# wqfzqgk

我没有看你的程序，我的那个不加不行，討論不重複清單中也可以用个来实现

学习

Hsieh

超級版主 Rank: 8 Rank: 8

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

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

10^#

發表於 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

複製代碼

學海無涯_不恥下問