excel抽獎（excel抽獎一次抽10個）

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

本文目錄一覽：

• 1、EXCEL怎么制作抽獎系統
• 2、excel表格抽獎如何做
• 3、excel隨機抽獎有規律嗎

EXCEL怎么制作抽獎系統

材料/工具excel抽獎：Excel2010

1、首先打開一個空白excel抽獎的Excel表格excel抽獎，在A列種依次輸入獎品的名稱，接著在表格的其它地方新建一個抽獎表格

2、接著在抽獎表格中，輸入函數：“RANDBETWEEN”

3、然后在函數括號后面輸入獎品的序號，這里獎品的序號是A列的2-7

4、在函數“RANDBETWEEN”前面插入index函數

5、最后在函數RANDBETWEEN前面輸入獎品所在的列，這里是A列，操作是：“A:A，”輸好之后直接按回車鍵

6、? 現在就可以開始抽獎了，在這里直接按F9來進行抽獎環節。

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隨機抽獎有規律嗎

excel隨機抽獎有規律。

假設參與抽獎的號碼或姓名在A列，就在B列輸入 =rand() 然后向下復，在 C列 （得獎欄）輸入：=INDEX(A:A,MATCH(SMALL。

菜單欄——文件——新建——右側出現《新建工作簿》窗格——本機上的模板——出現《模板》對話框——電子方案表格——選“抽獎器”——確定——編輯界面出現與《Microsoft Excel – Book1》。

讓數據顯示不同顏色：

在學生成績分析表中，如果想讓總分大于等于500分的分數以藍色顯示，小于500分的分數以紅色顯示。操作的步驟如下：首先，選中總分所在列，執行“格式→條件格式”，在彈出的“條件格式”對話框中，將第一個框中設為“單元格數值”、第二個框中設為“大于或等于”。

然后在第三個框中輸入500，單擊[格式]按鈕，在“單元格格式”對話框中，將“字體”的顏色設置為藍色，然后再單擊[添加]按鈕，并以同樣方法設置小于500，字體設置為紅色，最后單擊[確定]按鈕。 這時候，只要你的總分大于或等于500分，就會以藍色數字顯示，否則以紅色顯示。

關于excel抽獎和excel抽獎一次抽10個的介紹到此就結束了，不知道你從中找到你需要的信息了嗎 ？如果你還想了解更多這方面的信息，記得收藏關注本站。 excel抽獎的介紹就聊到這里吧，感謝你花時間閱讀本站內容，更多關于excel抽獎一次抽10個、excel抽獎的信息別忘了在本站進行查找喔。

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

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