如何在PPT里实现多班级点名

这样菜单栏就有开发 工具这个选项了。
先在第一张幻灯片时，点“视图”，进入“幻灯片母版”
最后双击这个框进入VBA编程界面
Public cfxm() As String Public js As Integer Public bj As String
完成后，双击窗口
等等吧，把这个找出来，写下以下内容。
Private Sub UserForm_Activate() Dim xm() As String '姓名变量 Dim sfcf As Integer '姓名重复 Dim jss As Integer '计数 Dim startm As Single '时钟 Dim bjrs As Integer '班级人数 Select Case bj Case "1班" bjrs = 57 '确定班级人数 ReDim xm(bjrs) jss = js + 1 ReDim Preserve cfxm(jss) xm(1) = "柏瑞欣" xm(2) = "柴芮" xm(3) = "陈诺" xm(4) = "陈雅萱" xm(5) = "陈一蕊" xm(6) = "程妍雪" xm(7) = "崔可歆" xm(8) = "党逸尘" xm(9) = "邓昌曼" xm(10) = "丁思雨" xm(11) = "丁雨辰" xm(12) = "董昕沂" xm(13) = "高子昊" xm(14) = "郭睿" xm(15) = "金雅婷" xm(16) = "李宠显" xm(17) = "李婧媛" xm(18) = "李静" xm(19) = "李雨潇" xm(20) = "刘梦洁" xm(21) = "刘雨歆" xm(22) = "毛自如" xm(23) = "倪铭" xm(24) = "彭雨航" xm(25) = "羌睿欣" xm(26) = "强薇" xm(27) = "荣紫妍" xm(28) = "阮心悦" xm(29) = "芮絮飞" xm(30) = "沈晨" xm(31) = "沈欣" xm(32) = "沈嫣然" xm(33) = "孙旸" xm(34) = "邰茜辰" xm(35) = "唐雪莹" xm(36) = "汪欣" xm(37) = "汪轶诚" xm(38) = "王倩倩" xm(39) = "王绍仟" xm(40) = "王新媛" xm(41) = "王尊妮" xm(42) = "吴希冉" xm(43) = "吴宇菲" xm(44) = "阎士蓉" xm(45) = "杨程程" xm(46) = "杨莹" xm(47) = "杨云千" xm(48) = "张朝阳" xm(49) = "张瑞" xm(50) = "张睿嘉" xm(51) = "张羽阳" xm(52) = "章家一院" xm(53) = "章言" xm(54) = "周静娴" xm(55) = "周可颖" xm(56) = "朱梦婷" xm(57) = "左笑雨" sfcf = 1 Do While sfcf = 1 Randomize v = Int((bjrs * Rnd) + 1) For j = 0 To js If xm(v) = cfxm(j) Then sfcf = 1 Exit For Else sfcf = 0 End If Next Loop cfxm(js) = xm(v) js = js + 1 UserForm1.Label1.Caption = xm(v) startm = Timer Do While Timer < startm + 3 DoEvents Loop UserForm1.Hide Case "2班" bjrs = 56 ReDim xm(bjrs) jss = js + 1 ReDim Preserve cfxm(jss) xm(1) = "柏瑞" xm(2) = "柴芮ff" xm(3) = "陈诺" xm(4) = "陈gg雅萱" xm(5) = "陈一蕊" xm(6) = "程hh妍雪" xm(7) = "崔可歆" xm(8) = "党gg逸尘" xm(9) = "邓昌mm曼" xm(10) = "丁思bb雨" xm(11) = "丁雨辰" xm(12) = "董昕沂" xm(13) = "高子昊" xm(14) = "郭睿" xm(15) = "金雅婷" xm(16) = "李宠bb显" xm(17) = "李婧媛" xm(18) = "李静" xm(19) = "李雨bb潇" xm(20) = "刘梦洁" xm(21) = "刘雨歆" xm(22) = "毛自如" xm(23) = "倪铭" xm(24) = "彭雨航" xm(25) = "羌睿bb欣" xm(26) = "强薇" xm(27) = "荣紫妍" xm(28) = "阮心bb悦" xm(29) = "芮絮飞" xm(30) = "沈晨" xm(31) = "沈欣" xm(32) = "沈bb嫣然" xm(33) = "孙旸" xm(34) = "邰茜辰" xm(35) = "唐bb雪莹" xm(36) = "汪欣" xm(37) = "汪轶诚" xm(38) = "王倩倩" xm(39) = "王绍仟" xm(40) = "王新媛" xm(41) = "王bb尊妮" xm(42) = "吴希冉" xm(43) = "吴宇菲" xm(44) = "阎士蓉" xm(45) = "杨程程" xm(46) = "杨莹" xm(47) = "杨云千" xm(48) = "张朝阳" xm(49) = "张瑞" xm(50) = "张睿嘉" xm(51) = "张羽阳" xm(52) = "章家一院" xm(53) = "章言" xm(54) = "周静娴" xm(55) = "周可颖" xm(56) = "朱梦婷" sfcf = 1

