cambaluc的个人博客分享 http://blog.sciencenet.cn/u/cambaluc

博文

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

已有 4258 次阅读 2020-1-13 20:42 |个人分类:VB|系统分类:教学心得| VBA, Excel, 读音

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

文件格式:在Sheet2中第A列为学号,第BCD列为姓名、平时成绩、期末成绩,假设本班有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以上版)




https://blog.sciencenet.cn/blog-797552-1214092.html

上一篇:[转载]关于数学语言的名言
下一篇:用Python、Matlab、C实现傅立叶变换FFT()
收藏 IP: 221.194.139.*| 热度|

4 张忆文 农绍庄 周忠浩 张骥

该博文允许注册用户评论 请点击登录 评论 (5 个评论)

数据加载中...

Archiver|手机版|科学网 ( 京ICP备07017567号-12 )

GMT+8, 2024-11-13 03:47

Powered by ScienceNet.cn

Copyright © 2007- 中国科学报社

返回顶部