本文目录一览：

怎样在excel制作一个用于抽签函数，别的工具也行

材料/工具：Excel2010

1、打开电脑后，直接进入到excel软件中，新建一个空白的表格文档，在表格中某一列单元格中录入好我们要抽取的内容，例如姓名，编号等等。

2、录入完成后，我们在当前表格文档中重新再去选择一个单元格，将其作为最终抽取结果的展示用。

3、接着我们在该抽奖结果单元格中输入以下公式：“=INDEX(A:A，RANDBETWEEN(2,61))"。

4、在“=INDEX(A:A，RANDBETWEEN(2,61))"公式中，A：A表示我们要抽取的内容所在的单元格列范围为A列A列，可以自定义。

5、公式输入完成后，在抽取结果单元格就会随机产生一个抽取结果，我们可以为该抽取结果单元格设置一个格式：字体、字号、颜色等等。

6、设置好之后，想要开始抽奖或者抽签，我们只需要选中抽取结果单元格，然后按住键盘上的“F9”键，按下后在抽取结果单元格中就会在我们选择的抽取内容中随机产生抽取结果，松开“F9”就可以产生一个抽取结果。

如何用excel做一个抽奖系统

先将图片的属性设置成“随单元格改变位置和大小”。

第一步：设置随机数值

在空单元格中，这里是在单元格中输入公式

=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即可滚动照片。

以上就是excel制做抽奖的方法

Excel函数公式：用Excel制作抽奖器，你会吗

比如你有10000个员工，名字放A1：A10000。B1输入=INDIRECT("A"RANDBETWEEN(1,10000))开始抽奖按下F9，数字会随机变化，放下F9就会停止。这样对头尾人公平些

excel随机滚动抽名字单击暂停

再excel上操作。

具体操作步骤如下：1、首先我们打开Excel并将基本信息编辑好。

2、然后我们打开插入函数，在弹出的对话框中我们选择“全部”。

3、接着我们找到“RANDBETWEEN”并点击确定。

4、我们还要设置数值的最高以及最低。

5、然后我们在抽查人员框中输入“=VLOOKUP(D2，A2:B11，2，FALSE)”。

6、最后就可以看见抽查号码和对应的抽查人员。

EXCEL 抽奖 怎么做?

1、用随机函数rand分配给每个人一个抽签号，A1单元格里输入公式：

=int(rand()*1000)

然后下拉填充。

2、然后选中A列，设置条件格式，用公式将前三名（或自定）设置为红色，公式为：

=rank(a1,a:a)4

(4意思是取前3名,如果要取前5名就改为6，以此类推)

3、每次可按F9键刷新一下结果

高分求Excel抽奖器制作方法

最简单的抽奖用rand函数就行，但是这个抽奖器观众不会满意的。

那么需要做一个简单的滚动效果，实现方法也不难，一列放数据，一列放=rand()这个公式，把公式这列隐藏掉，然后做个宏，以公式这列排序。VBA写一段代码，每0.1秒调用这个宏一次，那么看起来就是数据这列会定时滚动。

然后再做个按钮，可以中断这个滚动，并打印输出结果。简单的抽奖器模型就出来了。

具体代码我贴一个我以前做过的抽签分组的，修改一下就是你要的了：

Private Declare Function timeGetTime Lib "winmm.dll" () As Long   '此处声明是调用timeGetTime的时间控制函数

Public a As String

Private Sub 开始_Click()

开始.Enabled = False

停止.Enabled = True

a = 0

Dim Savetime As Double

Do While a = 0

Savetime = timeGetTime '记下开始时的时间

While timeGetTime  Savetime + 100 '循环等待

DoEvents '转让控制权，以便让操作系统处理其它的事件

Wend

If 选项1.Value = True Then

Call bb

Else

Call aa

End If

Loop

End Sub

Private Sub 停止_Click()

停止.Enabled = False

a = 1

Savetime = timeGetTime

While timeGetTime  Savetime + 1000

DoEvents

Wend

开始.Enabled = True

MsgBox "抽签完成，请点击打印"

Sheets(2).Activate

End Sub

Sub aa() '排序部分

  Sheets(1).Range("A2:B10").Sort Key1:=Sheets(1).Range("A2"), Order1:=xlAscending, Header:=xlGuess, _

      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _

      :=xlPinYin, DataOption1:=xlSortNormal

  Sheets(1).Range("c2:d10").Sort Key1:=Sheets(1).Range("c2"), Order1:=xlAscending, Header:=xlGuess, _

      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _

      :=xlPinYin, DataOption1:=xlSortNormal

     

  Sheets(1).Range("e2:f10").Sort Key1:=Sheets(1).Range("e2"), Order1:=xlAscending, Header:=xlGuess, _

      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _

      :=xlPinYin, DataOption1:=xlSortNormal

     

  Sheets(1).Range("g2:h10").Sort Key1:=Sheets(1).Range("g2"), Order1:=xlAscending, Header:=xlGuess, _

      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _

      :=xlPinYin, DataOption1:=xlSortNormal

End Sub

Sub bb()

  Sheets(1).Range("A2:h10").Sort Key1:=Sheets(1).Range("A2"), Order1:=xlAscending, Header:=xlGuess, _

      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _

      :=xlPinYin, DataOption1:=xlSortNormal

End Sub