较难的成绩统计代码求助

沉潜 · 发表于 2012-8-21 21:21

本帖最后由沉潜于 2012-8-21 21:21 编辑

mjzxlmg 发表于 2012-8-4 10:13
d.count改为m即可。或改为：dic.count

老师您好，这个学科分析系统我又添加了几个功能，还烦请您帮忙指点完善。
1、自动检测导入数据表头并导入数据。（已完善）
2、希望在【成绩源】上添加总分及班排名和级排名。总分根据设置要求计算。（在他人的帮助下基本能实现，但速度较慢，希望在您那希尔算法的计算排名中集成）
3、学科分析时三残儿童（聋哑盲）不计入考核人数。即：考核人数=（总人数 — 三残儿童）X 考核比例
4、能添加、显示三残儿童信息，能查询打印班级成绩，能查找修改学生成绩。

学科分析.rar (161.25 KB, 下载次数: 55)

mjzxlmg · 发表于 2012-8-24 00:03

本帖最后由 mjzxlmg 于 2012-8-24 00:08 编辑

沉潜发表于 2012-8-21 21:21
老师您好，这个学科分析系统我又添加了几个功能，还烦请您帮忙指点完善。
1、自动检测导入数据表头并导入 ...

三残儿童列的设置有点突兀，放在姓名列后好些，因为后面的列都是数值，写代码较易。
不过即使改过来，也要重写代码，工作量太大
计算总分可参考下面代码

Sub 计算总分()
Dim d As Object, arr, brr, i&, j&, sum
Set d = CreateObject("scripting.dictionary")
brr = Sheets("设置").[d5].CurrentRegion.Value
Sheets ("成绩源")
      arr = .[a1].CurrentRegion.Value
      ReDim crr(1 To UBound(arr), 1 To 1)
      For j = 3 To UBound(brr, 2)
         If brr(3, j) = "是" Then d(brr(1, j)) = brr(4, j)
      Next
      For i = 2 To UBound(arr)
         sum = Empty
         For j = 7 To UBound(arr, 2)
            If d.exists(arr(1, j)) Then
                  If Len(arr(i, j)) Then
                     sum = sum + arr(i, j) * d(arr(1, j))
                  End If
                  crr(i, 1) = sum
            End If
         Next
      Next
      crr(1, 1) = "总分"
      .[n1].Resize(UBound(arr)).ClearContents
      .[n1].Resize(UBound(arr)).Value = crr
End With
Set d = Nothing
End Sub

嘉—依 · 发表于 2012-9-19 15:04

mjzxlmg 发表于 2012-8-24 00:03
三残儿童列的设置有点突兀，放在姓名列后好些，因为后面的列都是数值，写代码较易。
不过即使改过来，也要 ...

老师您好，请帮忙看看这个附件，谢谢

mjzxlmg · 发表于 2012-9-19 16:24

你的这个可以在代码中直接填入工作表函数即可。

mjzxlmg · 发表于 2012-9-19 17:40

嘉—依发表于 2012-9-19 15:04
老师您好，请帮忙看看这个附件，谢谢

成绩求助 (1).zip (108.74 KB, 下载次数: 43)

嘉—依 · 发表于 2012-9-20 12:38

mjzxlmg 发表于 2012-9-19 17:40

老师您好，在实际运用当中，发现一个问题：麻烦您再帮忙看看，谢谢…………

mjzxlmg · 发表于 2012-9-20 20:50

本帖最后由 mjzxlmg 于 2012-9-20 20:52 编辑

嘉—依发表于 2012-9-20 12:38
老师您好，在实际运用当中，发现一个问题：麻烦您再帮忙看看，谢谢…………

sub 科成绩分析中
这句
If Arr_out(i, KM + 1) <= Round(d(Arr_out(i, 1) & Arr_out(i, 2)) * BL) Then '红色指每科的排名列
改为
If Arr_out(i, UBound(Arr_out, 2)) <= Round(d(Arr_out(i, 1) & Arr_out(i, 2)) * BL) Then ' 红色指总分排名列

mjzxlmg · 发表于 2012-9-21 08:41

嘉—依发表于 2012-9-20 12:38
老师您好，在实际运用当中，发现一个问题：麻烦您再帮忙看看，谢谢…………

成绩分析.rar (94.76 KB, 下载次数: 42)

mjzxlmg · 发表于 2012-9-21 16:00

嘉—依发表于 2012-9-20 12:38
老师您好，在实际运用当中，发现一个问题：麻烦您再帮忙看看，谢谢…………

分年级导出统计数据：

测试附件：

成绩分析.rar (69.35 KB, 下载次数: 60)

mjzxlmg · 发表于 2012-10-11 13:55

本帖最后由 mjzxlmg 于 2012-10-11 22:51 编辑

在原有基础上增加了按学科导出、各删除导出工作表的功能。

测试附件：

成绩分析.rar (91.77 KB, 下载次数: 114)

在userform1代码区，用图所示方法，把Arr_in(i,1)替换成Cstr(Arr_in(i,1))
捕获.PNG

		自动登录	找回密码
密码			免费注册

[求助] 较难的成绩统计代码求助

评分

评分

评分

评分