ppt VBA 实现随机抽题

最新推荐文章于 2022-09-05 19:54:19 发布
weixin_30390075 最新推荐文章于 2022-09-05 19:54:19 发布
阅读量4.3k 收藏 23
点赞数 3
文章标签： 开发工具 操作系统 c/c++
原文链接： http://www.cnblogs.com/jeffan/p/11583278.html
版权
本文介绍如何使用VBA在PPT中实现随机抽题功能。通过创建命令按钮和文本框，实现点击开始按钮后文本框滚动显示随机数字，停止时显示抽取的题号，并跳转至相应题目幻灯片。文章适合有一定编程基础的读者，提供了环境检查、步骤说明以及VBA简单示例。
摘要由CSDN通过智能技术生成

目录

目标/最终效果

目标是制作一个ppt，实现随机抽题，具体描述：

  • 第一页幻灯片中：点击开始按钮后，右边的文本框快速滚动 显示随机数字；点击停止按钮后，滚动停止，抽取到的题号会显示到第二个文本框中，并append到第三个文本框的内容中；然后点击跳转按钮，会跳转至相应题目的幻灯片。
  • 跳转题目幻灯片后，点击返回键，可返回到第一页幻灯片继续抽题。
  • 第一页幻灯片中，重置按钮将清除所有文本框的内容。

1265414-20190925101748982-1408595327.jpg

1265414-20190925102400030-950578866.jpg

1265414-20190925102637284-275834163.png

PS：本文适合具有一定编程基础的读者。

最终效果链接： https://pan.baidu.com/s/1C9gmVtLDvTbOOYabEqVlng 提取码：hxt7

注意应将文件保存为.pptmÿ

