如何利用excel去進(jìn)行制作簡易號(hào)碼抽簽

你的意思是從一個(gè)范圍內(nèi)隨機(jī)抽取一個(gè)號(hào)碼嗎？ 請(qǐng)?jiān)贏1填入一個(gè)最小值，請(qǐng)?jiān)贐1輸入一個(gè)最大值，請(qǐng)?jiān)贑1輸入公式 =RANDBETWEEN(A1,B1) A1和B1不要鎖定，方便隨時(shí)更改搖號(hào)范圍。C1單元格可以鎖定。 F9鍵是刷新鍵，每按一次F9鍵，C1顯示的結(jié)果會(huì)變化一

如何制作簡易號(hào)碼抽簽？下面介紹一下如何使用Excel制作簡易抽簽號(hào)碼。

方法

打開Excel

材料/工具：Excel2010 1、打開電腦后，直接進(jìn)入到excel軟件中，新建一個(gè)空白的表格文檔，在表格中某一列單元格中錄入好我們要抽取的內(nèi)容，例如姓名，編號(hào)等等。 2、錄入完成后，我們?cè)诋?dāng)前表格文檔中重新再去選擇一個(gè)單元格，將其作為最終抽取結(jié)

選擇合適的單元格。

如果是隨機(jī)抽簽，那么應(yīng)該先有個(gè)自動(dòng)生成隨機(jī)數(shù)的區(qū)域，假如有55個(gè)學(xué)生，那么在R列的R1:R55輸入=RAND() 按Ctrl+Enter組合鍵結(jié)束； 然后在座位號(hào)中輸入=RANK($R1,$R:$R)這樣的排序公式，每按一次F9，R列的隨機(jī)數(shù)更新一次，座位號(hào)也重新刷新一次。

點(diǎn)擊“合并并居中”。

用了兩個(gè)函數(shù)實(shí)現(xiàn)的，雙擊任意單元格會(huì)刷新抽簽。確定抽簽順序后建議復(fù)制姓名和排名，選擇性粘貼為文本。見圖種，另存為圖片，該后綴為rar，解壓可得excel原表格

輸入以下公式：=INT(RAND()*(100+1))

新建一個(gè)空白excel表格 選中多個(gè)單元格，并進(jìn)行合并居中（本步驟可以省略） 選中單元格，輸入公式=INT(RAND()*(100-1+1))+1，按回車鍵確認(rèn) 1.記住連同=號(hào)一起輸入； 2.如果是在1-50中抽取，則將公式中100替換成50，以此類推。選中單元格，在“開

修改字體大小。

