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

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

ID:40344926

大小:1.35 MB

页数:15页

时间:2019-07-31

如何在PPT里实现多班级点名_第1页
如何在PPT里实现多班级点名_第2页
如何在PPT里实现多班级点名_第3页
如何在PPT里实现多班级点名_第4页
如何在PPT里实现多班级点名_第5页
资源描述:

《如何在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

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。