制作EXCEL抽奖的代码

制作EXCEL抽奖的代码：![主界面图]](https://img-blog.csdnimg.cn/4a9932ffbd3b40eda676ddc7f7fd7067.png#pic_center)

Dim bstop
Dim gdsudu
Dim jiasudu
Sub choujiang()
Dim arr_renyuan
Dim rs, zb
Dim mrgdsudu

bstop = False

With ThisWorkbook.Sheets(“参数表”)
rs = .Range(“C2”).Value
mrgdsudu = .Range(“C3”).Value
jiasudu = .Range(“C4”).Value
arr_renyuan = .Range(“A1:A” & rs)
gdsudu = mrgdsudu
End With

With ActiveSheet
.[H9].Font.Size = 100

Do
    .[H9] = arr_renyuan(Application.RandBetween(1, rs), 1)
    If gdsudu <= 0 Then gdsudu = mrgdsudu
    Delay gdsudu
    
Loop Until bstop = True
zb = Application.RandBetween(2, 8)
For i = 2 To zb
    .[H9] = arr_renyuan(Application.RandBetween(1, rs), 1)
    Delay 0.7
Next
With .[H9]
    For i = 1 To 2
        
        .Font.Size = 200
        Delay 0.3