返回列表下一主題上一主題發帖

[發問] 物件排序問題"Scripting.Dictionary"

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-10-6 15:39 | 顯示全部帖子

[發問] 物件排序問題"Scripting.Dictionary"

本帖最後由 PKKO 於 2015-10-6 15:43 編輯

想請問各位大大,我Set xd2 = CreateObject("Scripting.Dictionary")
然後下方跑回圈可以得到兩個東西
1:不重複的名稱xd.keys,2:每個名稱出現過的次數

問題是我要如何得到前三名出現過的次數是幾次?以及這前三名是誰?

'輸入次數
for 迴圈
xd2(CInt(ar(j))) = xd2(CInt(ar(j))) + 1
next

複製代碼

小弟寫得出來,但方法很愚昧,想請教各位大大一定有更好的做法
以下為小弟的程式碼(攏長慎入!)
我是先將items轉為另一個陣列,在用陣列進行排序大小,然後再跑回圈如果次數相等,就把名稱取出,肯定有更簡易的方法,因此想問問看各位大大的撰寫方法!

'找出最大的三個次數
aar = Split(Join(xd2.items, ","), ",")
ReDim cc(0 To UBound(aar), 1 To 1)
For j = 0 To UBound(aar)
cc(j, 1) = CInt(aar(j))
Next
a1 = 0: a2 = 0: a3 = 0
For j = 0 To UBound(aar)
If a1 = 0 Then a1 = Application.WorksheetFunction.Large(cc, j + 1)
If Application.WorksheetFunction.Large(cc, j + 1) <> a1 And a2 = 0 Then
a2 = Application.WorksheetFunction.Large(cc, j + 1)
End If
If Application.WorksheetFunction.Large(cc, j + 1) <> a1 And Application.WorksheetFunction.Large(cc, j + 1) <> a2 And a3 = 0 Then
a3 = Application.WorksheetFunction.Large(cc, j + 1)
End If
Next
str1 = a1 & "次:": str2 = a2 & "次:": str3 = a3 & "次:"
For Each e In xd2.keys
If xd2(CInt(e)) = a1 Then str1 = str1 & CInt(e) & ","
If xd2(CInt(e)) = a2 Then str2 = str2 & CInt(e) & ","
If xd2(CInt(e)) = a3 Then str3 = str3 & CInt(e) & ","
Next
If a1 <> 0 Then str1 = Left(str1, Len(str1) - 1)
If a2 <> 0 Then str2 = Left(str2, Len(str2) - 1)
If a3 <> 0 Then str3 = Left(str3, Len(str3) - 1)