PPT抽奖程序-名单抽取

时间:2014-08-29 09:23:54
【文件属性】:

文件名称:PPT抽奖程序-名单抽取

文件大小:51KB

文件格式:PPT

更新时间:2014-08-29 09:23:54

PPT 抽奖程序 演示文稿 名单抽取

需要调整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


网友评论

  • 很好用,要是可以不显示在界面上就更好了
  • 很好,公司年终奖抽奖用
  • 恩,挺实用的
  • 下载用了,挺不错,赞一个
  • 不知道大家对于选一个就去掉一个采取的什么方法
  • 不错,挺实用~
  • 请教下要怎么才能不重复的抽奖
  • 很不錯的軟件!
  • 很不错,刚好在最近有抽奖的时候使用了,哈哈,大家都觉得很实用,谢谢~~
  • 不懂,VB不会额
  • 不错,适合出学者学习!!
  • 不错,就是界面有待优化,适合学习与自己制作使用
  • 纯VBA的编程,不错,适合出学者学习!!
  • 8错 很好的vba代码
  • 用vba编写的一小段代码,还是比较有意思的, 可做参考用.