ExcelVBA实例
excel转动抽奖,电子表格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+)。
完成你的要求