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

吴中泉

准提部林 发表于 2023-4-10 22:28
剛學字典時, 也是都用字典裝資料, 之後再加載進數組;
后來, 研究有些需求, 讓字典只做"標記"功能,
再根 ...

以下图片里代码是我阅读您的代码时的注解,不知是否准确.

准提部林

吴中泉 发表于 2023-4-11 11:11
以下图片里代码是我阅读您的代码时的注解,不知是否准确.

所以"文言文"也不會太難理解~~

代碼也可如寫文章..前言/起/承/轉/合/結論..這幾個流程

吴中泉

liulang0808 发表于 2023-4-11 08:10
排序后的
Sub test()
    Set d = CreateObject("scripting.dictionary")

这是我研学版主的代码时所作的注释,不知是否准确?

吴中泉

吴中泉

再来分享一个案例,以分数段拆分数据,具体见图中说明.代码见楼下.

吴中泉

是习作代码,为交流学习,望大侠们指正,以利我提高.

1. Sub 根据分数段拆分多表()
   
2.    '字典嵌套使用,对原始无序表直接处理
   
3.     Dim i, j, n, key, key1, name
   
4.     Dim arr, dic As Object
   
5.     Set dic = CreateObject("scripting.dictionary")
   
6.     Worksheets(1).Activate
   
7.     Application.DisplayAlerts = False
   
8.     For Each wks In Worksheets
   
9.         If wks.name <> ActiveSheet.name Then wks.Delete
   
10.     Next
    
11.     Application.DisplayAlerts = True
    
12.     arr = [a1].CurrentRegion
    
13.     For i = 2 To UBound(arr)
    
14.         key = Int(arr(i, 3) / 10) * 10
    
15.         If Not dic.exists(key) Then
    
16.             Set dic(key) = CreateObject("scripting.dictionary")
    
17.         End If
    
18.         key1 = arr(i, 3)
    
19.         If Not dic(key).exists(key1) Then
    
20.             dic(key)(key1) = arr(i, 1) & "," & arr(i, 2)
    
21.         Else
    
22.             dic(key)(key1) = dic(key)(key1) & "," & arr(i, 1) & "," & arr(i, 2)
    
23.         End If
    
24.     Next
    
25.     For Each 键名 In dic.keys
    
26.         Sheets.Add(after:=Sheets(Sheets.Count)).name = 键名
    
27.         [a1] = "姓名":   [b1] = "分数":     n = 2
    
28.         For Each 键名1 In dic(键名).keys
    
29.             name = Application.Transpose(Split(dic(键名)(键名1), ","))
    
30.             Cells(n, "A").Resize(UBound(name), 1) = name
    
31.             Cells(n, "B").Resize(UBound(name), 1) = 键名1
    
32.             n = n + 2
    
33.         Next
    
34.     Next
    
35.     Worksheets(1).Activate
    
36.     Beep
    
37. End Sub
    
38. 
    

复制代码

jiangxiaoyun

数据有序的情况下，不需要嵌套。直接字典计数填就是了（适合123456这种排名）。
如果是122334这种排名，就用字典记录数组行号，直接对比成绩，一样就填上一个的排名，不一样加1就是了。