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数据报表,极大提升数据处理效率。系统工作流程分为三部分:信息收集、数据统计与数据分析。以“客户满意度调查”为例,首先生成二维码供客户扫码填写信息。后台自动生成明细表,数据清晰可见,可...
别婵念那是你的程序被认为是非法的,被停用了。什么叫系统控制?自己到软件中放行了。
别婵念一、数据采集系统功能 录入、保存、查询、清空、修改 二、两个界面 1.数据录入界面:前台功能使用界面,实现“录入、保存、查询、清空、修改”;2. 数据存储界面:后台实现数据的保存; 录入界面:三、实现方法 1. 保存功能 Sub Save() ''保存数据 Marco,xiaohou制作,时间2013-9-5 'Dim r1, r2...
别婵念高级筛选,关键在于条件区域的设置,对于“或”条件,两个条件应该在不同行上,如下:数据库原理操作系统 <60 <60
别婵念第一题不明白说的啥;二、三其实是一个问题,“冻结空格”,就是这个功能,选择E2这个单元格,工具栏→窗口→冻结窗口,看,效果就出来了,不清楚就上Q
别婵念任何操作都被禁止,比较难,这样子我要关机也不行,或者有什么突发事件也没法处理.失去了软件原有的便捷性.也就失去了软件本身的意义
别婵念方法二:1、将鼠标移动到单元格顶部“A和B”或左侧“1和2”中间的线上,这是鼠标箭头会发生改变;2、按下鼠标左键不放,向左右或上下拖动即可调整大小。如果大家觉得win7系统excel表格格子太小,可以参考本文教程两种方法进行设置,方法很简单,希望对大家编辑excel表格有一定帮助。
别婵念打开exce,一手按住ctrl,一手向上滚动鼠标轮,向下是缩小。或者在工具栏修改显示比例。2003版 2010版
别婵念有时候无缘无故Sheet字体突然变小,不知道什么情况,Excel表中又无法修改,下边这里说一下解决方法。首先在XP系统桌面右键——属性 然后选择外观 然后选择高级 然后在这里选“滚动条”(繁体系统里边写的是卷轴),要是简体系统就选择滚动条,然后字体大小选择20就可以了,根据自己的喜好设定 最后点击应用...
别婵念第七步:第四个参数是“范围查找”,即需要精确匹配或模糊匹配。在这里,我们填写“0”,这需要完全匹配。第八步:点击确定后,我们修改函数,如图中的红框所示。这种修改便于我们以后的功能填充。第九步:修改查询系统,直接输入键,然后直接用填充柄填充函数。我们稍后会做一些小改动。例如,要查询“...