excel表格抽奖怎么做？

02

找到“常用”并单击右侧，然后找到复选框“在功能区上显示开发人员选项卡”并按确定。

03

单击开发工具以调出开发控件。

04

使用转移的开发控件，2个标签，2个文本框和1按钮。结合Excel知识，制作如下界面。

05

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

06

添加VBA代码:

选件基础1

尺寸t1为长'范围1

将t2设为长范围2

整数形式的彩票号码

Dim num为整数

Sub auto_open()

申请。OnKey“{ ENTER }”，“cj”

申请。OnKey "~ "，" cj "

末端接头

整数形式的公共函数tj(lb)

将k标注为整数

k = 2

做

设置myR =张数(磅)。单元格(k，1)

如果修剪(马来西亚元。Value) = "" Then '有一个空记录。

出口Do

如果…就会结束

k = k + 1

循环直到错误

tj = k - 1

结束功能

公共函数csf()

num = tj("temp ")

带工作表(“临时”)

t1 =。单元格(数字，3)。价值

t2 =。单元格(数字，4)。价值

以…结尾

工作表(“彩票计划”)。文本框1。Text = t1。

工作表(“彩票计划”)。文本框2。Text = t2。

结束功能

公共函数cj()

num = tj("temp ")

打电话给csf

打电话给cjsz

结束功能

公共函数cjsz()

尺寸r(10)

对于i = 1至10

xh = False

做

d = Int((T2-t 1+1)* Rnd+t 1)

j = 0

做

j = j + 1

如果r(j) = d，则

xh = False

出口Do

其他

xh = True

如果…就会结束

循环直到j & gt=我

循环直到xh = True

r(i) = d

接下来我

尺寸b(1至10)

对于i = 1至10

b(i) =应用。工作表Function.Small(r，I)

工作表(“彩票计划”)。Label1。标题= " "

然后

对于j = 1至10

对于i = 1到2000

如果我Mod 100 = 0，那么

多项活动

如果…就会结束

m = Int((T2-t 1+1)* Rnd+t 1)

工作表(“彩票计划”)label2.caption = format (m，“00000”)

接下来我

d = b(j)

工作表(“彩票计划”)label2.caption = format (d，“00000”)

工作表(“彩票计划”)。标签1。标题=工作表(“彩票计划”)。标签1。标题&；”& amp工作表(“彩票计划”)标签2。标题

下一个j

Nn = tj(“统计”)

使用工作表(“统计”)

。单元格(nn + 1，1)。值= nn

。单元格(nn + 1，2)。值=日期

。单元格(nn+1，3)。价值=工作表(“彩票计划”)。Label1。标题

以…结尾

对于i = 1到14

j = nn + 2 - i

如果j & gt那么1

使用工作表(“统计”)

a =。细胞(nn + 2 - i，2)。价值

c =。细胞(nn + 2 - i，3)。价值

以…结尾

带工作表(“抽奖程序”)

。单元格(i + 1，14)。值= a

。单元格(i + 1，15)。值= c

以…结尾

其他

为...退出

如果…就会结束

接下来我

结束功能

07

点击按钮测试并获得随机中奖号码。