ppt VBA 实现随机抽题

最新推荐文章于 2024-05-31 16:57:29 发布
最新推荐文章于 2024-05-31 16:57:29 发布
阅读量4.3k 收藏 22
点赞数 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
    点赞
  • 踩
  • 22
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
ppt抽奖vba代码
weixin_45793418的博客
01-18 2651
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抽奖ppt 深蓝计协电竞大赛
qq_45324272的博客
01-05 801
ppt抽奖程序 vba程序书写
在Office的PPT中，利用ActiveX控件和VBA代码实现相关功能
最新发布
造钞
05-31 794
桥宽从TextBox2中获得，桥长从TextBox1中获得，相机数量默认为1台，但其最大相机数量为（ComboBox1 ）：（桥宽/1.82）取整。图像采集小车的移动速度为TextBox3控件中的值，如果TextBox3中的值大于3m/s，则需要弹框提醒用户，最大限速为3m/s ，并进行重新输入有效数据。无人巡检大车的移动速度为TextBox4控件中的值，如果TextBox4 中的值大于0.42m/s，则需要弹框提醒用户，最大限速为0.42m/s ，并进行重新输入有效数据。下面看如何实现这一功能。
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
VBA实现EXCEL随机本地随机刷题
huaqitaishao的博客
08-17 4238
EXCEL随机本地随机刷题工具目的初衷功能简介使用步骤代码文件链接： 目的初衷 因近期公司内部考试，有些单选和多选的主观题库要进行背诵，但是由于是内部题库又不能上传的网上现有的刷题平台或者APP中。本来是定位快速方便的目的，因此就没有写程序实现，借助于EXCEL的VBA用了不到一个小时的时间，写了这个简单的小工具，来解决刷题的问题。 功能简介 可以实现再根据题目类型再对应的题库中抽取所指定数目的题，进行随机练习，全部答题完毕后可以查看对错情况。 使用步骤 将对应的题库按照，“单选”、“多选”、“不定项”S
随机抽题软件C语言,ppt VBA 实现随机抽题
weixin_29304021的博客
05-20 1821
[TOC]目标/最终效果目标是制作一个ppt，实现随机抽题，具体描述：第一页幻灯片中：点击开始按钮后，右边的文本框快速滚动 显示随机数字；点击停止按钮后，滚动停止，抽取到的题号会显示到第二个文本框中，并append到第三个文本框的内容中；然后点击跳转按钮，会跳转至相应题目的幻灯片。跳转题目幻灯片后，点击返回键，可返回到第一页幻灯片继续抽题。第一页幻灯片中，重置按钮将清除所有文本框的内容。 PS...
如何用vba做答题、抽点类ppt
zhang35的博客
12-10 2354
首先严重声明一下，我不是ppt高手，酷炫动画、美化之类一概不会，我只会写点代码，汇报ppt做得要多丑有多丑。 16年底，有幸拿到一份答题ppt模板，接手做了“XX知识问答竞赛”ppt，包含选题答题、倒计时、随机抽点等功能，初次接触到了VBA（Visual Basic for Applications）编程。 于是自那以后包办了单位各种答题类ppt……最近利用工作间隙又干了一票，感到是时候总结一下，...
随机抽题ppt
04-01
用于晚会 大赛 年会 现场抽奖，使用ppt较为简便 操作
元宵随机谜语抽题系统
02-16
元宵随机谜语抽题系统，使用PPT放映，可自行编辑谜语题库和单位名称。
VBA中数组（Array）与随机数（Rnd）的使用
思月行云
11-18 7161
作者：奔跑的犀牛先生 本文链接：https://blog.csdn.net/xuemanqianshan/article/details/88962097 一 数组 array 1.1 数据定义 静态数组：长度不变的数组 动态数组：长度不定的数组，需要redim 数组 arr() 必须先声明后才可以使用！ 1.2数组的index下标 （1）数组的index下标应该是从...
PPT VBA 课堂点名随机程序
09-30
课堂PPT 随机点名模板，利用VBA宏代码编写，在课堂点名时增加课堂氛围。
Excel Vba课堂随机点名程序
02-08
这个资源是我当时写这个程序的代码，进入excel按我的教程http://blog.csdn.net/u012343179/article/details/49833965 做一遍应该得到的是一样的结果。 如果不知道怎么使用这两个文件，可以百度一下。 里面有个word文档，里面的图片链接可能没用了，大家参考教程就行了。
Excel VBA随机抽奖程序
04-20
用Excel VBA做的简易随机抽奖程序，随机抽取，不会重复抽取，供各位VBA爱好者参考！
PPT、Excel实现随机抽题.rar
11-20
PPT、excel随机抽题 不管是在公司，还是学校，PPT、Excel已经成为不可缺少的一种工具，在各种活动中，有很多场合需要利用PPT实现随机抽题，本文将为你详细、详细、详细的教你如何使用PPT、Excel实现随机抽题！！！
PowerPoint + VBA编程，实现滚动随机抽取+指定抽取
05-06
一款以PPT为基础 + vba代码的小程序，可以自定义滚动选取的内容，随机进行抽取，也可以指定要抽取的内容
利用PPT、Excel实现抽题
Abel的博客
11-20 4496
不管是在公司，还是学校，PPT、Excel已经成为不可缺少的一种工具，在各种活动中，有很多场合需要利用PPT实现随机抽题，本文将为你详细、详细、详细的教你如何使用PPT、Excel实现随机抽题！！！
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值