较难的成绩统计代码求助

mjzxlmg · 发表于 2013-2-7 15:41

hedgehog93 发表于 2013-2-7 15:00
哦，不好意思，刚才检查可能是科目名称重复造成的。

有了arr_out(i,j)=empty or这句是说空白人员也列举在里面。如果只是列举参加了考试的就可能不要这句。

hedgehog93 · 发表于 2013-2-7 21:46

mjzxlmg 发表于 2013-2-7 15:41
有了arr_out(i,j)=empty or这句是说空白人员也列举在里面。如果只是列举参加了考试的就可能不要这句。

发现很神奇的一个现象，不知道是不是电脑问题，当参考人数是75时，后10%学生数还是7个。试了下74时是7个，76时是8个，85时是9个，就好像只有75这个数不正常。不知道是怎么回事呢？

mjzxlmg · 发表于 2013-2-7 22:24

本帖最后由 mjzxlmg 于 2013-2-7 22:57 编辑

hedgehog93 发表于 2013-2-7 21:46
发现很神奇的一个现象，不知道是不是电脑问题，当参考人数是75时，后10%学生数还是7个。试了下74时是7个， ...

如果是这样，你查找round替换为：application.round
程序用的VBA四舍五入函数round，替换为工作表四舍五入函数round即前面要加：application.

具体这两者有什么不同，自己搜索下论坛，就不解释了。

hedgehog93 · 发表于 2013-2-8 08:59

mjzxlmg 发表于 2013-2-7 22:24
如果是这样，你查找round替换为：application.round
程序用的VBA四舍五入函数round，替换为工作表四舍五 ...

试着加了，但是报1004错误，说“无效的的数字或参数”。

mjzxlmg · 发表于 2013-2-8 09:44

本帖最后由 mjzxlmg 于 2013-2-8 09:52 编辑

hedgehog93 发表于 2013-2-8 08:59
试着加了，但是报1004错误，说“无效的的数字或参数”。

If Arr_out(i, j + 2) > Application.Round(Class_Subject_number_dic(Arr_out(i, 1) & Arr_out(1, j)) * 0.9, 0) Then

工作表函数，后面要加，0表示取整数，不要忽略，0号。
只改后10%学生名册这个SUB中的一处,前面的已用了工作表函数，不用修改，不要全部替换

hedgehog93 · 发表于 2013-2-8 20:15

本帖最后由 hedgehog93 于 2013-2-19 09:18 编辑

mjzxlmg 发表于 2013-2-8 09:44
If Arr_out(i, j + 2) > Application.Round(Class_Subject_number_dic(Arr_out(i, 1) & Arr_out(1, j)) * ...

初步发现，这样改好像还是不行，将语句改成[code=vb]If Arr_out(i, j + 2) > Class_Subject_number_dic(Arr_out(i, 1) & Arr_out(1, j)) - Application.Round(Class_Subject_number_dic(Arr_out(i, 1) & Arr_out(1, j)) * 0.1, 0) Then[/code]似乎可以了，但不改肯定，麻烦高手帮忙确认一下。

hedgehog93 · 发表于 2013-2-14 17:59

hedgehog93 发表于 2013-2-8 20:15
初步发现，这样改好像还是不行，将语句改成似乎可以了，但不改肯定，麻烦高手帮忙确认一下。

奇怪，今天换了一个年级的成绩册进去，又没有问题，不明白了。

hedgehog93 · 发表于 2013-2-18 18:07

mjzxlmg 发表于 2013-2-8 09:44
If Arr_out(i, j + 2) > Application.Round(Class_Subject_number_dic(Arr_out(i, 1) & Arr_out(1, j)) * ...

大哥，能不能在程序窗口加载的时候自动判断有没有学生某个科目是否0分？如果是0分，则删除使该科目成绩为空，如果所有科目都是0分，则删除该学生（也就是这一行都删除）。

mjzxlmg · 发表于 2013-2-19 09:36

本帖最后由 mjzxlmg 于 2013-2-19 09:56 编辑

hedgehog93 发表于 2013-2-18 18:07
大哥，能不能在程序窗口加载的时候自动判断有没有学生某个科目是否0分？如果是0分，则删除使该科目成绩为 ...

试试：

[code=vb]If Len(Arr_out(rowi, columni)) = Empty Then
            Arr_out(rowi, columni) = -1
            Else
            Subject_number_dic(Arr_out(1, columni)) = Subject_number_dic(Arr_out(1, columni)) + 1
         End If[/code]

改为：

[code=vb]If Arr_out(rowi, columni) = Empty Then Arr_out(rowi, columni) = -1  '当科目成绩为空或为0时，不计算排名
If Len(Arr_out(rowi, columni)) Then Subject_number_dic(Arr_out(1, columni)) = Subject_number_dic(Arr_out(1, columni)) + 1[/code]

htacl2012 · 发表于 2013-2-19 09:38

我也要要，谢谢。。。。。。。。。。。。。。

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

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