最低0.47元/天 解锁文章
weixin_30390075
关注 关注
  • 3
    点赞
  • 踩
  • 23
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
PPT抽奖程序-名单抽取
08-09
需要调整ppt的 “工具--》宏--》安全性” 设置为低级。 代码如下： Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Dim arrRM, F '输入名单到: TextBox1 采用单个空格分隔，最前和最后一个数据后不要留空格（否则可能部分元素抽出为空） '代码注释部分用于调试，或者你可以修改为其他用途，比如可以显示给用户观看。 Private Sub CommandButton1_Click() If Me.CommandButton1.Caption = "停" Then Me.CommandButton1.Caption = "开始" Call CQ_do("stop") Else Me.CommandButton1.Caption = "停" Call CQ_do("start") End If End Sub Private Sub CQ_do(doTag) Dim I If doTag = "start" Then arrRM = Split(Me.TextBox1, " ", -1, 1) '如果有需要你可以替换这里的空格，改为你需要的分隔符： 如个为英文分号 Split(Me.TextBox1, ";", -1, 1) ' TextBox3 = "" ' TextBox3.Visible = True ' TextBox4.Visible = True ' Me.TextBox4 = UBound(arrRM) & " " & arrRM(0) & " " & arrRM(UBound(arrRM)) F = 0 Do While True Sleep 30 I = Int(((UBound(arrRM) + 1) * Rnd) + 0) ' TextBox3 = TextBox3 & "-" & I TextBox2.Text = arrRM(I) If F = 1 Then Exit Do DoEvents Loop Else F = 1 End If End Sub Private Sub TextBox1_Change() End Sub Private Sub TextBox2_Change() End Sub
ppt抽奖vba代码
weixin_45793418的博客
01-18 2715
Dim n As Integer, stop_flag As Boolean’设置一个停止信号 Private Sub CommandButton1_Click() stop_flag = False TextBox1.Text = 0 TextBox2.Text = 0 TextBox3.Text = 0 TextBox4.Text = 0 TextBox5.Text = 0 CommandBu...
VBA实现EXCEL随机本地随机刷题
huaqitaishao的博客
08-17 4392
EXCEL随机本地随机刷题工具目的初衷功能简介使用步骤代码文件链接： 目的初衷 因近期公司内部考试，有些单选和多选的主观题库要进行背诵，但是由于是内部题库又不能上传的网上现有的刷题平台或者APP中。本来是定位快速方便的目的，因此就没有写程序实现，借助于EXCEL的VBA用了不到一个小时的时间，写了这个简单的小工具，来解决刷题的问题。 功能简介 可以实现再根据题目类型再对应的题库中抽取所指定数目的题，进行随机练习，全部答题完毕后可以查看对错情况。 使用步骤 将对应的题库按照，“单选”、“多选”、“不定项”S
ppt滚动动画随机选题
shaochuan_2008的博客
05-26 4662
ppt通过vba实现动画模拟随机选题，类似随机抽奖的模式
随机抽题软件C语言,ppt VBA 实现随机抽题
weixin_29304021的博客
05-20 1853
[TOC]目标/最终效果目标是制作一个ppt，实现随机抽题，具体描述：第一页幻灯片中：点击开始按钮后，右边的文本框快速滚动 显示随机数字；点击停止按钮后，滚动停止，抽取到的题号会显示到第二个文本框中，并append到第三个文本框的内容中；然后点击跳转按钮，会跳转至相应题目的幻灯片。跳转题目幻灯片后，点击返回键，可返回到第一页幻灯片继续抽题。第一页幻灯片中，重置按钮将清除所有文本框的内容。 PS...
如何用vba做答题、抽点类ppt
zhang35的博客
12-10 2392
首先严重声明一下，我不是ppt高手，酷炫动画、美化之类一概不会，我只会写点代码，汇报ppt做得要多丑有多丑。 16年底，有幸拿到一份答题ppt模板，接手做了“XX知识问答竞赛”ppt，包含选题答题、倒计时、随机抽点等功能，初次接触到了VBA（Visual Basic for Applications）编程。 于是自那以后包办了单位各种答题类ppt……最近利用工作间隙又干了一票，感到是时候总结一下，...
PowerPoint + VBA编程，实现滚动随机抽取+指定抽取
05-06
通过VBA编程，我们可以实现PPT幻灯片上的一个滚动效果，将所有参与者的名称或其他标识符动态显示，最终随机停在一个名字上，这就是抽中的幸运者。VBA代码可以控制滚动速度、次数和结果的随机性，使得整个过程既公正...
PPT VBA 课堂点名随机程序
09-30
课堂PPT 随机点名模板，利用VBA宏代码编写，在课堂点名时增加课堂氛围。
随机抽题系统
03-25
通过以上步骤，我们可以构建一个基于PPT的随机抽题系统，这不仅展示了PPT的多功能性，也体现了VBA在自动化任务中的强大能力。对于教育、培训领域的工作者来说，掌握这种技巧可以提升工作效率，同时也能为用户提供...
随机抽题ppt
04-01
用于晚会 大赛 年会 现场抽奖，使用ppt较为简便 操作
元宵随机谜语抽题系统
02-16
元宵随机谜语抽题系统，使用PPT放映，可自行编辑谜语题库和单位名称。
可随机抽取题目的不重复PPT课件.pptx
10-07
可随机抽取题目的不重复PPT课件.pptx
不可用不可用不可用.rar
11-20
不可用
一个抽奖PPT（VBA）
12-10
一个PPT版本的VBA抽奖小程序，通过随机选择播放的页数实现抽奖号码不同。
随机抽取姓名PPT （可用于抽奖 点名）
04-10
简单好用的多类型抽奖PPT，支持随机抽取数字、姓名等文字内容。 附有记录框，可连续抽取多次。抽奖过程有滚动动画，抽奖更加真实透明。 只需简单修改Excel文件便可轻松完成数据录入，并附有贴心的使用说明。 同时，...
ppt模拟动画随机选题
05-26
对于PPT来说，VBA可以用来编写宏，实现复杂的交互功能，如自动随机抽取题目。通过VBA，我们可以编写代码来控制幻灯片的跳转、设置动画触发条件，甚至读取外部数据源（如timu.xlsx）来获取题目。 “文档使用注意事项...
随机点名和抽题软件（可支持ppt扩展模式使用）
小涛29的博客
09-05 3632
随机点名和抽题软件（可支持ppt扩展模式使用）
利用PPT、Excel实现抽题
Abel的博客
11-20 4654
不管是在公司，还是学校，PPT、Excel已经成为不可缺少的一种工具，在各种活动中，有很多场合需要利用PPT实现随机抽题，本文将为你详细、详细、详细的教你如何使用PPT、Excel实现随机抽题！！！
请写一个VBA代码，让WPS PPT的词汇，随机填充不同的颜色
最新发布
06-08
以下是一个简单的VBA代码，可以随机为WPS PPT中的文本框填充不同的颜色： ```VBA Sub RandomColorFill() Dim shp As Shape Dim n As Integer Randomize ' 使随机数生成器随机化 For Each shp In ActivePresentation.Slides.Range.Shapes If shp.HasTextFrame Then For n = 1 To shp.TextFrame.TextRange.Words.Count ' 生成随机颜色，并将其应用到文本框的单个单词中 shp.TextFrame.TextRange.Words(n).Font.Color.RGB = RGB(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)) Next n End If Next shp End Sub ``` 这个代码会遍历当前演示文稿中的所有文本框，对每个文本框中的每个单词，随机生成一个颜色，并将其应用到该单词的字体颜色属性中。 请注意，这个代码可能会影响到整体的可读性，因此建议在使用前先备份演示文稿。同时，如果您只想随机填充某个特定的文本框，请将代码中的 `ActivePresentation.Slides.Range.Shapes` 替换为该文本框的对象。
写文章

