教师分数登记助手

0.背景介绍

---

这个是之前给老婆写的小工具，用来登记分数的，功能比较简单

1.实现介绍

---

在Excel中绘制一个按钮，然后把按钮绑定到指定的函数上就行。记得启用宏

2.代码展示

---

Sub recordScore()
    stuscore = ""
    danyuan = InputBox("请输需要录入的单元[请填写阿拉伯数字]", "提示")
    danyan = 2 + danyuan
    Do While stuscore <> "q"
        stuscore = InputBox("请输入学号和成绩[以英文逗号分割],退出输入q", "提示")
        If LCase(stuscore) = "q" Then
            Exit Do
        End If
        If InStr(stuscore, ",") = 0 Then
            MsgBox "输入的格式有误！", vbOKOnly, "提示"
            Exit Sub
        Else
            arr = Split(stuscore, ",")
            xh = arr(0)
            cj = arr(1)
            For j = 1 To Sheet1.[A65536].End(xlUp).Row
                If CStr(Sheet1.Cells(j, 1).Value) = CStr(xh) Then
                    Sheet1.Cells(j, danyan).Value = cj
                    Exit For
                End If
            Next
        
        End If
    Loop
End Sub

代码简单的，一看就明白

3.使用截图

---

4.总结

---

其实生活中有很多的地方可以使用编程的，只是很多时候自己已经适应了这些劳动，不想去改变，觉得就这样就挺好的。所以写工具偷懒也是一种进步的方式。之前是，现在是，以后也会是。

5.下载Excel

---

点击下载 Excel