修改蓝桥玄霜老师的VBA写的成绩分析表出现问题

ycl0856

修改蓝桥玄霜老师的VBA写的成绩分析表出现问题了，不会处理，还有坛里大神们相助

ycl0856

最低分出现100

蓝桥玄霜

代码修改如下：

1. Sub yy()
   
2. Select Case fs
   
3.     Case 90 To 100
   
4.         Arr1(r, 4) = Arr1(r, 4) + 1
   
5.     Case 80 To 89
   
6.         Arr1(r, 5) = Arr1(r, 5) + 1
   
7.     Case 70 To 79
   
8.         Arr1(r, 6) = Arr1(r, 6) + 1
   
9.     Case 60 To 69
   
10.         Arr1(r, 7) = Arr1(r, 7) + 1
    
11.     Case 50 To 59
    
12.         Arr1(r, 8) = Arr1(r, 8) + 1
    
13.     Case 40 To 49
    
14.         Arr1(r, 9) = Arr1(r, 9) + 1
    
15.     Case 30 To 39
    
16.         Arr1(r, 10) = Arr1(r, 10) + 1
    
17.     Case 20 To 29
    
18.         Arr1(r, 11) = Arr1(r, 11) + 1
    
19.     Case 10 To 19
    
20.         Arr1(r, 12) = Arr1(r, 12) + 1
    
21.     Case 0 To 9
    
22.         Arr1(r, 13) = Arr1(r, 13) + 1
    
23. End Select
    
24. If fs >= 60 Then Arr1(r, 16) = Arr1(r, 16) + 1 '及格人数
    
25. If fs >= 80 Then youx(r) = youx(r) + 1 '优秀人数
    
26. If fs >= zgf(r) Then zgf(r) = fs
    
27. If fs <= zdf(r) Then zdf(r) = fs
    
28. End Sub
    

复制代码

ycl0856

蓝桥玄霜 发表于 2021-3-17 20:36
代码修改如下：

感谢蓝桥玄霜老师

蓝桥玄霜

因为这个班里有个同学的分数为空白，空白即是0如果要排除空白成绩，可在call yy前面加
If fs<>"" then call yy

ycl0856

谢谢蓝桥玄霜老师的帮助，祝你生活愉快！

karlchan1934

蓝桥玄霜 发表于 2021-3-19 09:09
因为这个班里有个同学的分数为空白，空白即是0如果要排除空白成绩，可在call yy前面加
If fs"" then call  ...

老师您好，请问一下，参考人数那里能否排除一下缺考的学生呢。应该怎么改呀