EXCEL做随机抽奖摇奖器(一)

当年终时,有些企业会组织职工联欢会,可能还会搞个抽奖的小节目增添乐趣,下面就介绍一个用EXCEL做的简单的抽奖工具。

第一步:画表格

  • 01

    假设共有30位职工,就需要30个号码,先按下图的样子把1至30个号码填列到一个工作表中。为了美观,可以把字体设成自己喜欢的颜色,加上边框,再把号码以外的网格线隐藏起来。

  • 02

    设置字体颜色:选中B2:F7区域,按“格式-单元格”,选“字体”选项卡,里面可设置字体颜色(也可在上面工具栏中的“字体颜色”中设置)。

  • 03

    加边框:选中B2:F7区域,按“格式-单元格”,选“边框”选项卡,在“颜色”中选“青色”,再从“线条样式”中选择双线,点“外边框”,设置外边框为青色双线型;同样步骤,从“边框”选项卡的“颜色”中选“兰色”,再从“线条样式”中选择细实线,点“内部”,设置单元格内部边框为兰色的细实线。

  • 04

    隐藏网格线:按上面菜单栏上的“工具-选项”,在“视图”选项卡中,去掉“网格线”前的勾即可。

第二步:编写代码

  • 01

    在工作表下面的标签上点鼠标右键,选“查看代码”,调出VBA窗口,把下面代码复制进去就行了。

  • 02

    Dim a As Integer '定义公共变量 Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Sub 随机() Dim x As Integer Dim y As Integer a = 0 Randomize '初始化 10: x = Rnd() * (7 - 2) + 2 '生成2至7的随机数,代表行数 y = Rnd() * (6 - 2) + 2 '生成2至6的随机数,代表列数 Range("b2:f7").Interior.ColorIndex = xlNone '去掉填充色 Cells(x, y).Interior.ColorIndex = 3 '填充为红色 DoEvents '释放程序控制权,允许其他事件 Sleep (10) '延时ms DoEvents '释放程序控制权,允许其他事件 If a = 1 Then Exit Sub '如果按下“结束”钮则终止程序 GoTo 10 End Sub Sub 结束() a = 1 '结束标志 End Sub

    第三步:添加按钮

    • 01

      回到EXCEL窗口,按“视图-工具栏-窗体”,调出“窗体”工具栏,用上面的“按钮”工具在屏幕上添加两个按钮,在每个按钮上点右键,选“编辑文字”,一个输入“开始”,另一个输入“结束”。在两个按钮上分别按鼠标右键,指定宏。

      第四步:测试

      • 01

        以上操作完成后,就可以使用了,点击“开始”按钮,会有一个红色方块随机的在各号码上闪动,当按“结束”按钮时,红色方块会静止在某一个号码上,表示抽中此号。

      (0)

      相关推荐

      • 电脑ppt软件怎么制作抽奖摇号器

        ppt软件是我们经常在电脑上使用的办公工具之一,我们除了使用软件来制作演示文稿,幻灯片之外,还可以将ppt制作为抽奖摇号器.接下来小编就教大家怎样制作.具体如下:1. 首先我们打开电脑进入到桌面,找到 ...

      • excel怎么制作双色球摇号器? excel自动随机生成双色球号码的教程

        excel表格中想要制作自动随机生成双色球号码的一个方法,该怎么制作呢?下面我们就来看看详细的教程. 1.首先,如下图做出一个原始文件 2.然后在D9的摇号做一个数剧数据下拉列表.图1,点击数据-数据 ...

      • 电脑excel软件随机抽奖器怎么生成

        excel是我们经常使用的数据处理工具之一,除了简单的处理数据之外我们还可以使用excel来生成一个随机抽奖器,接下来小编就教大家怎样制作.具体如下:1. 首先我们打开电脑进入到桌面,然后找到exce ...

      • 用excel做随机加减速算试题

        日常儿童教育中,训练儿童的速算能力,需要随机出题.这里介绍使用Excel函数公式制作100以内的整数加减随机练习题. 操作方法 01 选择B2:B9单元格,输入以下公式,按Ctrl+Enter组合键结 ...

      • ppt怎么做随机数字抽奖器? ppt制作摇号抽奖的教程

        ppt中想要制作一个抽奖器呢?经常需要制作一个随机抽奖的效果,下面我们就来看看制作抽奖器的方法,请看下文详细介绍. 1.首先,我们自己创建一个空白的word文档,然后每一行写一个数字,看自己想要多少个 ...

      • 如何用excel模拟双色球摇奖

        利用Excel模拟双色球摇奖. 操作方法 01 我们首先建立打开一个空白的Excel文本 02 要用Excel模拟双色球摇奖,究其本质就是利用随机函数得到一组无重复的随机数组所以我们需要明白Excel ...

      • 微信公众号里面随机抽奖怎么做出来的

        如果现在举办一场活动你还在用纸箱子.短信这种形式抽奖那就太低级.太low了,随着移动互联网时代的到来,通过手机参与抽奖越来越方便,在此为大家介绍下微信公众号抽奖怎么做的 在激烈的商业环境里,有时商家企 ...

      • Excel教你制作随机抽奖工具的3种方法!

        今天要和大家分享的是:Excel教你制作随机抽奖工具的3种方法!详见下图动态演示和步骤分解. 操作方法 01 第一种方法,如下图所示: 02 第二种方法,如下图所示: 03 第三种方法,如下图所示: ...

      • Excel2013表格中模拟一个随机抽奖系统

        统计了各个地区各个公司的人员情况,下面要从中抽取一人,做为幸运观众,给以物质奖励。当然也不能有猫腻,不然会引起不服,这里我们就要用到rand随机函数了,以下是我做的一个抽奖模拟系统。 实例教程 ①打开 ...