学生姓名可以在excel里完成。


如果学生姓名在A列2行，你可以找个空白列，在2行内键入 ＝”xm(1)=[“&A2&”]”，回车。注意这里的引号是英文状态下的， 不是中文状态下的。 然后点中这一格，当右下角出现+号时一直拖下去。注意xm() 里的数字会增大，如果不增大不行。 将这一列选中，复制。 打开word，粘贴。分别替换“[”和“]”为英文状态下的引号。 再将内容复制到PPT里这行了。
——以Pwk.baidu.comT2010为例
随机点名是利用微软office系统内在的VBA语言编程实 现的。因此，wps能打开该文件，但不能实现随机点名。 该程序在ppt2003及以上版本都能实现。 文件必须以“启用宏的演示文稿”保存，即后缀 为.pptm而不是.ppt或.pptx。 第一次打开该文件时，ppt2007及以上版本要选择“启 用内容”，ppt2003应该在安全里设置“启用宏”。
Private Sub ComboBox1_Change()
bj = ComboBox1.Text
End Sub
复制吧，不用输入了。我这里定 义的是30个班，我想一般也够 了。
Private Sub ComboBox1_GotFocus() ComboBox1.Clear ComboBox1.AddItem ("1班") ComboBox1.AddItem ("2班") ComboBox1.AddItem ("3班") ComboBox1.AddItem ("4班") ComboBox1.AddItem ("5班") ComboBox1.AddItem ("6班") ComboBox1.AddItem ("7班") ComboBox1.AddItem ("8班") ComboBox1.AddItem ("9班") ComboBox1.AddItem ("10班") ComboBox1.AddItem ("11班") ComboBox1.AddItem ("12班") ComboBox1.AddItem ("13班") ComboBox1.AddItem ("14班") ComboBox1.AddItem ("15班") ComboBox1.AddItem ("16班") ComboBox1.AddItem ("17班") ComboBox1.AddItem ("18班") ComboBox1.AddItem ("19班") ComboBox1.AddItem ("20班") ComboBox1.AddItem ("21班") ComboBox1.AddItem ("22班") ComboBox1.AddItem ("23班") ComboBox1.AddItem ("24班") ComboBox1.AddItem ("25班") ComboBox1.AddItem ("26班") ComboBox1.AddItem ("27班") ComboBox1.AddItem ("28班") ComboBox1.AddItem ("29班") ComboBox1.AddItem ("30班") End Sub
这个地方的字你看不见，但没关系，复制一下吧。 下面搞一个大的解释一下：

编好后，关 闭编程窗口， 关闭幻灯片 母板。
现在进入第二张幻灯片，再进入视图－－幻灯片母版 注意：第4步那个框是将光标放在3那个按钮右键出来的。 搞好4后，双击点名按钮，进入下一步。
关闭窗口－关闭母版视图，播放。OK 你可能一次不能成功，多试几次吧！