Excel宏的应用-成绩分析处理程序

四.分数段 
 
 Sub 分数段()
Const max = 600
Const min = 390
Const studentno = 190
Const bjnum = 4
Const fsdnum = 22
Dim bjfsd(bjnum, fsdnum), zf(studentno, 2)
Sheets("高三理").Select
For i = 1 To studentno
　　zf(i, 1) = ActiveSheet.Cells(i + 1, 1) '存放班级
　　zf(i, 2) = ActiveSheet.Cells(i + 1, 11) '存放总分
Next i

For i = 1 To studentno
　For j = 1 To 4 '3---6班共4个班级
　　　If zf(i, 1) = j + 2 Then
　　　　　For k = max To min Step -10
　　　　　　　low = Int((max + 10 - k) / 10)
　　　　　　　If zf(i, 2) > k Then bjfsd(j, low) = bjfsd(j, low) + 1
　　　　　Next k
　　　End If
　Next j
Next i
Sheets("sheet3").Select
For i = 3 To 6
　For k = 1 To fsdnum
　　ActiveSheet.Cells(i, k + 1) = bjfsd(i - 2, k)
　Next k
Next i
　　Range("M3:W6").Select
　　Selection.Cut
　　ActiveWindow.LargeScroll ToRight:=-1
　　Range("B8").Select
　　ActiveSheet.Paste
End Sub

五.删除 
 
 Sub 删除()
　　Sheets("33").Select
　　ActiveWindow.SelectedSheets.Delete
　　Sheets("34").Select
　　ActiveWindow.SelectedSheets.Delete
　　Sheets("35").Select
　　ActiveWindow.SelectedSheets.Delete
　　Sheets("36").Select
　　ActiveWindow.SelectedSheets.Delete
End Sub
 
六.本程序的界面及各个宏运行的结果:

平均分统计结果:

分班结果:

分数段统计结果: