如何在里实现多班级点名

1、在PPT里实现多班级随机点名以PPT2010为例随机点名是利用微软office系统内在的VBA语言编程实现的。因此，wps能打开该文件，但不能实现随机点名。该程序在ppt2003及以上版本都能实现。文件必须以“启用宏的演示文稿”保存，即后缀为.pptm而不是.ppt或.pptx。第一次打开该文件时，ppt2007及以上版本要选择“启用内容”，ppt2003应该在安全里设置“启用宏”。这样菜单栏就有开发工具这个选项了。先在第一张幻灯片时，点“视图”，进入“幻灯片母版”最后双击这个框进入VBA编程界面Public cfxm() As StringPublic js As IntegerPublic

2、 bj As String完成后，双击窗口等等吧，把这个找出来，写下以下内容。Private Sub ComboBox1_Change()bj = ComboBox1.TextEnd SubPrivate Sub ComboBox1_GotFocus()ComboBox1.ClearComboBox1.AddItem (1班)ComboBox1.AddItem (2班)ComboBox1.AddItem (3班)ComboBox1.AddItem (4班)ComboBox1.AddItem (5班)ComboBox1.AddItem (6班)ComboBox1.AddItem (7班)Comb

3、oBox1.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班)ComboBo

4、x1.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复制吧，不用输入了。我这里定义的是30个班，我想一般也够了。Private Sub UserForm_Activate()Dim xm()

5、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) =

6、 邓昌曼 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

7、(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)

8、= 朱梦婷 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.Hid

9、e 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

10、) = 李静 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(

11、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 Do While sfcf = 1 Randomize v = Int(bjrs * Rnd) + 1) For j = 0 To js If xm(v) = cfxm(j

12、) 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 3班 Case 4班 Case 5班 Case 6班 Case 3班 Case 4班 Case 5班 Case 6班 Case 7班 Case 8班 Case 9班 Case 10班 Case 11班 Case 1

13、2班 Case 13班 Case 14班 Case 15班 Case 16班 Case 17班 Case 18班 Case 19班 Case 20班 Case 21班 Case 22班 Case 23班 Case 24班 Case 25班 Case 26班 Case 27班 Case 28班 Case 29班 Case 30班 Case Else UserForm1.Label1.Caption = 先选班级 startm = Timer Do While Timer startm + 3 DoEvents Loop UserForm1.HideEnd SelectEnd Sub这个地方的字你看不见，但没关系，复制一下吧。下面搞一个大的解释一下：编好后，关闭编程窗口，关闭幻灯片母板。现在进入第二张幻灯片，再进入视图幻灯片母版注意：第4步那个框是将光标放在3那个按钮右键出来的。搞好4后，双击点名按钮，进入下一步。关闭窗口