如何用PPT做随机点名
PPT是一款非常强大的工具,可以帮助我们制作各种各样的演示文稿。PPT做随机点名也是一种非常实用的应用。在课堂上,老师可以用PPT随机点名,让学生们更加积极地参与到课堂中来。如何用PPT做随机点名呢?接下来,本文将为大家详细介绍。
我们需要在PPT中创建一个新的幻灯片。在这个新的幻灯片中,我们需要添加一个文本框。在文本框中,我们可以输入学生的姓名。在输入学生姓名之后,我们需要将这些姓名保存在一个Excel表格中。为了方便点名,我们可以将这个Excel表格保存在电脑的桌面上。
我们需要在PPT中添加一个宏。在PPT的菜单栏中,点击“开发者”选项卡,然后点击“Visual Basic”按钮,打开Visual Basic编辑器。在Visual Basic编辑器中,我们需要添加一个新的模块。在新的模块中,我们可以输入以下代码:

Sub RandomName()
Dim x As Integer
Dim y As Integer
Dim z As Integer
Dim i As Integer
Dim NameList() As String
Dim Name As String
x = ThisWorkbook.Sheets("Sheet1").Range("A1").End(xlDown).Row
y = ThisWorkbook.Sheets("Sheet1").Range("A1").Column
ReDim NameList(1 To x)
For i = 1 To x
NameList(i) = ThisWorkbook.Sheets("Sheet1").Cells(i, y).Value
Next i
z = Int((x - 1 + 1) * Rnd + 1)
Name = NameList(z)
MsgBox Name
End Sub
在这段代码中,我们首先定义了一些变量,包括x、y、z、i、NameList和Name。x代表Excel表格中学生姓名的行数,y代表Excel表格中学生姓名的列数。我们使用For循环语句将Excel表格中的学生姓名保存在一个数组中。我们使用Rnd函数生成一个随机数,将这个随机数转换成一个学生姓名,最后使用MsgBox函数弹出一个对话框,显示这个学生的姓名。
我们需要在PPT中添加一个按钮,用于调用这个宏。在PPT的菜单栏中,点击“开发者”选项卡,然后点击“插入”按钮,在弹出的对话框中选择“按钮”,将按钮添加到PPT中。我们需要在按钮上右键点击,选择“属性”,在弹出的对话框中选择“宏”,将刚才添加的宏添加到按钮中。
我们就可以使用这个PPT做随机点名了。在课堂上,老师只需要打开这个PPT,点击按钮,就可以随机点名了。学生们就可以更加积极地参与到课堂中来。





