配上学科后合并排序

yynrzwh

国家智慧教育平台完成情况模板（14中庞伟伟）66666.rar (56.53 KB, 下载次数: 3)

2024-3-6 15:52 上传

点击文件名下载附件

yoshuya

yynrzwh 发表于 2024-3-6 15:52

少一个未报名的伏敏

yoshuya

shiruiqiang 发表于 2024-3-6 15:37
先做了一个功能，有些表可以不用，只需2份就行

未报名的 伏敏也算 未完成的
添加学分一列

yynrzwh

很明显，完成情况统计和互联网加名单学科的名单并不一样

曹一诺 曺一诺
国家智慧教育平台完成情况模板（14中庞伟伟）66666.rar (57.04 KB, 下载次数: 1)

2024-3-6 17:35 上传

点击文件名下载附件

lushang2018

1. Sub TestSub()
   
2.     Dim i, j, k, arr, brr, crr
   
3.     Dim dic As Object, key As String
   
4.     Set dic = CreateObject("scripting.dictionary")
   
5.     brr = Sheet2.Range("A2").CurrentRegion.Value
   
6.     arr = Sheet5.Range("A1").CurrentRegion.Value
   
7.     For i = LBound(arr) To UBound(arr)
   
8.         key = arr(i, 1)
   
9.         dic(key) = arr(i, 4)
   
10.     Next
    
11.     ReDim crr(1 To 1000, 1 To 4)
    
12.     For i = 2 To UBound(brr)
    
13.         key = brr(i, 2)
    
14.         If brr(i, 3) = "未报名" Then
    
15.             j = j + 1
    
16.             crr(j, 1) = key
    
17.             crr(j, 3) = dic(key)
    
18.         End If
    
19.         If brr(i, 3) < 6 Then
    
20.             k = k + 1
    
21.             crr(k, 2) = key
    
22.             crr(k, 4) = dic(key)
    
23.         End If
    
24.     Next
    
25.     Sheet2.Range("T2").Resize(UBound(crr), 4) = crr
    
26. End Sub
    

复制代码

lushang2018

试一试，试一试

yoshuya

yynrzwh 发表于 2024-3-6 17:35
很明显，完成情况统计和互联网加名单学科的名单并不一样

曹一诺 曺一诺

是的，这个表是用来统计智慧中小学 的，学科信息用到另一平台信息，其中原始数据为智慧中小学已经开始进入学习的人