ppt抽奖vba代码

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
CommandButton2.Enabled = True
Dim a, b, c, d, e As Integer, arr1, arr2, arr
arr1 = Array(1,2,3)
arr2 = Array(4,5,6)
arr = Split(Join(arr1, “,”) & “,” & Join(arr2, “,”), “,”)'抽奖人数多的时候用
Do
a = Int(Rnd() * 153)'rnd是[0,1)
b = Int(Rnd() * 153)
c = Int(Rnd() * 153)
d = Int(Rnd() * 153)
e = Int(Rnd() * 153)
TextBox1.Text = arr(a)
TextBox2.Text = arr(b)
TextBox3.Text = arr©
TextBox4.Text = arr(d)
TextBox5.Text = arr(e)
DoEvents’将事务交给计算机，可以进行其他操作
If stop_flag = True Then
Exit Do
End If
Loop
End Sub

Private Sub CommandButton2_Click()
CommandButton2.Enabled = False
stop_flag = True
End Sub

ppt抽奖vba代码相关推荐

VBA代码为ppt添加页码进度条
VBA代码为ppt添加页码进度条 fandroid 于 2015-05-25 15:31:28 发布 4617 已收藏 5 分类专栏: office 文章标签: vba ppt 版权 office ...
PPT里对指定三角形的三条边作垂直平分线的VBA代码
可以使用以下VBA代码:Sub SplitTriangle() Dim myTriangle As Shape, myLine As Shape Dim myPoint1 As Point, myPo ...
keil debug如何在watch直接修改变量值_零基础学VBA：什么是VBA？如何编写和运行VBA代码？...
HI,大家好,我是星光,今天咱们来继续学习VBA.在上一章咱们讲了为什么要学习VBA~VBA还值不值得学~学了还有没有用~零基础学VBA编程01:VBA还能不能学?学了还有没有用? 这一章咱们再来简单 ...
VBA代码助手,代码库收藏管理工具,代码对齐，破解Excel工程密码，设置隐藏模块
历时一个月的紧张开发,VBA代码助手专业版终于问世了,对原加载宏版VBA代码助手进行了全面升级,焕然一新的代码助手重装上阵,希望一如既往的带给大家最好的代码收藏管理和快速插入体验 ! 以前的老朋友应该 ...
PPT使用VBA批量删除图形
原因一般被分享的PPT都是转换成PDF格式,想要借鉴的时候,需要通过一些工具转换,转换后,原版的logo,页眉页脚什么都需要删除,如果PPT页数很多,就难以删除,因此有这篇文章第一阶段方案借鉴了 ...
升级：DNAtools for Excel工具箱，2.x英文版- VBA代码破解工具
原始出处:www.cnblogs.com/Charltsing/p/DnaTools.html QQ:564955427 DNA工具箱全部功能一览: 单元格焦点指示(支持Excel 2007~2 ...
vba excel 开发游戏_VBA代码助手专业版正式发布，让天下没有难写的VBA代码
历时一个月的紧张开发,VBA代码助手专业版终于问世了,对原加载宏版VBA代码助手进行了全面升级,焕然一新的代码助手重装上阵,希望一如既往的带给大家最好的代码收藏管理和快速插入体验 ! 以前的老朋友应该 ...
编写高效Excel VBA代码的最佳实践(一)
很多Excel VBA文章和图书都介绍过如何优化VBA代码,使代码运行得更快.下面搜集了一些使Excel VBA代码运行更快的技术和技巧,基本上都是实践经验的总结.如果您还有其它优化Excel VBA ...
vba代码编程800例_VBA编程常用“积木”过程代码Address的含义
蓝字关注,加微信NZ9668获资料信息 VBA解决方案系列丛书作者头条百家平台 VBA资深创作者 _______________________________ 大家好,今日继续和大家分享 ...
vba代码编程800例_一组实用的VBA常用编程代码语句分享
蓝字关注,加微信NZ9668获资料信息 VBA解决方案系列丛书作者头条百家平台 VBA资深创作者 _______________________________ 分享成果,随喜真能量.大家 ...

ppt抽奖vba代码

ppt抽奖vba代码相关推荐

最新文章

热门文章