将学生等级转换成对应年级的文字评价

hedgehog93

20230628学生等级转换表.rar (643.71 KB, 下载次数: 27)

2023-6-28 15:38 上传

点击文件名下载附件

如附件，已经准备好年级、评价标准、学生成绩三张基础表，现需参照“张三1”学生是初2021级（九年级）各科等级转换成相应评价。有高手麻烦帮忙一下，急需。

汉唐

现在老师写评语都要求智能化了？

hedgehog93

汉唐 发表于 2023-6-28 17:05
现在老师写评语都要求智能化了？

这是学科评价。不是评语哟！

hedgehog93

汉唐 发表于 2023-6-28 17:05
现在老师写评语都要求智能化了？

还差前面一点点呢？“学科：等级，”后面才是评价哒。

hedgehog93

汉唐 发表于 2023-6-28 17:05
现在老师写评语都要求智能化了？

运行速度好快，太感谢了。

吴中泉

基本表还可以设置的更合理些，减少运算量。
比如学科评价有很多重复，可以合并。

chxw68

参与一下。

yynrzwh

1. Sub 评价()
   
2. 
   
3. arr = Sheets("学生成绩").UsedRange
   
4. ar_bz = Sheets("评价标准").UsedRange
   
5. ar_nj = Sheets("年级").UsedRange
   
6. Set d = CreateObject("scripting.dictionary")
   
7.    
   
8.     For i = 1 To UBound(ar_nj)
   
9.         d(ar_nj(i, 2)) = ar_nj(i, 1)
   
10.     Next i
    
11.    
    
12.     For i = 2 To UBound(ar_bz)
    
13.         d(ar_bz(i, 1)) = ar_bz(i, 2)
    
14.     Next i
    
15.    
    
16.     For i = 2 To UBound(arr)
    
17.         For j = 5 To 24
    
18.             s = arr(1, j) & d(arr(i, 1)) & arr(i, j)
    
19.             arr(i, j) = arr(1, j) & "：" & arr(i, j) & d(s)
    
20.         Next j
    
21.     Next i
    
22.    
    
23. Sheets("学生评价").Range("A1").Resize(UBound(arr), UBound(arr, 2)) = arr
    
24. Set d = Nothing
    
25. End Sub
    

复制代码

每天进步一点sy

楼主实现了吗？

hedgehog93

吴中泉 发表于 2023-6-28 18:50
基本表还可以设置的更合理些，减少运算量。
比如学科评价有很多重复，可以合并。

有重复吗？应该不可能有重复哟？每个学科每个年级都有ABCD等哟