excel表格抽獎如何做
01打開excel，并點擊excel的最左上角的圖標，找到“Excel 選項”。

02
找到“常用”點擊，然后在右側找到“在功能區顯示‘開發工具’選項卡”復選框打鉤，按確定。

03
點擊開發工具，調出開發控件

04
利用調出的開發控件，2個Label，2個TextBox，1個按鈕。結合Excel知識，制作如下界面。



05
可以在視圖中找到宏，也可以在開發工具中找到宏。然后打開宏編輯。

06
添加VBA代碼：
Option Ba 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 Fal
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 = Fal
Do
d = Int((t2 - t1 + 1) * Rnd + t1)
j = 0
Do
j = j + 1
If r(j) = d Then
xh = Fal
Exit Do
El
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
El
Exit For
End If
Next i
End Function

07
點擊按鈕測試，得到隨機中獎編號
EXCEL 抽獎 怎么做?
1、用隨機函數rand分配給每個人一個抽簽號，A1單元格里輸入公式：
=int(rand()*1000)
然后下拉填充。
2、然后選中A列，設置條件格式，用公式將前三名（或自定）設置為紅色，公式為：
=rank(a1,a:a)<4
(<4意思是取前3名,如果要取前5名就改為<6，以此類推)
3、每次可按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，按照固定的概率自動抽獎，統計實際結果？
用randbetween函數來生成隨機數，然后用根據概率設置，用if來判斷他應該落在哪個區間就行了，比如一等獎概率5%，可以這樣寫：
=IF(RANDBETWEEN(1,100) <=5, "恭喜你中了一等獎", "很遺憾未中獎")
如果是25%，把上面的5改成25就可以了
核心就是隨機數的生成，至于怎么安排/顯示/統計，就看你自己需要什么樣的了（統計那個可以直接根據最終文字， 也可以把隨機數拆解出來分多個公式計算）
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去制作一個隨機抽獎的系統是不能夠作假的，沒有貓膩的公平的隨機抽獎系統，你要是需要認為控制的抽獎呢，且聽有時間再告訴你。
