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

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 144
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-6-15

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

32^# 跳轉到 »

發表於 2010-9-16 21:30 | 只看該作者

回復 31# kelsie

錄製巨集

學海無涯_不恥下問

TOP

kelsie

小學生 Rank: 1

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

31^#

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

複製/貼上值
保留結果
Luc 發表於 2010-9-13 22:57

這個我了解～還是感謝你的回答!

如何使用command鈕來進行執行的部份呢?
如果不想按f9的話?

TOP

sushiso

小學生 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

TOP

Luc

中學生 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! 代碼

TOP

kelsie

小學生 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更新會同步將第一項的獎項名單又洗掉了..
該如何進行設定呢??

TOP

Luc

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

TOP

emma

中學生 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 各位先進們的協助，
目前關於此問題，由各位先進協助幫忙下，已綜合取得較佳的使用方式，謝謝大家!!

TOP

ivanyung

中學生 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

複製代碼

TOP

asimov

中學生 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","會員編號"或"彩券號碼"取代
但須注意以上三項都不可重複
如一人可有多次抽獎機會
則以"彩券號碼"為宜