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

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

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

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

中學生 Rank: 2

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

1^# 跳轉到 »

發表於 2010-8-2 21:54 | 顯示全部帖子

用 rand() 公式, 用 column B 做 sorting
假設如下：
A B
Name =Rand()

中學生 Rank: 2

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

2^#

發表於 2010-8-3 13:40 | 顯示全部帖子

sample.zip (1.82 KB)
按 "F9" 會自動更新

中學生 Rank: 2

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

3^#

發表於 2010-8-3 14:07 | 顯示全部帖子

嗚嗚，ivanyung 大大，我目前還沒有下載的權限耶，
請問我能私下給您我的mail，再麻煩您寄給我嗎@"@?
emma 發表於 2010-8-3 13:53

這裡限制真大.... 我目前沒有權限發短消息 ...

中學生 Rank: 2

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

4^#

發表於 2010-8-3 22:24 | 顯示全部帖子

用最簡單的方法
如果:
a有5次中獎機會
b有10次中獎機會
c有1次中獎機會

ID 姓名
1 a
1 a
1 a
1 a
1 a
2 b
2 b
2 b
2 b
2 b
2 b
2 b
2 b
2 b
2 b
2 b
3 c

中學生 Rank: 2

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

5^#

發表於 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

複製代碼

靜思自在 : 知識要用心體會，才能變成自己的智慧。

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