字典嵌套使用实现班内班级分数排名

吴中泉

分享练习字典使用代码,欢迎讨论交流



字典嵌套使用.zip (22.32 KB, 下载次数: 39)

2023-4-10 10:13 上传

点击文件名下载附件

半百

似乎不用那么多IF

吴中泉

半百 发表于 2023-4-10 12:29
似乎不用那么多IF

铁杆厉害,一针见血

只要功夫深,铁杆磨成针

准提部林

成績已遞減排序(降序)//
Sub TEST_A1()
Dim Arr, xD, T$, V$, TV$, N&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([c1], [a65536].End(3))
For i = 2 To UBound(Arr)
    T = Arr(i, 1): V = Arr(i, 3): TV = T & "/" & V
    If xD(TV) = 0 Then xD(T) = xD(T) + 1: xD(TV) = 1
    Arr(i - 1, 1) = xD(T)
    If xD(V) = 0 Then N = N + 1: xD(V) = 1
    Arr(i - 1, 2) = N
Next i
[d2].Resize(UBound(Arr) - 1, 2) = Arr
End Sub

准提部林

發附件也審核??? 如圖

吴中泉

准提部林 发表于 2023-4-10 14:55
發附件也審核??? 如圖

仔细阅读大侠的代码，简洁高效，算法巧妙，数据结构精准，用一个字典编码就代替了我用两个字典还嵌套的程序，不知我的表述是否准确，反正评味后受益良多。感谢！感谢！希望以后还多加指教。

准提部林

吴中泉 发表于 2023-4-10 21:07
仔细阅读大侠的代码，简洁高效，算法巧妙，数据结构精准，用一个字典编码就代替了我用两个字典还嵌套的程 ...

剛學字典時, 也是都用字典裝資料, 之後再加載進數組;
后來, 研究有些需求, 讓字典只做"標記"功能,
再根據字典的標記, 同時將結果載入數組, 少去一层轉載!!!
因為以前總在公式區, 競逐簡短的數組公式, 寫出來了, 也都還想如何更加簡化,
在這程序區, 也丟不了這習慣, 總想如何再簡化代碼~~

當然, 簡化的同時, 也儘量考慮效能的優化~~

liulang0808

排序后的
Sub test()
    Set d = CreateObject("scripting.dictionary")
    Arr = [a1].CurrentRegion
    x = 1
    For j = 2 To UBound(Arr)
        If Arr(j, 3) < Val(Arr(j - 1, 3)) Then
            x = x + 1
            d(Arr(j, 1)) = d(Arr(j, 1)) + 1
        Else
            If Arr(j, 1) <> Arr(j - 1, 1) Then d(Arr(j, 1)) = d(Arr(j, 1)) + 1
        End If
        Arr(j, 5) = x
        Arr(j, 4) = d(Arr(j, 1))
    Next j
    [s1].Resize(UBound(Arr), UBound(Arr, 2)) = Arr
End Sub

liulang0808

排序后，字典处理

准提部林

4樓代碼//只講三件事
For i = 2 To UBound(Arr)
    T = Arr(i, 1): V = Arr(i, 3): TV = T & "/" & V  '(1)將KEY值入變數
    xD(T) = xD(T) - (xD(TV) = 0): Arr(i - 1, 1) = xD(T): xD(TV) = 1 '(2)班級排名
    N = N - (xD(V) = 0): Arr(i - 1, 2) = N: xD(V) = 1 '(3)全級排名
Next i