前言

成绩管理在学校中用得最多，也最普遍，一直以来，以为成绩管理是个很简单的事情，不过就是些数值加减。

然而真正入手制作的时候，遇到了很多问题。

可能是想象的太简单了，有些功能实现起来有很多办法，结果做到眼前，发现很多问题解决起来，费时费力。

不得不认真对待地一下，虽然看上去根本用不到，但是做一个曾经的学生，有必要浪费一些时间来完成这个系统。

希望不辜负自己的努力。

操作主页

不知道为什么，做成粉色系，可能是相像着许多老师是女性，所以要温和一下点。

左边一栏是操作入口，所有功能可以在这里进行。

能用的都调试了，不能用的还没有完成，基本框架就是这样。

主要思想就是，任何一个班级的成绩数据统计都在这里进行，完成后另保存为文件。

感觉不用离开这个页面操作是很好的办法，可能要多写一些代码，但对于使用者来说，不用在很多表格之间来回跳跃。这是一种很好的操作体验。

系统设置

设置是一些固定信息，最好在这里设置完成，不要在各表里进行。

比如课目，老师，学生姓名，学号等等，针对这一个页操作就行了，其它表会自动导入这些数据。

成绩录入

找到学生按课录入成绩即可，离开表格操作，很方便，针对性强，出错率低。

成绩查询

重点做了一个成绩查询，很必要的一个功能。

可按班级，学号和姓名查询。简单的一页为此写了好很多代码，关于那些代码真不想说太多了，因为不知道从何说起，下面贴一点出来，大家懂的就看看。

Private Sub ComboBox1_Change()
    Dim CoV As String
    CoV = VBA.UCase(VBA.Trim(Me.ComboBox1.Value))
    If VBA.Len(CoV) = 0 Then Exit Sub    
    Dim xx As Worksheet
    Set xx = ThisWorkbook.Worksheets(&34;学生信息&34;)
    xx.Activate
    Dim sR As Range, R As Range
    Dim sRow As Integer
    sRow = xx.Range(&34;D65535&34;).End(xlUp).Row
    Set sR = xx.Range(&34;D2:D&34; & sRow)
    Set R = sR.Find(CoV, lookat:=True)
    If R Is Nothing Then Exit Sub
    Dim radds As String
    radds = R.Address
    Me.ComboBox2.Clear
    Do
        Set R = sR.FindNext(R)
        With Me.ComboBox2
            .AddItem R.Offset(0, -2).Value
        End With
    Loop Until R Is Nothing Or radds = R.Address
    Me.ComboBox2.Value = Me.ComboBox2.List(0)
End Sub

最后

至于修改校对、保存文件、成绩统计，下一次更新，总之这个功能实现之后，对于学生成绩管理的一些细节问题也要做些深入思考。

最好做到使用方便，不出错，并且再加一些比较和成绩方面的变化情况，图示化效果更有利于在教学当中，有目的地成绩管理。

欢迎关注、收藏、转发