Excel vba学生各班成绩分析统计及对应模板精品.docVIP

Excel vba学生各班成绩分析统计及对应模板（修正版）　 访问HYPERLINK /file/id_84798498557394945.htm_/file/id_84798498557394945.htm可下载相应模板及vba代码。　　 各班成绩分析统计.xla vba代码（修正版）　　 适合的学校计算方式为：在单科成绩按总分降序排列取前“N”(平均基数)名的基础上求单科平均及对全年级求年级平均，班名及年名在执行一下“清( )”后可自动显示出来，（注意：请修改一下暂坐生标志，防止先删了数据）　　 模块2代码：　　 Sub 清()　　 清除“姓名”字段中含“N/A”的无效数据。　 清除“姓名”字段中含“a”的暂坐生。　　 Dim i, j As Integer　 i = Range(A65536).End(xlUp).Row　　 For j = 1 To i　　　 If IsError(Cells(j, 3)) Then　　 Rows(j).ClearContents　 ElseIf InStr(Cells(j, 3), a) 0 Then 　　 (”a”为暂坐生标志，模板中“A”为正确暂坐生标志，可自改)　　 Rows(j).ClearContents　　 End If　　 Next　　 End Sub　 Sub 统()　　 ActiveCell.Formula = =sum(a1:f1)/ i　　　 ActiveCell.FormulaR1C1 = =SUM(R[-6]C:R[-1]C)/ i 　　　 Application.Run Book2.xls!Macro1　　　 　 　　　 清除不必要数据　　　 MsgBox 请先设好暂座标志　　　 Application.Run 清　　　 初始化 班级个数 平均基数　　　 Dim i, m, j, n, o, jm, zh, li, newRange As Integer　　 Dim i, m, j, n, o, newRange As Integer　　　 　　 Dim tellMe As String　　 　 On Error GoTo VeryEnd　　　 　 tellMe = 请输入一个平均基数　 tellMe2 = 请输入一个正确的最大班级个数　　　 　　 i = Application.InputBox(prompt:=tellMe, Title:=平均基数, Default:=50, Type:=1)　 m = Application.InputBox(prompt:=tellMe2, Title:=班级个数, Default:=8, Type:=1)　　　 If i = False Then Exit Sub　　　 If m = False Then Exit Sub　 VeryEnd:　　 求各班各科平均分　　　 科目　 Range(D2).Range(A1:I1).Select　　　 Selection.Copy　　 Range(Q2).Select　 Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _　　 xlNone, SkipBlanks:=False, Transpose:=False　　 Range(z2) = 政史　 取得政史列号　 For jm = 17 To 30　 If Cells(2, jm) = 政治 Then　　　 zh = jm　　　 ElseIf Cells(2, jm) = 历史 Then　　 li = jm　　 End If　　 Next　　 班级　 j = 1 执行的班级个数　　 n = 83 执行的求平均 行号定位　　　 o = 3 执行聚集 行号定位　　　 While j = m　 Range(d n ).FormulaArray = =AVERAGE(LARGE(R[-80]C:R[-1]C,ROW(R1:R i )))　　　 Range(d n ).Select　 Selection.AutoFill Destination:=Activ