excel是否可以有隨機抽獎的功能 - Excelㄧ般區 - 麻辣家族討論版版

麻辣家族討論版版 » Excelㄧ般區 » excel是否可以有隨機抽獎的功能

1 234 5 下一頁

返回列表下一主題上一主題發帖

excel是否可以有隨機抽獎的功能

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

21^# 跳轉到 »

發表於 2010-8-5 13:25 | 只看該作者

本帖最後由 PD961A 於 2010-8-7 13:55 編輯

回復 14# emma

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

中學生 Rank: 2

帖子: 110
主題: 14
精華: 0
積分: 239
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2010-8-2
最後登錄: 2017-5-10

有您真好勳章

22^#

發表於 2010-8-5 13:37 | 只看該作者

本帖最後由 emma 於 2010-8-5 16:04 編輯

隨機抽獎測試990805.rar (15.23 KB) 回復 20# asimov

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

B$56)-COUNTA($F$2

F$17)))+1
要如何修正才可以達到直接帶出得獎人是誰(身份證號或姓名)的效果?

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

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 1180
主題: 204
精華: 0
積分: 1051
點名: 0
作業系統: Mac.OS10.6
軟體版本: Office 2003
閱讀權限: 100
性別: 男
註冊時間: 2010-5-3
最後登錄: 2012-9-19

2012龍年全勤獎章論壇貢獻勳章終身榮譽會員勳章好學求知勳章熱烈參與勳章 2011兔年全勤獎章

23^#

發表於 2010-8-5 15:16 | 只看該作者

回復 22# emma

中學生 Rank: 2

帖子: 130
主題: 4
精華: 0
積分: 162
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 20
註冊時間: 2010-5-7
最後登錄: 2011-7-16

24^#

發表於 2010-8-6 01:59 | 只看該作者

回復 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)

機器人三大定律-保護人類、服從命令、保護自己
我的三大定律-生命、生存、生活

中學生 Rank: 2

帖子: 49
主題: 5
精華: 0
積分: 92
點名: 0
作業系統: Windows 7
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-7-31
最後登錄: 2011-10-19

25^#

發表於 2010-8-6 13:24 | 只看該作者

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

Prize.zip (7.88 KB)

Sub jjj()
Range("f1..h1000").Clear
Range("f1").Value = "id"
Range("g1").Value = "name"
k = 2 'first row to fill in value is 2.
For Each i In Range("c2:c1000")
For j = 1 To i.Value
Cells(k, 6).Value = i.Offset(, -2).Value
Cells(k, 7).Value = i.Offset(, -1).Value
Cells(k, 8).Value = Rnd()
k = k + 1
Next
Next
Range("f1:h1000").Select
Selection.Sort Key1:=Range("h2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("h:h").Clear
End Sub

複製代碼

中學生 Rank: 2

帖子: 110
主題: 14
精華: 0
積分: 239
點名: 0
作業系統: win xp
軟體版本: office 2003
閱讀權限: 20
性別: 女
註冊時間: 2010-8-2
最後登錄: 2017-5-10

有您真好勳章

26^#

發表於 2010-8-10 18:32 | 只看該作者

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

中學生 Rank: 2

帖子: 26
主題: 2
精華: 0
積分: 52
點名: 0
作業系統: Mac OS X
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-8-13
最後登錄: 2010-10-29

27^#

發表於 2010-8-13 20:00 | 只看該作者

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

小學生 Rank: 1

帖子: 12
主題: 1
精華: 0
積分: 26
點名: 0
作業系統: WINDOWS XP
軟體版本: OFFICE 2007
閱讀權限: 10
註冊時間: 2010-9-8
最後登錄: 2012-2-16

28^#

發表於 2010-9-9 14:47 | 只看該作者

以上受用很多~~

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

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

中學生 Rank: 2

帖子: 26
主題: 2
精華: 0
積分: 52
點名: 0
作業系統: Mac OS X
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-8-13
最後登錄: 2010-10-29

29^#

發表於 2010-9-13 22:57 | 只看該作者

複製/貼上值
保留結果

80 字節以內
不支持自定義 Discuz! 代碼

小學生 Rank: 1

帖子: 2
主題: 1
精華: 0
積分: 8
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 10
性別: 女
來自: HK
註冊時間: 2010-9-15
最後登錄: 2010-9-16

30^#

發表於 2010-9-15 23:52 | 只看該作者

thx a lot! let me try it

Sushi

靜思自在 : 成功是優點的發揮，失敗是缺點的累積。

1 234 5 下一頁

返回列表下一主題上一主題