班主任管理案例

学生成绩这样分发

作为一名老师，经常被问到这样的问题：“老师，我的成绩什么时候发？”、“老师，我的成绩出来了吗？”等等。倍感烦恼，需要花费时间来回答这些问题，而且有时候学生还会因为成绩不佳而抱怨。那么，如何解决这些问题？答案就是建立一个自助查询成绩的系统。

我来教给各位如何使用各种代码和Excel来实现这个系统。如果您也是老师，那么这些技能可能会对您有所帮助。

先把最简单的方法告诉大家，老师可以直接使用易查分来发布查询成绩的操作。只需注册一个账号，并登录系统。然后，创新查询，输入成绩信息，提交生成查询，学生或家长只需扫描程序二维码，即可查询到自己的成绩。

首先，创建一个Excel文件，其中包含学生的姓名、学号、课程名称和成绩等信息。可以使用以下步骤来完成这个任务：

打开Excel并创建一个新文件。

在第一列中输入学生的姓名，第二列中输入学生的学号，第三列中输入课程名称，第四列中输入成绩。

根据班级情况，输入所有学生的信息。

将文件保存为“学生成绩表.xlsx”。

然后需要编写一个VBA宏，以便学生能够通过输入学号来查询自己的成绩。以下是VBA代码的示例：

vba复制代码

	Sub 查询成绩()
	Dim stunum As String
	Dim rng As Range
	Dim row As Range
	Dim cell As Range
	Dim result As String

	stunum = InputBox("请输入您的学号")

	Set rng = ThisWorkbook.Sheets("Sheet1").Range("A2:D100")
	Set row = rng.Find(What:=stunum, LookIn:=xlValues, LookAt:=xlWhole)

	If row Is Nothing Then
	MsgBox "未找到该学生的成绩信息！"
	Else
	result = "学号：" & stunum & vbCrLf & "成绩如下：" & vbCrLf & _
	"课程名称" & vbTab & "成绩" & vbCrLf & _
	Application.WorksheetFunction.Sum(row.Offset(0, 1).Resize(1, 2)) & vbCrLf & _
	"总分：" & Application.WorksheetFunction.Sum(row.Offset(0, 1).Resize(1, 3)) & vbCrLf & _
	"平均分：" & Application.WorksheetFunction.Average(row.Offset(0, 1).Resize(1, 3))
	MsgBox result
	End If
	End Sub

这段代码会让学生在Excel中输入学号，然后搜索包含该学号的行。如果找到了该学生的信息，则会显示一个对话框，其中包含该学生的成绩信息，包括总分和平均分。如果没有找到该学生的信息，则会显示一个错误消息框。