抽獎程序excel

㈠ 如何用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抽獎器製作方法，

抽獎器是Excel2003版本特有的。

菜單欄——文件——新建——右側出現《新建工作簿》窗格——本機上的模板——慎蔽雀出現《模板》對話框——電子方案表格——選「抽獎器」——確定——編輯界面出現與《MicrosoftExcel–Book1》平行的《MicrosoftExcel–REPORT91》操作程序：

工作表有：《抽獎》、《設置》、《抽獎結果》、《候選名單》等四個標簽。

使用說明及注意事項：

1、本抽獎程序可以根據用戶設置對一組候選名單進行抽獎。

2、在《候選名單》工作表中錄入所有候選名單，每人一行格，不留空行。

3、在《設置》工作表裡面：

①設置「獎項設置」名額（最多可設置「特等獎」~「五等獎」共6個級別的獎項），單項級別最多可設置5000名獲獎者，獲獎總數不能超過《候選名單》里的候選人數。

②「抽獎順序」默認或根據需要另選它項。

③「抽獎方法」分：每次抽取一組中的全部獲獎者、或每次抽取若干名同一組獲獎者。

④設置完畢後點「設置完成」按鈕，程序自動轉入《抽獎》工作表。

4、在《抽獎》工作表裡面：

①點「開始抽獎」按鈕——程序自動按《設置》里的「抽獎順序」在右上角「本次獲獎名單」項下快速變換未被選中的所有候選名單——點「停止」按鈕（原為「開始抽獎」按鈕）即可在「本次獲獎名單」里顯示出《設置》里「獎項設置」的並大同級獲獎名單——點「繼續抽獎」按鈕（原為「停止」按鈕），又繼續進入下一個獎項的抽獎……；

②抽獎一旦開始，請完成整個抽獎過程，不要中途退出程序；

③各個獎項抽獎完成後，「繼續抽獎」按鈕變成「抽獎結束」按鈕。

5、在《抽獎結果》工作表裡面，可以看出各個獎項的獲獎名單。

6、在《抽獎》工作表裡按「列印獲獎名單」按鈕，就可列印出各個獎寬早項的獲獎名單了。

7、本程序不支持重復獲獎。

㈢ excel抽獎如何設定一部分人只能抽中低等獎，又不被人看出

這有的是罩襪辦法，但是正常別人讓我這么做我不會做的。抽獎就是個隨機值問題。既然這樣就完全隨機，如果不做完物派激全隨機，就沒有意思了。羨派
我用VBA給人寫過Excel的抽獎程序，但是都是完全隨機的。

㈣ EXCEL 抽獎 怎麼做

1、用隨機函數rand分配給每個人一個抽簽號，A1單元格里輸入公式：

=int(rand()*1000)

然後下拉填充。

2、然後選中A列，設置條件格式，用公式將前三名（或自定）設置為紅色，公式為：

=rank(a1,a:a)<4

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

3、每次可按F9鍵刷新一下結果

㈤ 請問怎麼用Excel，按照固定的概率自動抽獎，統計實際結果

用randbetween函數來生成隨機數，然後用根據概率設置，用if來判斷他應該落在哪個區間就行了，比如一等獎概率5%，可以這樣寫：
=IF(RANDBETWEEN(1,100) <=5, "恭喜你中了一等獎", "很遺憾未中獎")
如果是25%，把上面的5改成25就可以了
核心就是隨機數的生仔陵拆成，至於怎麼安排/顯示/統計，就看汪橡你自己需要什麼樣的了（念棗統計那個可以直接根據最終文字， 也可以把隨機數拆解出來分多個公式計算）

㈥ 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
點擊按鈕測試，得到隨機中獎編號