如何在ppt里实现多班级点名-新.pptxVIP

在PPT里实现多班级随机点名;随机点名是利用微软office系统内在的VBA语言编程实现的。因此，wps能打开该文件，但不能实现随机点名。 该程序在ppt2003及以上版本都能实现。 文件必须以“启用宏的演示文稿”保存，即后缀为.pptm而不是.ppt或.pptx。 第一次打开该文件时，ppt2007及以上版本要选择“启用内容”，ppt2003应该在安全里设置“启用宏”。;这样菜单栏就有开发工具这个选项了。;先在第一张幻灯片时，点“视图”，进入“幻灯片母版”;最后双击这个框进入VBA编程界面;Public cfxm() As String Public js As Integer Public bj As String ;完成后，双击窗口;等等吧，把这个找出来，写下以下内容。;Private Sub ComboBox1_Change() bj = ComboBox1.Text End Sub;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(