[已解决]摇号抽奖求助！

lgpoo · 发表于 2012-11-30 08:31

求助：
一个类似于摇号抽奖的小程序。
所有300组客户资料在“客户名单”中。
通过点击“开始摇号”，产生先后序号，
位次号需要依批次改变，摇号抽出的具体数据填如下面的名次栏里面。
客户所有名单最好要在摇号区滚动闪现，点击停止键，停止。当然已经被选出的客户资料不能闪现。

求助达人！

最佳答案

月排行榜 / 总排行榜

zjdh

2012-11-30 16:19

与原帖回复又有改动

摇号.rar (25.83 KB, 下载次数: 56)

zjdh · 发表于 2012-11-30 16:19

与原帖回复又有改动

摇号.rar (25.83 KB, 下载次数: 56)

zjdh · 发表于 2012-11-30 16:22

你再看看 .

lgpoo · 发表于 2012-12-2 11:15

zjdh 发表于 2012-11-30 16:19
与原帖回复又有改动

不懂就在论坛查，勉强能读懂老师的代码。
但是我还是不明白，您是怎么使这个抽出的客户从这ARR 数组中剔除的！
Sub 摇号()
ARR = Sheet2.Range("A2:C" & Sheet2.Range("A65536").End(3).Row)
If M * 1 < 1 Then ReDim BRR(1 To UBound(ARR))
If M * 5 >= UBound(ARR) Then
      MsgBox "选房客户已经抽取完毕！"
      停止
      Exit Sub
End If
Range("A3:C7").ClearContents
Range("A1") = "第 " & M + 1 & " 批次选房客户名单"
For I = 1 To 5
      Range("A" & I + 2) = "第 " & M * 5 + I & " 位"
Next
S = 0
For R = 1 To 500
      For I = 1 To UBound(ARR)
         If BRR(I) <> -1 Then BRR(I) = Rnd()
      Next
      ReDim T(1 To 5)
      For J = 1 To 5
         For I = 1 To UBound(BRR)
            If M * 5 + J > UBound(ARR) Then Exit For
            If BRR(I) = Application.Large(BRR, J) Then
                  T(J) = I
                  Cells(J + 2, 2) = ARR(I, 1)
                  Cells(J + 2, 3) = ARR(I, 2)
                  Exit For
            End If
         Next
      Next
      VBA.DoEvents
      If S = 1 Then Exit Sub
Next
End Sub

zjdh · 发表于 2012-12-2 13:05

你没把宏看全！
不是有If BRR(I) <> -1 Then BRR(I) = Rnd()吗？
在“出号”宏中对BRR已经出号的行做了标识“-1”

lgpoo · 发表于 2012-12-2 14:11

zjdh 发表于 2012-12-2 13:05
你没把宏看全！
不是有If BRR(I) -1 Then BRR(I) = Rnd()吗？
在“出号”宏中对BRR已经出号的行做了标识 ...

恩看了还是觉得太深奥了！
这些您是怎么学来的！我如果想系统的学一下，怎么学呢！

zjdh · 发表于 2012-12-2 17:36

就是在坛子里学的，多看看高手们的回帖、多实践自然就理解啦！
蓝版主的80集视频确实是个好教材！！

lgpoo · 发表于 2012-12-3 08:50

zjdh 发表于 2012-12-2 17:36
就是在坛子里学的，多看看高手们的回帖、多实践自然就理解啦！
蓝版主的80集视频确实是个好教材！！

谢谢，跟老师学习！

guojun3113 · 发表于 2016-9-22 09:24

不能读取附件啊

羽祥 · 发表于 2016-12-6 21:24

谢谢分享！！！！！！！

		自动登录	找回密码
密码			注册

[已解决]摇号抽奖求助！

相关帖子