较难的成绩统计代码求助

沉潜 · 发表于 2013-3-10 20:55

本帖最后由沉潜于 2013-3-10 21:23 编辑

mjzxlmg 发表于 2013-3-10 14:28

您太有才了，把我设想的东西一全都给解决了（要是俺去弄，读懂就要几天，然后还要不知多少天的熬夜还不一定能解决呢），不胜感激ing……，而且运行的速度更快一般只要0.06秒，原来可要0.20左右。对于三残儿童免计，我想，在设置里先添加好三残儿童信息，然后查找学生成绩库，将对应三残儿童的成绩清空，这样就能达到三残免计的功能了，您看这样行不？
另，我根据工作需要做了个名册批打（报名册和成绩册），打算添加个分栏功能（如某些年级考试科目少就分栏，节约纸张），网上找了下，看得云里雾里，还望得到您的指点！你看我那些代码那些该优化下，哪些该改的改下。

名册打印.rar (217.45 KB, 下载次数: 39)

mjzxlmg · 发表于 2013-3-10 23:38

三残儿童可以这样，把这些人的信息入在工作表中，然后用用一个字典装入，在计算总分、排名时，如果源成绩中存在这个人，就把这个人成绩置为-1分，不统计成绩即可。
下面附件完善了一下代码，修改两处小错误（没有DIM，可能出现错误），增加了一个个人成绩查询窗体，有科目分数，级排名、校排名、班排名四栏。你试一下看看。

业绩统计.rar (170.96 KB, 下载次数: 105)

mjzxlmg · 发表于 2013-3-10 23:59

本帖最后由 mjzxlmg 于 2013-3-11 00:01 编辑

沉潜发表于 2013-3-10 20:55
您太有才了，把我设想的东西一全都给解决了（要是俺去弄，读懂就要几天，然后还要不知多少天的熬夜还不一 ...

不错用上字典数组了。
你的源数据只有一个区域，装入数组，然后在一次循环中把需要的都装入字典。因为数据有几千行，多次循环要耗时很多。
如三联动COMBOBOX可用字典套字典，可参考下上面的附件。

沉潜 · 发表于 2013-3-16 10:56

本帖最后由沉潜于 2013-3-16 11:09 编辑

mjzxlmg 发表于 2013-3-10 23:38
三残儿童可以这样，把这些人的信息入在工作表中，然后用用一个字典装入，在计算总分、排名时，如果源成绩中 ...

老师你好，在做三残免计中，汇总表的分班三残人数怎么也统计不出来，还望您的指点。
我是这样整的
在【Setup】模块中添加了
Nocount_arr = .[a31].CurrentRegion.Value    '免计
For i = 3 To UBound(Nocount_arr)             '免计
Nocount_dic(CStr(Nocount_arr(i, 2)) &CStr(Nocount_arr(i, 3)) & CStr(Nocount_arr(i, 5)) & CStr(Nocount_arr(i, 6))) = ""    '学校  年级学号姓名
Next
【Rankings】模块
If Nocount_dic.Exists(CStr(Arr_in(rowi, 1)) &CStr(Arr_in(rowi, 2)) & CStr(Arr_in(rowi, 5)) & CStr(Arr_in(rowi, 6))) Then    '免计
Rank_out(rowi, columni) = -1
End If
前面这个能正确统计

【学科成绩分析】模块
result(s, 9) =  即为各班残病免计人数值
If Nocount_dic.Exists(CStr(Arr_in(i, 1)) & CStr(Arr_in(i, 2)) & CStr(Arr_in(i, 5)) & CStr(Arr_in(i, 6))) Then
result(s, 9) = result(s, 9) + 1          '免计人数
End If
但这里的 result(s, 9) 值始终为空，百思不得其解

统计.rar (267.17 KB, 下载次数: 26) ，还有就是，按科导出每科只要一个表头不知怎么修改。

mjzxlmg · 发表于 2013-3-16 23:04

沉潜发表于 2013-3-16 10:56
老师你好，在做三残免计中，汇总表的分班三残人数怎么也统计不出来，还望您的指点。
我是这样整的
在【 ...

业绩统计.rar (276.38 KB, 下载次数: 107)

hedgehog93 · 发表于 2013-4-16 15:18

mjzxlmg 发表于 2013-2-25 18:11

高手，现在使用的时候，出现这样一个情况，就是程序执行完后，要保存文档，EXCEL提示“文档未保存”。一直出错，不知道怎么解决，试着在网上找了一个恢复保存的代码，可是又提示“加载DLL出错“。没办法了。

沉潜 · 发表于 2013-6-21 19:28

本帖最后由沉潜于 2013-6-21 19:36 编辑

mjzxlmg 发表于 2013-3-16 23:04

老师，有段时间没摸索vba了,今日试着添加个按科导出（据原来按级导出），始终没成功，还得烦请老师帮忙为谢。

业绩统计.rar (335.27 KB, 下载次数: 59)

gsjjlm · 发表于 2013-7-8 10:40

学习，教师福音

沉潜 · 发表于 2013-7-15 16:22

沉潜发表于 2013-6-21 19:28
老师，有段时间没摸索vba了,今日试着添加个按科导出（据原来按级导出），始终没成功，还得烦请老师帮忙为 ...

自己解决了

gsjjlm · 发表于 2014-7-11 17:10

沉潜发表于 2013-7-15 16:22
自己解决了

能否共享？谢谢

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

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

评分