高逼格|Excel抽奖小工具,可直接套用(用Excel制作公司年会的抽奖系统) | 您所在的位置:网站首页 › Excel抽奖券样式 › 高逼格|Excel抽奖小工具,可直接套用(用Excel制作公司年会的抽奖系统) |
`
已踏入工作的小伙伴最期待的当然是公司年会抽奖环节,吃不吃饭都无所谓的,如果能抽到个大奖,必然是一件很开心的事情~ 现在大部门公司抽奖都是用编程技术制作个小程序,今天我们就说说如何利用Excel去制作一个抽奖小系统。 下面中点击【开始】按钮,屏幕上开始滚动员工姓名,点击【停止】按钮,抽出中奖人,并将中奖人名单添加到表格中去,方便领奖,同时已中奖者将不会参与后面的抽奖环节。 ![]() 是不是很有意思呢?下面详细说说这个小系统的制作方法~ 思路 一共制作三个小控件,【开始】按钮控制程序运行,【停止】按钮控制程序暂停,【清除】按钮清除已中奖者名单; 在用一个单元格展示人员名单滚动效果; 最后选定一块区域用于存放中奖者名单。 基本布局 选中Excel中一块区域,第一第二行合并单元格展示名称,B4单元格字体调大用于员工姓名滚动,D4:H12区域用于存放中奖者名单,格式调整比较简单,这里不再赘述。 ![]() 添加控件 点击【开发工具】—【插入】,选择第一个【按钮】控件,插入,暂时先不指定宏,点击【取消】,将控件名字修改为【开始】,同理插入【停止】、【清除】控件,如下图所示: ![]() ![]() 人员名单准备 插页1【Sheet1】为抽奖系统界面,插页2【人员名单列表】为员工名单存放列; ![]() 输入代码 一共输入三段代码: 第一段: ![]() 第二段&第三段: ![]() 指定控件 回到插页系统界面,依次选中控件,右键选择【指定宏】,依次选择对应的宏,自此,程序完成。 ![]() 程序运行 点击【开始】按钮,即可进行抽奖。
完整代码 Dim flag Sub 开始() c = Rnd Dim rng As Range Set dic = CreateObject("scripting.dictionary") n = 0 For i = 2 To 201 If Application.WorksheetFunction.CountIf(Range("d4:h12"), _ Worksheets("人员名单列表").Cells(i, 1)) = 0 Then n = n + 1 dic(n) = Worksheets("人员名单列表").Cells(i, 1) End If Next flag = True Do DoEvents If flag Then Cells(4, 2) = dic(Int(Rnd * dic.Count + 1)) End If Loop While flag End Sub Sub 停止() flag = False For i = 4 To 12 For j = 4 To 8 If Cells(i, j) = "" Then Cells(i, j) = Cells(4, 2): GoTo 100 End If Next Next 100: End Sub Sub 清除() For i = 2 To 100 c = Rnd Next Range("d4:h12").ClearContents End Sub
代码说明 代码语法比较基础,这里重点说下比较重要的地方: 1、抽奖重要的一点是已抽到的员工不在参与后续环节的抽奖,所以在进行后续抽奖的时候需要剔除前面已中奖者的名单,这里利用字典dictionary不重复性进行解决; 2、开始代码for循环是从2到201,是因为插页【人员名单列表】中,员工姓名分布在A列2至201行,如果有更多或者更少的员工,数字做相应更改即可; 3、Rnd函数是一个随机函数,随机返回(0,1)之间的小数; 4、停止代码中,再将中奖名单赋值到表格中之后,利用GoTo 100,跳出两个循环,截图这段代码,不用exit for 是因为 exit for 只会跳出第一个for 循环,不会跳出第二个for循环; 5、代码开始的语句“Dim flag”是非常有必要的,不然姓名滚动单元格会一直滚动; 6、代码中的很多数字是根据抽奖页面布局来确定的, 所以先布局好页面,在进行代码的书写,页面布局可灵活改变,代码数字做相应变动即可。
用Excel制作公司年会的抽奖系统(带头像) 在年会中,抽奖环节是重头戏,那你知道如何用Excel制作带有照片的抽奖系统吗?本期技巧妹与大家分享一下有关制作技巧。 抽奖效果: 实现以上的效果,需要准备好数据,将相应的名字和照片录入到Excel中,如下图所示: 注意:要将图片的属性设置成“随单元格改变位置和大小”。 操作步骤 第一步:设置随机数值 在空单元格中,这里是在F1单元格中输入公式 =INDEX($A$1:$A$8,RANDBETWEEN(1,COUNTA($A$1:$A$8)))公式说明: INDEX函数用法:= INDEX(单元格区域,指定的行数,指定的列数) RANDBETWEEN函数:表示随机生成整数,语法:=RANDBETWEEN(起始值,结束值) COUNTA函数:计算非空单元格 第二步:建立名称 点击公式——定义的名称——名称管理器——新建,然后重命名,这里命名为“抽奖”,在引用中输入公式 =INDIRECT("B"&MATCH(抽奖!$F$1,抽奖!$A$1:$A$8,0))公式说明: MATCH函数用法:= MATCH(查找值,查找区域,查找方式) 第三步:插入图片 在表格中插入图片,之后在图片上插入文本框和任意一张图片,根据自己需要排版好,然后选中文本框,输入=F1单元格,选中图片,在编辑框中输入=抽奖,最后按F9即可滚动照片。
````
|
CopyRight 2018-2019 实验室设备网 版权所有 |