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

《如何在PPT里实现多班级点名.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

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

2、blicjsAsIntegerPublicbjAsString完成后，双击窗口等等吧，把这个找出来，写下以下内容。PrivateSubComboBox1_Change()bj=ComboBox1.TextEndSubPrivateSubComboBox1_GotFocus()ComboBox1.ClearComboBox1.AddItem("1班")ComboBox1.AddItem("2班")ComboBox1.AddItem("3班")ComboBox1.AddItem("4班")ComboBox1.AddItem("5班")ComboBo

3、x1.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班

4、")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

5、.AddItem("29班")ComboBox1.AddItem("30班")EndSub复制吧，不用输入了。我这里定义的是30个班，我想一般也够了。PrivateSubUserForm_Activate()Dimxm()AsString'姓名变量DimsfcfAsInteger'姓名重复DimjssAsInteger'计数DimstartmAsSingle'时钟DimbjrsAsInteger'班级人数SelectCasebjCase"1班"bjrs=57'确定班级人数ReDimxm(bjrs)jss=js+1ReDimPreservecfx

6、m(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)=

7、"彭雨航"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)="杨云千"

8、xm(48)="张朝阳"xm(49)="张瑞"xm(50)="张睿嘉"xm(51)="张羽阳"xm(52)="章家一院"xm(53)="章言"xm(5