今天给大家分享一个Excel版本的抽奖器，先看下效果（文末有本节素材的下载方式）：

点击开始按钮方框内的名单开始滚动，点击暂停即可抽出获奖名单。

搞懂本案例的代码，抽奖界面和人员名单可以随意修改，公司开大会抽奖环节就可以拿它来抽奖。

代码如下：

Sub START()

Dim arr, n%, a%

[B1] = 1

[C2] = ""

'获取候选人名单

arr = Range("A2:A31")

n = UBound(arr)

ReDim brr(1 To 7)

'随机选出1个候选人的序号

Do

Randomize

a = Int(Rnd() * n + 1)

[C5] = [C6]

[C6] = [C7]

[C7] = [C8]

[C8] = [C9]

[C9] = [C10]

[C10] = [C11]

[C11] = arr(a, 1)

DoEvents

Loop Until [B1] = 0

'在工作表中显示获奖者

Range("C2").Value = "恭喜 " & [C8].Value & " 获得大奖！"

End Sub

Sub PAUSE()

If [B1] = 1 Then

[B1] = 0

Else

[B1] = 1

End If

End Sub