《如何在PPT里实现多班级点名》由会员分享，可在线阅读，更多相关《如何在PPT里实现多班级点名（16页珍藏版）》请在金锄头文库上搜索。
1、在PPT里实现多班级随机点名 以PPT2010为例 随机点名是利用微软office系统内在的VBA语言编程实现的 因此 wps能打开该文件 但不能实现随机点名 该程序在ppt2003及以上版本都能实现 文件必须以 启用宏的演示文稿 保存 即后缀为 pptm而不是 ppt或 pptx 第一次打开该文件时 ppt2007及以上版本要选择 启用内容 ppt2003应该在安全里设置 启用宏 这样菜单栏就有开发工具这个选项了 先在第一张幻灯片时 点 视图 进入 幻灯片母版 最后双击这个框进入VBA编程界面 Publiccfxm AsStringPublicjsAsIntegerPublicbjAsStr
2、ing 完成后 双击窗口 等等吧 把这个找出来 写下以下内容 PrivateSubComboBox1 Change bj ComboBox1 TextEndSub PrivateSubComboBox1 GotFocus ComboBox1 ClearComboBox1 AddItem 1班 ComboBox1 AddItem 2班 ComboBox1 AddItem 3班 ComboBox1 AddItem 4班 ComboBox1 AddItem 5班 ComboBox1 AddItem 6班 ComboBox1 AddItem 7班 ComboBox1 AddItem 8班 ComboB
3、ox1 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班
4、 ComboBox1 AddItem 23班 ComboBox1 AddItem 24班 ComboBox1 AddItem 25班 ComboBox1 AddItem 26班 ComboBox1 AddItem 27班 ComboBox1 AddItem 28班 ComboBox1 AddItem 29班 ComboBox1 AddItem 30班 EndSub 复制吧 不用输入了 我这里定义的是30个班 我想一般也够了 PrivateSubUserForm Activate Dimxm AsString 姓名变量DimsfcfAsInteger 姓名重复DimjssAsInteger 计数
5、DimstartmAsSingle 时钟DimbjrsAsInteger 班级人数SelectCasebjCase 1班 bjrs 57 确定班级人数ReDimxm bjrs jss js 1ReDimPreservecfxm 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
6、 刘梦洁 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
7、51 张羽阳 xm 52 章家一院 xm 53 章言 xm 54 周静娴 xm 55 周可颖 xm 56 朱梦婷 xm 57 左笑雨 sfcf 1DoWhilesfcf 1Randomizev Int bjrs Rnd 1 Forj 0TojsIfxm v cfxm j Thensfcf 1ExitForElsesfcf 0EndIfNextLoopcfxm js xm v js js 1UserForm1 Label1 Caption xm v startm TimerDoWhileTimer startm 3DoEventsLoopUserForm1 HideCase 2班 bjrs 56
8、ReDimxm bjrs jss js 1ReDimPreservecfxm 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 2
9、6 强薇 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
10、56 朱梦婷 sfcf 1DoWhilesfcf 1Randomizev Int bjrs Rnd 1 Forj 0TojsIfxm v cfxm j Thensfcf 1ExitForElsesfcf 0EndIfNextLoopcfxm js xm v js js 1UserForm1 Label1 Caption xm v startm TimerDoWhileTimer startm 3DoEventsLoopUserForm1 HideCase 3班 Case 4班 Case 5班 Case 6班 Case 3班 Case 4班 Case 5班 Case 6班 Case 7班 Cas
11、e 8班 Case 9班 Case 10班 Case 11班 Case 12班 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班 CaseElseUserForm1 Label1 Caption 先选班级 startm TimerDoWhileTimer startm 3DoEventsLoopUserForm1 HideE
12、ndSelectEndSub 这个地方的字你看不见 但没关系 复制一下吧 下面搞一个大的解释一下 编好后 关闭编程窗口 关闭幻灯片母板 现在进入第二张幻灯片 再进入视图 幻灯片母版注意 第4步那个框是将光标放在3那个按钮右键出来的 搞好4后 双击点名按钮 进入下一步 关闭窗口 关闭母版视图 播放 OK你可能一次不能成功 多试几次吧 学生姓名可以在excel里完成 如果学生姓名在A列2行 你可以找个空白列 在2行内键入 xm 1 A2 回车 注意这里的引号是英文状态下的 不是中文状态下的 然后点中这一格 当右下角出现 号时一直拖下去 注意xm 里的数字会增大 如果不增大不行 将这一列选中 复制 打开word 粘贴 分别替换 和 为英文状态下的引号 再将内容复制到PPT里这行了 知识回顾KnowledgeReview 祝您成功
