| 现在位置：芜湖电脑维修网->软件专题 |
|
Excel宏的应用-成绩分析处理程序（二）
|
时间：2007-12-23 15:33:52 来源：芜湖电脑维修网 作者：admin
编辑： 【 关闭】
|
|
四.分数段
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
| |
|
|
|
|
