PPT抽奖程序-名单抽取

所需积分/C币:46 2011-08-09 15:37:14 51KB APPLICATION/MSWORD
150
收藏 收藏
举报

需要调整ppt的 “工具--》宏--》安全性” 设置为低级。 代码如下: Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Dim arrRM, F '输入名单到: TextBox1 采用单个空格分隔,最前和最后一个数据后不要留空格(否则可能部分元素抽出为空) '代码注释部分用于调试,或者你可以修改为其他用途,比如可以显示给用户观看。 Private Sub CommandButton1_Click() If Me.CommandButton1.Caption = "停" Then

...展开详情
立即下载 低至0.43元/次 身份认证VIP会员低至7折
一个资源只可评论一次,评论内容不能少于5个字
火星元素 很好用,要是可以不显示在界面上就更好了
2018-05-05
回复
xiao_fang_zi 很好,公司年终奖抽奖用
2017-07-12
回复
deckster 恩,挺实用的
2015-05-19
回复
liguo77125 下载用了,挺不错,赞一个
2015-03-14
回复
wheelafterrain 不知道大家对于选一个就去掉一个采取的什么方法
2014-06-04
回复
牧歌樵唱 不错,挺实用~
2014-04-13
回复
Jerrold_ 请教下要怎么才能不重复的抽奖
2013-12-19
回复
kaka_deng 很不錯的軟件!
2013-12-10
回复
darkknight_seraph 很不错,刚好在最近有抽奖的时候使用了,哈哈,大家都觉得很实用,谢谢~~
2013-12-02
回复
大宝大宝吃饱睡好 不懂,VB不会额
2013-11-26
回复
上传资源赚积分or赚钱
    最新推荐