怎樣用excel製作抽獎機
❶ 如何做一個excel抽獎器，每個人只能被抽中一次
/.在A1:A10區域用=rand（)函數，這里就生成10個小於1的小數。2/.再在B1:B10區域... 在C1:C10輸入10個參與抽獎人名。4/.比喻說只有前三名中獎，在D1:D3輸入 1,2,35/....
❷ 用excel表 怎麼設置一個隨機抽獎
excel2003版本裡面有個《抽獎器》，是2003版本特有的，可以試試：
菜單欄——文件——新建——右側出現《新建工作簿》窗格——本機上的模板——出現《模板》對話框——電子方案表格——選「抽獎器」——確定——編輯界面出現與《microsoft
excel
–
book1》平行的《microsoft
excel
–
report91》操作程序：
按提示操作就行。
❸ EXCEL 抽獎 怎麼做
1、用隨機函數rand分配給每個人一個抽簽號，A1單元格里輸入公式：
=int(rand()*1000)
然後下拉填充。
2、然後選中A列，設置條件格式，用公式將前三名（或自定）設置為紅色，公式為：
=rank(a1,a:a)<4
(<4意思是取前3名,如果要取前5名就改為<6，以此類推)
3、每次可按F9鍵刷新一下結果
❹ 電腦怎麼做抽獎
方法/步驟
首先我們打開Excel軟體，為了方便演示，我們需要輸入部分內容，首先輸入抽獎人員名單，我們將抽獎人員名單填好即可如下圖所示。
好了，今天的如何用Excel製作抽獎活動教程就為大家介紹到這里，希望對大家有所幫助。
❺ 用EXCEl做一個抽獎器，每個人輸入工號只能抽獎一次，抽獎後回記錄下來，怎麼弄
1/.在A1:A10區域用=rand()函數，這里就生成10個小於1的小數。
2/.再在B1:B10區域的B1單元格設置函數=rank(A1,A1:A10)向下復制進行排序，放心，不會有重名的。
3/.在C1:C10輸入10個參與抽獎人名。
4/.比喻說只有前三名中獎，在D1:D3輸入 1，2，3
5/.在E1:E3中的E1輸入函數=vlookup(D1,$B$1:$C$10,2,)向下復制。
這時就簡單的抽獎名單製作完成了，E列將顯示抽獎結果，每次頁面刷新，名單都會發生變化。
❻ Excel2013製作隨機抽獎系統
簡單的製作方法。
1.首先要打開我們的Excel2013表格，製作出本次參與抽獎的名單。
(點小圖看大圖)
2.然後再在F2單元格中輸入
=INDIRECT("d"&INT(RAND()*13+2))
(點小圖看大圖)
3.
公式的意義是：int函數返回一個2-14的隨機整數，和d串聯就會返回D2：D14之間的隨機單元格，最後，indirect會返回隨機單元格裡面的姓名。
回車按下，得到一個人員的名字：孫天樂。
(點小圖看大圖)
4.
選中從A到D，單擊菜單欄--條件格式--新建規則選項。
(點小圖看大圖)
5.
選擇最後一個規則類型，途中已用紅線標出來了，使用公式確定要設置格式的單元格，輸入公式：=$D1=$F$2,點擊格式按鈕。
(點小圖看大圖)
6.
彈出一個新建格式規則框如下圖，可以置單元格格式，也就是中獎人員在名單冊中的現實方式，與其他人進行區分。
(點小圖看大圖)
7.
確定完了後再看看我們的表格的最終效果。
(點小圖看大圖)
我們www.ew8.cn
鄭州易網科技有限公司的孫天樂是我們的獲獎者，很明確的表示出來了吧?嗯哼!這個Excel2013表格製作的抽獎系統不錯吧?哦，最後告訴你按下F9鍵刷新，就會重新抽獎。好了blue1000今天講的這個利用Excel2013去製作一個隨機抽獎的系統是不能夠作假的，沒有貓膩的公平的隨機抽獎系統，你要是需要認為控制的抽獎呢，且聽有時間再告訴你。
❼ Excel2013表格中如何模擬一個隨機抽獎系統
統計了各個地區各個公司的人員情況，下面要從中抽取一人，做為幸運觀眾，給以物質獎勵。當然也不能有貓膩，不然會引起不服，這里我們就要用到rand隨機函數了，以下是我做的一個抽獎模擬系統。
實例教程
①打開Excel，參與抽獎的人員名單已經製作好了，我們直接在F2單元格輸入：=INDIRECT("d"&INT(RAND()*13+2))
②公式的意義我稍後為大家說明，回車按下，得到一個人員的名字：黃博文。
③選中A：D列，單擊菜單欄--條件格式--新建規則選項。
④選擇最後一個規則類型，使用公式確定要設置格式的單元格，輸入公式：=$D1=$F$2,點擊格式按鈕。
⑤設置單元格格式，也就是中獎人員在名單冊中的現實方式，與其他人進行區分。
⑥完畢，做為恆大勇奪亞冠冠軍的一員，黃博文中獎。我們按下F9鍵刷新，就會重新抽獎。
公式說明
int函數返回一個2-14的隨機整數，和d串聯就會返回D2：D14之間的隨機單元格，最後，indirect會返回隨機單元格裡面的姓名。
❽ excel表格抽獎如何做
01打開excel，並點擊excel的最左上角的圖標，找到「Excel 選項」。
02
找到「常用」點擊，然後在右側找到「在功能區顯示『開發工具』選項卡」復選框打鉤，按確定。
03
點擊開發工具，調出開發控制項
04
利用調出的開發控制項，2個Label，2個TextBox，1個按鈕。結合Excel知識，製作如下界面。
05
可以在視圖中找到宏，也可以在開發工具中找到宏。然後打開宏編輯。
06
添加VBA代碼：
Option Base 1
Dim t1 As Long '范圍1
Dim t2 As Long '范圍2
Dim czh As Integer '抽獎號碼
Dim num As Integer
Sub auto_open()
Application.OnKey "{ENTER}", "cj"
Application.OnKey "~", "cj"
End Sub
Public Function tj(lb) As Integer
Dim k As Integer
k = 2
Do
Set myR = Sheets(lb).Cells(k, 1)
If Trim(myR.Value) = "" Then '出現空記錄
Exit Do
End If
k = k + 1
Loop Until False
tj = k - 1
End Function
Public Function csf()
num = tj("temp")
With Worksheets("temp")
t1 = .Cells(num, 3).Value
t2 = .Cells(num, 4).Value
End With
Worksheets("抽獎程序").TextBox1.Text = t1
Worksheets("抽獎程序").TextBox2.Text = t2
End Function
Public Function cj()
num = tj("temp")
Call csf
Call cjsz
End Function
Public Function cjsz()
Dim r(10)
For i = 1 To 10
xh = False
Do
d = Int((t2 - t1 + 1) * Rnd + t1)
j = 0
Do
j = j + 1
If r(j) = d Then
xh = False
Exit Do
Else
xh = True
End If
Loop Until j >= i
Loop Until xh = True
r(i) = d
Next i
Dim b(1 To 10)
For i = 1 To 10
b(i) = Application.WorksheetFunction.Small(r, i)
Worksheets("抽獎程序").Label1.Caption = ""
Next
For j = 1 To 10
For i = 1 To 2000
If i Mod 100 = 0 Then
DoEvents
End If
m = Int((t2 - t1 + 1) * Rnd + t1)
Worksheets("抽獎程序").Label2.Caption = Format(m, "00000")
Next i
d = b(j)
Worksheets("抽獎程序").Label2.Caption = Format(d, "00000")
Worksheets("抽獎程序").Label1.Caption = Worksheets("抽獎程序").Label1.Caption & " " & Worksheets("抽獎程序").Label2.Caption
Next j
nn = tj("數據統計")
With Worksheets("數據統計")
.Cells(nn + 1, 1).Value = nn
.Cells(nn + 1, 2).Value = Date
.Cells(nn + 1, 3).Value = Worksheets("抽獎程序").Label1.Caption
End With
For i = 1 To 14
j = nn + 2 - i
If j > 1 Then
With Worksheets("數據統計")
a = .Cells(nn + 2 - i, 2).Value
c = .Cells(nn + 2 - i, 3).Value
End With
With Worksheets("抽獎程序")
.Cells(i + 1, 14).Value = a
.Cells(i + 1, 15).Value = c
End With
Else
Exit For
End If
Next i
End Function
07
點擊按鈕測試，得到隨機中獎編號