如何制作抽奖程序

在Excel表格里，我们想要制作抽奖程序，做出随机抽奖的效果，下面是具体的 *** 作步骤。

打开Excel表格，首先我们输入一个函数:=INDEX()。

首先我们选中第1列的姓名，然后输入逗号，再输入函数，将公式补充完整为：=INDEX(A:A,RANDBETWEEN(4,15)

按下回车键之后，按住F9不松就可以开始随机抽奖，松开F9就可以得出抽奖结果.

01打开excel，并点击excel的最左上角的图标，找到“Excel 选项”。

02

找到“常用”点击，然后在右侧找到“在功能区显示‘开发工具’选项卡”复选框打钩，按确定。

03

点击开发工具，调出开发控件

04

利用调出的开发控件，2个Label，2个TextBox，1个按钮。结合Excel知识，制作如下界面。

05

可以在视图中找到宏，也可以在开发工具中找到宏。然后打开宏编辑。

06

添加VBA代码：

Option Base 1

Dim t1 As Long '范围1

Dim t2 As Long '范围2

Dim czh As Integer '抽奖号码

Dim num As Integer

Sub auto_open()

Application.OnKey "{ENTER}", "cj"

Application.OnKey "~", "cj"

End Sub

Public Function tj(lb) As Integer

Dim k As Integer

k = 2

Do

Set myR = Sheets(lb).Cells(k, 1)

If Trim(myR.Value) = "" Then '出现空记录

Exit Do

End If

k = k + 1

Loop Until False

tj = k - 1

End Function

Public Function csf()

num = tj("temp")

With Worksheets("temp")

t1 = .Cells(num, 3).Value

t2 = .Cells(num, 4).Value

End With

Worksheets("抽奖程序").TextBox1.Text = t1

Worksheets("抽奖程序").TextBox2.Text = t2

End Function

Public Function cj()

num = tj("temp")

Call csf

Call cjsz

End Function

Public Function cjsz()

Dim r(10)

For i = 1 To 10

xh = False

Do

d = Int((t2 - t1 + 1) * Rnd + t1)

j = 0

Do

j = j + 1

If r(j) = d Then

xh = False

Exit Do

Else

xh = True

End If

Loop Until j >= i

Loop Until xh = True

r(i) = d

Next i

Dim b(1 To 10)

For i = 1 To 10

b(i) = Application.WorksheetFunction.Small(r, i)

Worksheets("抽奖程序").Label1.Caption = ""

Next

For j = 1 To 10

For i = 1 To 2000

If i Mod 100 = 0 Then

DoEvents

End If

m = Int((t2 - t1 + 1) * Rnd + t1)

Worksheets("抽奖程序").Label2.Caption = Format(m, "00000")

Next i

d = b(j)

Worksheets("抽奖程序").Label2.Caption = Format(d, "00000")

Worksheets("抽奖程序").Label1.Caption = Worksheets("抽奖程序").Label1.Caption &" " &Worksheets("抽奖程序").Label2.Caption

Next j

nn = tj("数据统计")

With Worksheets("数据统计")

.Cells(nn + 1, 1).Value = nn

.Cells(nn + 1, 2).Value = Date

.Cells(nn + 1, 3).Value = Worksheets("抽奖程序").Label1.Caption

End With

For i = 1 To 14

j = nn + 2 - i

If j >1 Then

With Worksheets("数据统计")

a = .Cells(nn + 2 - i, 2).Value

c = .Cells(nn + 2 - i, 3).Value

End With

With Worksheets("抽奖程序")

.Cells(i + 1, 14).Value = a

.Cells(i + 1, 15).Value = c

End With

Else

Exit For

End If

Next i

End Function

07

点击按钮测试，得到随机中奖编号

---