excel表單自動抽獎（excel表格抽獎系統）

本篇文章給大家談談excel表單自動抽獎，以及excel表格抽獎系統對應的知識點，希望對各位有所幫助，不要忘了收藏本站喔。 今天給各位分享excel表單自動抽獎的知識，其中也會對excel表格抽獎系統進行解釋，如果能碰巧解決你現在面臨的問題，別忘了關注本站，現在開始吧！

本文目錄一覽：

• 1、excel表格抽獎如何做
• 2、請問怎么用Excel，按照固定的概率自動抽獎，統計實際結果？
• 3、如何用excel做一個抽獎系統

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

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

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

如何用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表格抽獎系統的介紹到此就結束了，不知道你從中找到你需要的信息了嗎 ？如果你還想了解更多這方面的信息，記得收藏關注本站。 excel表單自動抽獎的介紹就聊到這里吧，感謝你花時間閱讀本站內容，更多關于excel表格抽獎系統、excel表單自動抽獎的信息別忘了在本站進行查找喔。

版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。