欢迎访问抖客教程网!

抖客教程网

您现在的位置是:主页 > 办公课堂 > Excel教程 > ExcelVBA实例 >

ExcelVBA实例

excel转动抽奖,电子表格excel转动抽奖器作弊

发布时间:2023-12-10 10:35:01ExcelVBA实例评论
1. excel转动抽奖器作弊 我们平时总用到excel表格,可是许多人还不知道excel表格是可以建造抽奖小措施的,这个措施对我们来说很是利便,无论是对付小公司,照旧大公司来说,这个都

1. excel转动抽奖器作弊

我们平时总用到excel表格,可是许多人还不知道excel表格是可以建造抽奖小措施的,这个措施对我们来说很是利便,无论是对付小公司,照旧大公司来说,这个都是抽奖的最好方式,那么怎么实现呢,下面我来教各人怎么操纵。

东西/原料

excel表格

电脑

方式/步调

1、我们打开excel表格,在表格中输入本次抽奖的奖品。

2、然后我们选中旁边一个大点的表格,扩选一下,再次点击“归并居中”。

3、接下来在空缺大表格中,我们输入“=RANDBETWEEN()”。

4、然后再后边小括号中输入“1,10”,个中1是横向第一行,10是纵向第十行,这个数字你们可以本身设定,按照奖品排数设定的。配置上述内容完毕后,我们需要在“=”后边加上“INDEX(A:A,”。最终我们输入的总数字是“=INDEX(A:A,RANDBETWEEN(1,10)”。

5、输入了完了“INDEX(A:A,”后,我们这时按下回车键,获得下图内容。

6、我们要将左边的奖品埋没掉,操纵方式是,右键点击坐标上面的“A”,点击菜单中的“埋没”选项。

7、最后我们按住“F9”转盘开始转了起来,松开F9停手,就可以抽到随机奖品, 这就是我们所说的抽奖小措施。

2. excel建造转动抽奖器

电子表格建造抽奖的方式如下:

1、第一:将所需抽奖的人员名字输入,虽然也可以输入编号,结果都是一样的,下面以人员名字举办模仿抽奖,在对应抽奖编号栏中输入公式“=RAND()”这其中奖编号是帮助抽奖利用的,没有实际意义,可是是必需要有的,需靠这个编号来挑选抽奖,将所有编号填充完成。

2、第二:在中奖人员名字一栏中输入公式“INDEX($B$4:$B$16,RANK(C4,$C$4:$C$16))”公式内数字与表格的数字需一一对应,各人可以本身调解,这里我是对应我的表格的数字。

3、第三:按动“F9”即可举办摇号抽奖,按住F9一直转动,松掉F9即可遏制。

3. vba建造转动抽奖软件

用以下方式,Excel 建造抽奖和抽班委道理一样的

我用的版本是 Excel 2016,其他版本的界面大概略有差异。

案例 1:怎么从 10 小我私家中一次性抽取 3 名获奖者,且所有中奖者不反复?

案例 2:怎么从 10 小我私家中依次抽取 1、2、3 等奖各 1 名,每次抽取后牢靠住获奖者,且所有中奖者不反复?

所需函数及成果:

RAND()

RANK(number, ref, [order])

INDEX(array, row_num,[column_num])

IF(logical_test,[value_if_true],[value_if_false])

Conditional Formatting

为了便于领略,我把每个步调拆开来讲授。

案例 1 办理方案:

以下是 10 小我私家员的名单,此刻需要从中一次性抽 3 个幸运儿。

1. 在 B 列用 Rand 函数生成 10 个随机数

2. 在 C 列用 Rank 函数对这 10 个随机数排序

公式:=RANK(B2,B$2:B$11)

翻译:计较 B2 单位格在 B2~B11 数组中的排名,默认从大到小排。

3. 在 D 列用 Index 函数按 C 列的随机排名抽出中奖者。因为需要一次抽 3 小我私家,所以我们拉 3 行公式即可。

公式:=INDEX(A$2:A$11,C2)

翻译:在A列的指定命组中,读取出第 n 行单位格

利用方式 :

按住 F9,数字开始转动,抽奖开始

放开按键,即为抽奖功效(因为 rand 函数根基不行能呈现反复值,所以中奖人不会反复)

* 请留意:由于随机函数每次城市随机变革,为了牢靠住获奖人员名单,请复制得胜者名单,而且 paste value 到其他单位格。

案例 2 办理方案:

增加的需求:

每次抽一小我私家,抽出后牢靠中奖者

不得反复中奖

1. 给 D 的公式加个 if 条件,同时增加帮助列 E

公式:=IF(E2=1,D2,INDEX(A$2:A$11,C2))

翻译:假如 E2 单位格为 1,则牢靠 D2 单位格的值,不然,继承抽奖

当我们在 E2 中输入“1”今后,无论何时按下或放开 F9 抽奖,D2 的“王7”始终是牢靠的。

此刻我们要抽第 2 小我私家,可是“王7”不行以反复中奖,如何做?

在不利用 vba 的环境下,此处推荐一种最轻便的方式。

2. 选中 D2~D11 --> 按 Ctrl + Q --> 选择 Formatting --> Duplicate Values

翻译:当“中奖者”区域内有反复人员,则高亮显示

如下,当我们抽第 2 小我私家的时候,又抽到了“王7”,会自动高亮显示。

3. 此刻抽奖器已经做好了,我们把模板调解雅观,再写个操纵说明。

1) 把人员名单及帮助列移到“人员名单”sheet 中

2) 选中 E 列,通过 Format Cells --> Custom,把“1”显示为“已中奖”

这就是最终的抽奖模板和利用说明,有时间的话,可以加点图片结果什么的,然后就可以在公司年会耍酷啦!

利用说明:

1、将介入抽奖的人员名单,维护在“人员名单”表内里

2、按住 F9 开始抽奖(此时可以看到B列内容一直在变革)

3、一会工夫,放手,B 列此时就是被选出来的“中奖人”

4、在 C 列的第一个黄色单位格输入“1”,以便把“中奖人”锁定

5、反复 2~4 步调抽二等奖(假如B列呈现赤色配景,则反复 2~3 步调)

6、以此类推,抽出三等奖

4. excel做随机抽奖摇奖器

用几个单位格组成奖券的正副券内容,加上编号,然后将这些单位格下拉复制。打印,裁剪即可。

5. Excel抽奖器

两个方式可以实现:

假设条件:本来的数据放在sheet1内里,sheet1名称就是sheet1:

第一:利用公式,在sheet2(你要存放抽取数据的新表)A1内里输入公式 =OFFSET(Sheet1!A$1,15*(ROW()-1),0)

向右拖动到空缺(sheet1内里最后一列UC),然后向下拖动到空缺(最后一行3500+)。

完成你的要求

热心评论

评论列表