使用PPT编写一个序号抽奖

最新推荐文章于 2024-11-27 15:14:51 发布

原创

最新推荐文章于 2024-11-27 15:14:51 发布 · 3.8k 阅读

5 ·

CC 4.0 BY-SA版权

文章标签：

#PPT随机数

本文介绍了如何使用PPT内置的VB功能制作一个随机数抽奖程序。通过在PPT中添加控件并编写代码，调整控件参数，设置字体大小，最终形成一个可以运行的宏，实现抽奖功能。

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(Rnd() * 300

最低0.47元/天解锁文章

确定要放弃本次机会？

福利倒计时

: :

立减 ¥

普通VIP年卡可用

立即使用

KEY_Init

关注关注

1
点赞
踩
5

收藏

觉得还不错? 一键收藏
2
评论
分享

复制链接

分享到 QQ

分享到新浪微博

扫一扫
举报

举报

PPT 抽奖

禅：戒定慧

01-08

1671

在工作中会用到年会以及一些场景的时候，会使用到进行抽奖的环节， 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抽奖程序-名单抽取

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

2 条评论您还未登录，请先登录后发表或查看评论

【服务器正在运行中】以及【切换到】等错误问题的解决

热门推荐

06-17

8万+

软件系统在使用过程中,有时候会弹出这个界面,如下图: A.首先关闭PPT进程及打分软件: 第一步:点击上方弹出的提示对话框中,点击【切换到】按钮,观察ppt是否正常启动,如果此对话框一直存在,无法消除，进入第二步。第二步:打开【 Windows任务管理器】，切换至【进程】标签, 如果有ppt进程的话,定位至POWERPNT.EXE,点击【结束进程】按钮,杀死此进程。(如果出现多个P...

如何使用PPT图像电子相册,打造一场专业的图片抽奖活动?

格码老师教编程

11-07

2109

正文:

PPT抽奖小程序

12-07

PPT开发工具抽奖代码，VBA代码，需要的大家可以下载的。

ppt编写一个抽奖系统

Tertiary_grass

04-28

4万+

本文是用ppt制作一个抽奖系统，点击开始抽取时，屏幕会随机滚动数字，点击停止滚动即显示抽取到的数字。一、制作过程第一步：打开ppt（我用的是wps）第二步：点开“开发工具”如下图：第三步：在控件区选择按钮控件和标签控件：第四步：生成如下图的样式：第五步：右击左下角的按钮控件出现如下，点击属性，出现下图。

ppt抽奖vba代码

weixin_45793418的博客

01-18

3129

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

02-10

抽奖程序在各种活动中被广泛应用，尤其在节日庆典、公司年会、促销活动等场合，能够增加...总的来说，不重复抽奖PPT是一个结合Excel数据管理和PPT展示技术的实用工具，通过巧妙的编程和设计，能为活动增添不少乐趣。

简单的年会抽奖PPT

01-12

简单的关于PPT抽奖功能，适用于2到20人范围，可以做参考学习

PPT抽奖程序（年会抽奖、点名）

08-11

PPT制作的抽奖程序（可用于年会抽奖、点名），也可以自己在宏代码中更改总数。建议在Powerpoint 2016及以上版本运行。

ppt中使用抽奖用编程实现

04-07

ppt中使用抽奖用编程实现两种方式。含源代码和ppt模版

ppt随机抽号程序

05-20

ppt随机抽号程序(原始)程序,可作公司抽奖使用。

VBA写的PPT抽奖程序

12-07

简单的VBA实现PPT抽奖程序，名单不会被反复抽取

抽取序号的软件

01-08

可以用来抽取序号哦亲，可以任意调区间，并且操作也比较简单

数字编号批量滚动抽奖代码实现

11-13

数字编号批量滚动抽奖代码实现，能实现一次抽7个编号（不少代码有注释），有兴趣的朋友可以下载改良一下！

随机抽取姓名PPT （可用于抽奖点名）

04-10

这个抽奖PPT文件经过了数百用户的实践测试改进数版而来基本可以正常使用（有问题可以向我反馈代码问题我会跟进解决）为方便大家上手文件夹“【必看】使用说明”里作了操作方法的详细描述有需要的可以详细看看

ppt编写一个抽奖系统_PPT抽奖程序

weixin_39655689的博客

01-14

891

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...

字体单独设置样式_WORD工具批量表格设置样式

weixin_29865939的博客

01-12

515

本程序主要功能是设置word表格的功能特别说明:电脑上如果有360杀毒软件,第一次使用前请关闭右下角任务栏的360杀毒和360安全卫士,否则它会阻止程序的运行.有关为什么会阻止程序运行的贴子:http://www.myexceptions.net/vb/124162.html首先用word打开并开启宏:https://www.xuexila.com/word/2003/39165...

年会PPT抽奖小程序（不重复代码）