欠学分统计程序说明

1、登录教务系统,成绩管理→05.查询分析统计,根据需求查询成绩的成绩原始数据。

欠学分统计程序说明

2、点击打印,将成绩数据以 Excel 表格的形式保存到到本地。

欠学分统计程序说明

3、在课程名上方插入一行,输入每门课对应的学分。

欠学分统计程序说明

整体效果如下图所示,请保证课程学分对应第3行!

欠学分统计程序说明

4、建立一个新的工作表,并将学号、姓名、班级信息复制到新工作表中,请保证学号从 A2 格为第一同学的学号且 D 列以后均为空!

欠学分统计程序说明

5、请参照下图记录统计如下信息。

欠学分统计程序说明

6、在新建立的工作表上右键,选择「查看代码」

欠学分统计程序说明

7、请粘贴下面的代码,务必修改用「」标注的中文内容为第5步中实际统计的结果

Sub proc()

Dim i As Integer
Dim j As Integer
Dim sum As Double

    For i = 「第一位同学所在的行」 To 「最后一位同学所在的行」
        sum = 0
    
        For j = 「第一门课所在的列」 To 「最后一门课所在的列」
            If Sheet1.Cells(i, j) <> "" And Sheet1.Cells(i, j) < 60 Then
                sum = sum + Sheet1.Cells(3, j)
                Sheet2.Cells(i - 3, 4) = Sheet2.Cells(i - 3, 4) & Sheet1.Cells(4, j) & "【" & Sheet1.Cells(3, j) & "】 "
            End If
        Next j
        
        Sheet2.Cells(i - 3, 5) = sum
    Next i
        
End Sub

8、请确认左侧 Sheet1为原始成绩单,Sheet2为新建的工作表,点击运行即可。

欠学分统计程序说明

9、执行完成后,程序将统计所欠学分学科名称和学分放到 D 列,并将统计的所欠学分总数放到 E 列。

欠学分统计程序说明

【补充说明】

如果您不具备修改 VBA 代码的能力,请严格参照红色标注要求,以确保结果的正确性。如果您具备,可以不必严格参考红色字体部分的要求,根据自己的格式修改代码。

如果需要重新计算,请务必清空 D 列和 E 列的所有数据,再次运行程序不会清空原有数据,只会在后面追加新结果。

分享