vba实例，用vba写一个有意思的抽奖系统

原创

于 2020-07-18 08:17:23 发布 · 3k 阅读

21 ·

CC 4.0 BY-SA版权

文章标签：

#vba

通过学习VBA，本文展示了如何创建一个适用于各种场合的抽奖系统。代码中，利用RANDBETWEEN函数从员工名单中随机选取中奖者，带来十足的惊喜效果。快来体验自己动手实现的成就感吧！

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

学代码，做出点东西特别有成就感，今天我们来完成一个抽奖系统，感受一下成就感带来的愉悦！come on!

先给你们展现一下成果：

用vba写一个有意思的抽奖系统

此抽奖适合各场合抽奖，随时准备震惊四座！

首先看一下我们的数据和页面

用vba写一个有意思的抽奖系统

来看一下代码吧：

注意：'抽奖系统!A1单元格看起来是空白的，其实是抽取的人员名单表中员工的所在行号，只是白色看不见它。

'A1单元格=RANDBETWEEN(2,COUNTA(人员名单!A:A))，这句话就是从2到员工总数，随机取一个数。

Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '暂停 64位系统

'Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '暂停  32位系统

Dim mark As Boolean
Sub 立即开始()

    [A2] = "=INDEX(人员名单!A:B,抽奖系统!A1,1)&CHAR(10)&INDEX(人员名单!A:B,抽奖系统!A1,