热门文章

  • 修复压缩文件提示：现校验和错误。该文件已损坏 36286
  • 西门子S7报文解析 12126
  • JSON parse error: syntax error, expect {, actual error, pos 0, fastjson-version 1.2.58; nested excep... 11674
  • C# 判断List集合中是否有重复的项 11477
  • 通过使用 NTLite 工具实现精简Windows系统 9039

最新文章

  • WRK的使用-lua脚本POST请求（静态数据）
  • WRK的使用-lua脚本GET请求
  • 记录---百度地图marker中label现隐
2019年767篇
2018年772篇
2017年696篇
2016年547篇
2015年395篇
2014年321篇
2013年276篇
2012年223篇
2011年159篇
2010年116篇
2009年117篇
2008年88篇
2007年55篇
2006年41篇
2005年29篇
2004年8篇

目录

目录

评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值

玻璃钢生产厂家江苏景区玻璃钢雕塑定制盐城玻璃钢人物雕塑定做福建景区玻璃钢雕塑制作仙林商场中庭美陈玻璃钢雕塑华表左旗玻璃钢雕塑厂家甘孜玻璃钢卡通雕塑厂家河北节庆商场美陈销售企业平顶山哪里有玻璃钢雕塑南阳小区玻璃钢雕塑公司延边玻璃钢雕塑制造厂家保定玻璃钢卡通雕塑厂家上海室内商场美陈销售企业湖南花钵玻璃钢雕塑加工辽宁玻璃钢雕塑工程施工电话河北动物玻璃钢雕塑党建文化玻璃钢人物雕塑怎么样工业玻璃钢雕塑摆件市场怀化玻璃钢造型雕塑保山市玻璃钢雕塑费用玻璃钢红军雕塑公司推荐承德玻璃钢马雕塑厂家直供美陈玻璃钢动物雕塑代理价格全新玻璃钢雕塑厂家承诺守信天津商场主题创意商业美陈宜春玻璃钢花盆浙江通道商场美陈生产企业台湾玻璃钢牛雕塑上海卡通玻璃钢雕塑玻璃钢骆驼雕塑哪家实惠香港通过《维护国家安全条例》两大学生合买彩票中奖一人不认账让美丽中国“从细节出发”19岁小伙救下5人后溺亡 多方发声单亲妈妈陷入热恋 14岁儿子报警汪小菲曝离婚始末遭遇山火的松茸之乡雅江山火三名扑火人员牺牲系谣言何赛飞追着代拍打萧美琴窜访捷克 外交部回应卫健委通报少年有偿捐血浆16次猝死手机成瘾是影响睡眠质量重要因素高校汽车撞人致3死16伤 司机系学生315晚会后胖东来又人满为患了小米汽车超级工厂正式揭幕中国拥有亿元资产的家庭达13.3万户周杰伦一审败诉网易男孩8年未见母亲被告知被遗忘许家印被限制高消费饲养员用铁锨驱打大熊猫被辞退男子被猫抓伤后确诊“猫抓病”特朗普无法缴纳4.54亿美元罚金倪萍分享减重40斤方法联合利华开始重组张家界的山上“长”满了韩国人？张立群任西安交通大学校长杨倩无缘巴黎奥运“重生之我在北大当嫡校长”黑马情侣提车了专访95后高颜值猪保姆考生莫言也上北大硕士复试名单了网友洛杉矶偶遇贾玲专家建议不必谈骨泥色变沉迷短剧的人就像掉进了杀猪盘奥巴马现身唐宁街 黑色着装引猜测七年后宇文玥被薅头发捞上岸事业单位女子向同事水杯投不明物质凯特王妃现身！外出购物视频曝光河南驻马店通报西平中学跳楼事件王树国卸任西安交大校长 师生送别恒大被罚41.75亿到底怎么缴男子被流浪猫绊倒 投喂者赔24万房客欠租失踪 房东直发愁西双版纳热带植物园回应蜉蝣大爆发钱人豪晒法院裁定实锤抄袭外国人感慨凌晨的中国很安全胖东来员工每周单休无小长假白宫：哈马斯三号人物被杀测试车高速逃费 小米：已补缴老人退休金被冒领16年 金额超20万

玻璃钢生产厂家 XML地图 TXT地图 虚拟主机 SEO 网站制作 网站优化