最簡單的辦法用rand函數(shù)+排序的方法 假設(shè)你的表含有表頭并且50個(gè)人名在A列，將B列作為輔助列，在B2中輸入以下公式并下拉 =INT(50*RAND())+1 然后以B列為關(guān)鍵列進(jìn)行排序即可。 注：如果是07或07以上版本B2中公式可寫成以下形式： =RANDBETWEEN(1,

按F9可以刷新。多次按F9即可獲得隨機(jī)抽簽數(shù)。

A列1-22 B列數(shù)22個(gè)隨機(jī)數(shù)字 然后排序B列 給B列復(fù)制出來讓你的團(tuán)隊(duì)選擇，選擇完了把對(duì)應(yīng)的名字填到C列就可以了

擴(kuò)展閱讀，以下內(nèi)容您可能還感興趣。

excel或者ppt制作抽簽

裁53張小紙條，分別寫上1-53的號(hào)碼，每人抽一張。

某單元格輸入：

=ROUND(RAND()*53,)+1，（EXCEL2003版）

=RANDBETWEEN(1,53)，（EXCEL2007版）

每按一次F9鍵，將隨機(jī)產(chǎn)生一個(gè)1-53的數(shù)字。追問我這個(gè)需要演示的，所以你這個(gè)方法我這還真不能采納，謝謝！

如何利用excel的VB按鈕進(jìn)行分班抽簽

最簡單的用法:

1.在控制工作欄中選多按鈕放入工作表中,修改其CAPTION屬性(文字);

2.在其LINKCELL中輸入:如A1(你要要通過按鈕改變的單元格)

3退出設(shè)計(jì)模式,當(dāng)你選中其中一個(gè)時(shí),對(duì)應(yīng)的單元格的內(nèi)容將變化(true/false)

4:當(dāng)然你改變其中一個(gè)單元格內(nèi)容時(shí),其它單元格也會(huì)變化,按鈕也變化:

空值:按鈕灰顯;

true/非0的數(shù)字均認(rèn)為是選中.

false/0表示為未選中.

5.如果有更進(jìn)一步的其它需要,還可以對(duì)按鈕事件進(jìn)行編程解決更復(fù)雜的問題.追問看不明白，有圖文的嗎?

我想用excel做一個(gè)自動(dòng)抽簽程序( 以下是電腦報(bào)里面介紹的內(nèi)容，不知道為什么在我的電腦里操作失敗了）

同時(shí)按Alt和F11進(jìn)入宏界面，點(diǎn)菜單的插入，模塊，粘貼如下代碼：

Dim Flag As Boolean

Sub aaa()

Dim cell As Range

Do Until Flag

Range("C6:G10").Cells(Int(Rnd() * 25) + 1).Select

DoEvents

Loop

Flag = False

End Sub

Sub bbb()

Flag = True

End Sub

回到Excel，在C6:G10輸入25個(gè)簽（代碼中的粗體字按實(shí)際修改），插入兩個(gè)圖形比如方框，一個(gè)寫”抽簽“，一個(gè)寫”暫?！埃益I點(diǎn)第一個(gè)框，指定宏，aaa；右鍵點(diǎn)第2個(gè)框，指定宏，bbb

就可以了。

用Excel做一個(gè)抽簽器，有按鈕的那種，可以幫忙寫個(gè)代碼嗎？

按圖操作就可以做成10選3的隨機(jī)抽簽樣版。

excel如何實(shí)現(xiàn)隨機(jī)抽取且不重復(fù)

方法一：公式法

1、我們以生成1-10范圍內(nèi)的隨機(jī)數(shù)字為例，講述方法。

首先，在A2單元格中輸入公式：=SMALL(IF(COUNTIF($A$1:A1,ROW($1:$11))=0,ROW($1:$11)),INT(RAND()*(11-ROW(A1))+1))

然后按下Ctrl+Shift+Enter三鍵結(jié)束數(shù)組公式。

2、然后，下拉填充公式到A12單元格，也就是填充11個(gè)單元格，為什么要填充11個(gè)呢，我們明明只要10個(gè)數(shù)字？這是因?yàn)?，最后一個(gè)數(shù)字是不會(huì)變化的，所以呢，要生成10個(gè)隨機(jī)數(shù)，需要填充11個(gè)單元格，同樣的生成11個(gè)隨機(jī)數(shù)的話，要填充12個(gè)單元格，除此之外，公式中的11還要改成12。

3、生成隨機(jī)數(shù)后，每按下一次F9（或者其他單元格進(jìn)行一次計(jì)算），隨機(jī)數(shù)就會(huì)刷新一次，重新生成一組隨機(jī)數(shù)，要注意嘍！

4、好了，一組不重復(fù)的隨機(jī)數(shù)字生成了，現(xiàn)在我們回頭看看這個(gè)公式是怎么實(shí)現(xiàn)的吧。首先看Small函數(shù)的第一個(gè)參數(shù)，也就是數(shù)字區(qū)域，這里是利用if和Countif函數(shù)來實(shí)現(xiàn)此單元格上面的單元格區(qū)域，是否有當(dāng)前單元格的數(shù)字，如果有，就返回False，而如果沒有就返回這個(gè)數(shù)字，從而生成一組由上面單元格沒有的數(shù)字和Flase組成的序列，下圖是按F9得到的結(jié)果：

5、Small函數(shù)的第二個(gè)參數(shù)，也就是從這個(gè)序列中取第幾個(gè)最小值，在得到的數(shù)字中，利用隨機(jī)函數(shù)rand和row函數(shù)，實(shí)現(xiàn)在這有個(gè)個(gè)數(shù)中隨機(jī)抽取一個(gè)數(shù)字，從而得到排序中這個(gè)數(shù)字順序的一個(gè)數(shù)字。通過這樣一個(gè)數(shù)組公式，就實(shí)現(xiàn)了生成一組不重復(fù)的隨機(jī)數(shù)字啦。

方法二：VBA法

1、VBA功能強(qiáng)大，可以利用很多算法實(shí)現(xiàn)隨機(jī)數(shù)。這里介紹一種簡單的辦法。首先在Excel中按下Alt+F11，打開VBE界面，雙擊要生成隨機(jī)數(shù)的工作表，在右側(cè)空白處需要輸入代碼。

輸入代碼如下：

Sub m()

Range("A:A").ClearContents'這里是A列，根據(jù)需要修改

For i = 1 To 10'這里是10個(gè)數(shù)字，根據(jù)需要修改

kkk:

Randomize

x = Int(Rnd * 10) + 1

If Application.CountIf(Range("A:A"), x) = 0 Then

Cells(i, 1) = x

Else

GoTo kkk

End If

Next i

End Sub

2、代碼原理很簡單，就是隨機(jī)生成數(shù)字，如果A列中有了這個(gè)數(shù)字，就返回再次隨機(jī)生成，一直到?jīng)]有這個(gè)數(shù)字為止；利用循環(huán)生成制定數(shù)量的數(shù)字。

3、按下F5執(zhí)行代碼，就看到在對(duì)應(yīng)的Sheet中的對(duì)應(yīng)列，生成了一組隨機(jī)的不重復(fù)的數(shù)字。

聲明：本網(wǎng)頁內(nèi)容旨在傳播知識(shí)，若有侵權(quán)等問題請(qǐng)及時(shí)與本網(wǎng)聯(lián)系，我們將在第一時(shí)間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com