使用PPT编写一个序号抽奖

最新推荐文章于 2023-08-07 16:12:35 发布
最新推荐文章于 2023-08-07 16:12:35 发布
阅读量3.2k 收藏 5
点赞数 1
文章标签： PPT随机数
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/KEY_Init/article/details/103257906
版权
本文介绍了如何使用PPT内置的VB功能制作一个随机数抽奖程序。通过在PPT中添加控件并编写代码，调整控件参数，设置字体大小，最终形成一个可以运行的宏，实现抽奖功能。
摘要由CSDN通过智能技术生成

PPT编写随机数抽奖

某次学校学生会需要一个ppt随机数抽奖，群里有两位大神先解决了问题，我也试着尝试了一下，搜了网上好多资料，用了两个小时终于做好了，话说，原来PPT可以写VB吗
首先，新建一个PPT在开发工具中找到各项控件，拖动到PPT中
在这里插入图片描述双击控件，对各空间进行代码操作，在属性中调节各个控件的参数，需要时修改下字体大小，将对话框关闭后放映PPT即可。

在这里插入图片描述在这里插入图片描述额外说明：因为用到了宏所以需要另存一个可以支持宏的PPT，后缀由pptx变为pptm

Public a, b As Integer
Private Sub CommandButton1_Click()
b = 0
Do While True
a = 1 + Int
最低0.47元/天 解锁文章
KEY_Init
关注
ppt编写一个抽奖系统
Tertiary_grass
04-28 3万+
本文是用ppt制作一个抽奖系统，点击开始抽取时，屏幕会随机滚动数字，点击停止滚动即显示抽取到的数字。 一、制作过程 第一步：打开ppt（我用的是wps） 第二步：点开“开发工具”如下图： 第三步：在控件区选择按钮控件和标签控件： 第四步：生成如下图的样式： 第五步：右击左下角的按钮控件出现如下，点击属性，出现下图。
ppt编写一个抽奖系统_PPT抽奖程序
weixin_39655689的博客
01-14 700
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '参数是长整形(毫秒数)。Lib “kernel32”标明这个函数是引用kernel32.dll提供的函数。Kernel32.dll是windows的四个核心库之一。是用来延时n毫秒的Dim s As New Collection, f As Boolea...
PPT抽奖小程序
12-07
PPT开发工具抽奖代码，VBA代码，需要的大家可以下载的。
公司年会自制抽奖PPT
03-01
利用VBA宏代码制作公司年会抽奖PPT，随机无作弊版。自动读取、随机抽取同目录内的namelist.txt列表的名单。已中奖名单自动排除不会重复。namelist.txt列表每个名单占一行，需要排除时在名字后加*号。
ppt抽奖vba代码
weixin_45793418的博客
01-18 2769
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...
ppt随机中奖或点名程序
最新发布
zhangpiwu的博客
08-07 655
arrRM = Split(Me.TextBox1, " ", -1, 1) '如果有需要你可以替换这里的空格，改为你需要的分隔符： 如个为英文分号 Split(Me.TextBox1, “;'输入名单到: TextBox1 采用单个空格分隔，最前和最后一个数据后不要留空格（否则可能部分元素抽出为空）If Me.CommandButton1.Caption = “停” Then。Me.CommandButton1.Caption = “开始”Me.CommandButton1.Caption = “停”
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 抽奖
禅：戒定慧
01-08 1173
在工作中会用到年会以及一些场景的时候，会使用到进行抽奖的环节， 1.以抽奖为例， 题目： 需要进行抽5等奖，5等奖共抽取人数52人，抽5次，分别按照数量10，10，10，10，12进行抽奖，且人员不能重复抽奖，抽奖后的数据需要保存， PPT的代码和excel的代码不打一致，所有就导致了在运行的过程中会有一些的不习惯，直接上代码 Dim xlapp As Excel.Application //在使用中定义excel，后续进行调用 Dim flag As Boolean //定义开关量 Dim temp A
ppt中使用抽奖 用编程实现
04-07
ppt中使用抽奖 用编程实现 两种方式。 含源代码和ppt模版
字体单独设置样式_WORD工具批量表格设置样式
weixin_29865939的博客
01-12 441
本程序主要功能是设置word表格的功能特别说明:电脑上如果有360杀毒软件,第一次使用前请关闭右下角任务栏的360杀毒和360安全卫士,否则它会阻止程序的运行.有关为什么会阻止程序运行的贴子:http://www.myexceptions.net/vb/124162.html首先用word打开并开启宏:https://www.xuexila.com/word/2003/39165...
PPT抽奖程序（年会抽奖、点名）
08-11
PPT制作的抽奖程序（可用于年会抽奖、点名），也可以自己在宏代码中更改总数。建议在Powerpoint 2016及以上版本运行。
VBA写的PPT抽奖程序
12-07
简单的VBA实现PPT抽奖程序，名单不会被反复抽取
ppt随机抽号程序
05-20
ppt随机抽号程序(原始)程序,可作公司抽奖使用。
抽取序号的软件
01-08
可以用来抽取序号哦亲，可以任意调区间，并且操作也比较简单
数字编号批量滚动抽奖代码实现
11-13
数字编号批量滚动抽奖代码实现，能实现一次抽7个编号（不少代码有注释），有兴趣的朋友可以下载改良一下！
一些活动中使用的不重复抽奖PPT
02-10
抽奖程序在各种活动中被广泛应用，尤其在节日庆典、公司年会、促销活动等场合，能够增加...总的来说，不重复抽奖PPT是一个结合Excel数据管理和PPT展示技术的实用工具，通过巧妙的编程和设计，能为活动增添不少乐趣。
简单的年会抽奖PPT
01-12
简单的关于PPT抽奖功能，适用于2到20人范围，可以做参考学习
随机抽取姓名PPT （可用于抽奖 点名）
04-10
这个抽奖PPT文件 经过了数百用户的实践测试 改进数版而来 基本可以正常使用（有问题可以向我反馈 代码问题我会跟进解决） 为方便大家上手 文件夹“【必看】使用说明”里作了操作方法的详细描述 有需要的可以详细看看
使用ppt制作年会大抽奖（宏-vb）
01-13
年会大抽奖，用PPT制作，使用宏，包含vb代码
编写一个实现集控平台的PPT
06-03
但是，我可以为您提供一些参考，帮助您编写一个实现集控平台的PPT。 1. 确定PPT的主题和结构：您可以根据自己的需求和目标，确定PPT的主题和结构，例如：介绍集控平台的概念、功能、应用场景、优势等。 2. 设计PPT...
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值