让EXCEL帮你念成绩单,录入校对

刚批完卷子！代了三门课，平时成绩和期末成绩都放在Excel文件中，需要录入到教务系统（不提供批量导入），也需要语音校对一遍。让Excel宏来帮忙吧。

文件格式：在Sheet2中第A列为学号，第B、C、D列为姓名、平时成绩、期末成绩，假设本班有32人。

在Excel”宏”，”查看宏”中编写如下代码：

Sub aaa()

For i = 2 To 33

Application.Speech.Speak (Worksheets("Sheet2").Cells(i, 2).Text)

Application.Speech.Speak (Worksheets("Sheet2").Cells(i, 3).Text)

Application.Speech.Speak (Worksheets("Sheet2").Cells(i, 4).Text)

Next

End Sub

运行此宏，她就帮你读了，读姓名和数字,你可转教务模块中边听边录成绩，再运行也可边听边校对。

(office excel 2007以上版)