VBA数字抽奖如何不重复

坑人的石头

新手VBA制作PPT抽奖，现在只是单纯的实现了随机数1-120抽奖，但是会出现重复数字。
现问题如下：
1.如何实现抽出一轮数字之后剔除掉而不影响接下来的抽奖。


2.另外如何把抽中的数字显示到一边？


3.在设计标签背景色透明时无法成功，于是选了黑色背景掩盖，请问如何设置透明色。

以上，请大神现身指点！！！

感激不尽！！！

坑人的石头

自顶，求大神

坑人的石头

自顶，求大神

坑人的石头

PPT在此，请大神赐教

坑人的石头

神出鬼没的大神呢

坑人的石头

过了腊八就是年，新人在此祝大家新年快乐，大吉大利

坑人的石头

自顶一下，有没有哪位大神现身

笑着...两年过去

坑人的石头 发表于 2018-1-25 11:35
自顶一下，有没有哪位大神现身

见附件
号码抽奖如何不重复并显示抽奖结果.rar (860.32 KB, 下载次数: 219)

2018-1-25 12:30 上传

点击文件名下载附件

坑人的石头

笑着...两年过去 发表于 2018-1-25 12:30
见附件

感谢大神！代码标红的地方我目前还没学到，我正在百度学习！！！

Public a, b, c, d, e, f, i, j As Integer, s As New Collection, kk, l, Savetime As Single
Private Sub CommandButton1_Click()
b = 0
If j < 1 Then
    For i = 1 To 120
        s.Add i
    Next
    Slide2.Label3.Caption = ""
End If
Do While True
    a = s(Int(Rnd * s.Count + 1)): Label1.Caption = a
    c = s(Int(Rnd * s.Count + 1)): Label2.Caption = c
    d = s(Int(Rnd * s.Count + 1)): Label3.Caption = d
    e = s(Int(Rnd * s.Count + 1)): Label6.Caption = e
    f = s(Int(Rnd * s.Count + 1)): Label7.Caption = f
    Savetime = Timer
    While Timer < Savetime + 0.005
          DoEvents
    Wend
    If b = 1 Then Exit Do
Loop
End Sub

坑人的石头

笑着...两年过去 发表于 2018-1-25 12:30
见附件

大神，我试运行了一下，巧了发现两个重复的值，是不是五个LABEL单独不会重复，但是怎么避免他们五个会产生重复值呢？
请指教！