|||
刚批完卷子!代了三门课,平时成绩和期末成绩都放在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以上版)
Archiver|手机版|科学网 ( 京ICP备07017567号-12 )
GMT+8, 2024-11-13 03:47
Powered by ScienceNet.cn
Copyright © 2007- 中国科学报社