硅酸铝板厂家
免费服务热线

Free service

hotline

010-00000000
硅酸铝板厂家
热门搜索:
技术资讯
当前位置:首页 > 技术资讯

用ExcelVBA实现课堂语音点名

发布时间:2021-01-16 10:13:54 阅读: 来源:硅酸铝板厂家

在学校从事教学工作的教师,上课时需要对学生的出勤情况进行检查,常常采用的是课堂点名的方式。而Excel中“文本到语音”的功能,能使Excel将单元格中的数字或文本内容朗读出来。通过VBA调用这一功能可实现课堂语音点名,摆脱了人工点名的传统方式,减轻了教师的点名负担。

具体实现方法思路:制作一个点名页面,安排三个操作按钮,分别是“点名”、“缺”、“到”,并分别给这三个按钮赋予相应的VBA程序代码,完成相应的控制或记录任务。当开始点名时,老师点击“点名”按钮,让电脑按学生花名册信息自动语音点名,如果学生已到课,点击“到”按钮记录,如果学生缺课,点击“缺”记录。

首先要说明的是,Excel中“文本到语音”的功能不是默认安装的。打开“工具”菜单,选择“语音”项子菜单中的“显示文本到语音工具栏”命令, Excel会自动进行安装。安装好后,可以弹出“文本到语音”浮动工具栏。

以Excel 2003为例,具体实现步骤如下:

1.在工作表Sheet2中输入学生的点名册信息(图1)。

2.适当设置工作表Sheet1中单元格的格式,并在其上添加三个命令按钮,标题分别为“开始”、“缺”和“到”(图2)。

图2

3.为三个命令按钮“开始”(图3)、“缺”(图4)和“到”(图5)编写单击事件过程,输入具体的VBA代码。

图3

图4

图5

Private Sub CommandButton1_Click()

'开始

With Sheet2

Cells(12, 1) = .unt + 1

Cells(13, 1) = .unt - 1

'记录点名人数

If Cells(13, 1) > 0 Then

.Cells(1, Cells(12, 1)) = Date

'记录点名日期

.Cells(1, Cells(12, 1)).ColumnWidth = 10

abled = True

abled = True

tivate

Cells(5, 3) = .Cells(Cells(13, 1) + 1, 1)

'显示学号

Cells(8, 3) = .Cells(Cells(13, 1) + 1, 2)

'显示姓名

eak Cells(8, 3)

'语音朗读姓名

tivate

End If

End With

End Sub

Private Sub CommandButton2_Click()

'缺

If abled Then

With Sheet2

.Cells(Cells(13, 1) + 1, Cells(12, 1)) = "缺"

Cells(13, 1) = Cells(13, 1) - 1

'点名人数递减

If Cells(13, 1) = 0 Then

MsgBox "点名完毕!"

Cells(5, 3) = "点名请单击"

Cells(8, 3) = "开始按钮"

tivate

abled = False

abled = False

Else

Cells(5, 3) = .Cells(Cells(13, 1) + 1, 1)

'显示下一个的学生

Cells(8, 3) = .Cells(Cells(13, 1) + 1, 2)

eak Cells(8, 3)

'语音朗读姓名

tivate

End If

End With

End If

End Sub

Private Sub CommandButton3_Click()

'到

If abled Then

With Sheet2

.Cells(Cells(13, 1) + 1, Cells(12, 1)) = ""

Cells(13, 1) = Cells(13, 1) - 1

'点名人数递减

If Cells(13, 1) = 0 Then

MsgBox "点名完毕!"

Cells(5, 3) = "点名请单击"

Cells(8, 3) = "开始按钮"

tivate

abled = False

abled = False

Else

Cells(5, 3) = .Cells(Cells(13, 1) + 1, 1)

'显示下一个的学生

Cells(8, 3) = .Cells(Cells(13, 1) + 1, 2)

eak Cells(8, 3)

'语音朗读姓名

End If

End With

End If

End Sub

点名开始前,“开始”命令按钮是可用的,而“缺”和“到”命令按钮都是不可用的。单击“开始”命令按钮后,把“缺”和“到”命令按钮设置为可用,而学生的学号和姓名会逐一显示在Sheet1中,根据学生的出勤情况分别单击“缺”或“到”命令按钮,把出勤情况记录在Sheet2中。在此过程中,Sheet1中显示的点名人数会逐渐递减,直至最后为0,表示点名完毕。

方舟指令最新版

全民斗西游最新版

够力七星彩下载安装

龙曜三国