PD961A

回復 14# emma


傳回您指定的數字之間的任意一個亂數。在每次計算工作表時，都會傳回一個新的亂數。
如果無法使用此函數，且傳回 #NAME? 錯誤，請執行程式以安裝「分析工具箱」。

emma

隨機抽獎測試990805.rar (15.23 KB)

下載次數: 4

2010-8-5 16:03

回復 20# asimov


asimov 大大，您好~~
關於您所提供的方式，一次只抽出一位得獎人的效果還滿吸引我的，
但不知為何，我所測試出來的結果是，不容易產生重複的ID，
但還是會有產生重複ID的情況發生，
另外，我的ID目前是假設性的以1、2、3...這種類似序號的編排方式
但實際應用的話，應該是會像身份證號這類有英文字開頭的ID來套用，
那麼=INT(RAND()*(COUNTA($B$2B$56)-COUNTA($F$2F$17)))+1
要如何修正才可以達到直接帶出得獎人是誰(身份證號或姓名)的效果?

下載 (162.76 KB)

2010-8-5 13:36

PS.您好，再附上較新的附件，謝謝!!

PD961A

回復 22# emma


   

下載 (41.46 KB)

2010-8-5 15:16

asimov

回復 22# emma


原20樓回覆 I5 之中獎人ID公式少一個動作
正確為=VLOOKUP(INT(RAND()*(COUNTA($B$2:$B$56)-COUNTA($F$2:$F$17)))+1,$A$2:$B$56,2,0)

依您修改後的檔案 F22 公式為
=VLOOKUP(INT(RAND()*(COUNTA($B$2:$B$56)-COUNTA($I$2:$I$17)))+1,$A$2:$B$56,2,0)

實際應用,建議刪除 B欄"序號"
改以"ID","會員編號"或"彩券號碼"取代
但須注意以上三項都不可重複
如一人可有多次抽獎機會
則以"彩券號碼"為宜
隨機抽獎測試(不重複)_1.zip (5.13 KB)

下載次數: 9

2010-8-6 01:58

下載 (184.63 KB)

2010-8-6 01:59

ivanyung

要設定多於一個機會, 用巨集比較容易處理

Prize.zip (7.88 KB)

下載次數: 10

2010-8-6 13:24

1. Sub jjj()
   
2.    
   
3.     Range("f1..h1000").Clear
   
4.     Range("f1").Value = "id"
   
5.     Range("g1").Value = "name"
   
6.    
   
7.    
   
8.     k = 2   'first row to fill in value is 2.
   
9.     For Each i In Range("c2:c1000")
   
10.         For j = 1 To i.Value
    
11.             Cells(k, 6).Value = i.Offset(, -2).Value
    
12.             Cells(k, 7).Value = i.Offset(, -1).Value
    
13.             Cells(k, 8).Value = Rnd()
    
14.             k = k + 1
    
15.         Next
    
16.     Next
    
17.    
    
18.     Range("f1:h1000").Select
    
19.     Selection.Sort Key1:=Range("h2"), Order1:=xlAscending, Header:=xlGuess, _
    
20.         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    
21.    
    
22.     Range("h:h").Clear
    
23. End Sub

複製代碼

emma

非常謝謝PD961A、asimov、ivanyung、PD961A、gong及GBKEE 各位先進們的協助，
目前關於此問題，由各位先進協助幫忙下，已綜合取得較佳的使用方式，謝謝大家!!

Luc

以固定次數來說，8樓的做法是最好的，
多放幾支籤，亂數排序後挑出前面的項目。這樣就可以收工了。
另一種方式是設定每種獎項的機率及每個人的亂數權重，由超過門檻值的人組成候選名單。
有的長官不需要那麼自動化，會想從名單挑... 抽獎也是很敏感的任務呢。

kelsie

以上受用很多~~

我想請問~如果我想用個commend鈕來等於F9的更新
該如何設定?

若在同一個工作表中~有4大項進行抽獎~
第一項已抽獎，若在進行第二項抽獎時~
用F9更新會同步將第一項的獎項名單又洗掉了..
該如何進行設定呢??

Luc

複製/貼上值
保留結果

sushiso

thx a lot!  let me try it