位置:编程技术网 > 云计算 > 正文 >

成绩管理系统,Excel vba简洁模板

2020年08月31日 03:22来源:未知手机版

金水林晓慧,镇江火车站时刻表,猫qq表情

前言

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

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

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

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

希望不辜负自己的努力。

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

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

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

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

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

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

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

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

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

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

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("学生信息") xx.Activate Dim sR As Range, R As Range Dim sRow As Integer sRow = xx.Range("D65535").End(xlUp).Row Set sR = xx.Range("D2:D" & 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 最后

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

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

欢迎关注、收藏、转发

特别声明:以上内容(如有图片或视频亦包括在内)为自媒体平台“网易号”用户上传并发布,本平台仅提供信息存储服务。

本文地址:http://www.reviewcode.cn/yunjisuan/169283.html 转载请注明出处!

今日热点资讯