欢迎来到天天文库
浏览记录
ID:40344926
大小:1.35 MB
页数:15页
时间:2019-07-31
《如何在PPT里实现多班级点名》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、在PPT里实现多班级随机点名——以PPT2010为例随机点名是利用微软office系统内在的VBA语言编程实现的。因此,wps能打开该文件,但不能实现随机点名。该程序在ppt2003及以上版本都能实现。文件必须以“启用宏的演示文稿”保存,即后缀为.pptm而不是.ppt或.pptx。第一次打开该文件时,ppt2007及以上版本要选择“启用内容”,ppt2003应该在安全里设置“启用宏”。这样菜单栏就有开发工具这个选项了。先在第一张幻灯片时,点“视图”,进入“幻灯片母版”最后双击这个框进入VBA编程界面Publiccfxm()AsStringPublicjsAsIntegerPublicbjAs
2、String完成后,双击窗口等等吧,把这个找出来,写下以下内容。PrivateSubComboBox1_Change()bj=ComboBox1.TextEndSubPrivateSubComboBox1_GotFocus()ComboBox1.ClearComboBox1.AddItem("1班")ComboBox1.AddItem("2班")ComboBox1.AddItem("3班")ComboBox1.AddItem("4班")ComboBox1.AddItem("5班")ComboBox1.AddItem("6班")ComboBox1.AddItem("7班")ComboBox1.A
3、ddItem("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班")C
4、omboBox1.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班")EndSub复制吧,不用输入了。我这里定义的是30个班,我想一般也够了。PrivateSubUserForm_Activa
5、te()Dimxm()AsString'姓名变量DimsfcfAsInteger'姓名重复DimjssAsInteger'计数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)="丁雨
6、辰"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)
7、="汪轶诚"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(5
此文档下载收益归作者所有