急求excel 抽獎

2010-06-04 6:53 pm
求高手幫忙做一個EXCEL 的抽獎, 詳情如下:

有5款禮物(A至E), 每款數量不同:

A 10份
B 5份
C 50份
D 30份
E 7份

抽獎結果會顯示 :

恭喜! 你得到的是:
“禮物名稱(A ~ E)”

禮物數量會隨之而減少.
更新1:

hello joe. thanks a lot 但係... 我試過之後... 只有一個input box 不停要我去enter, 禮物數有減少但係show 唔到" 你得獎的是 x" 呢樣野... 唔知係唔係我錯左d 咩野... or 唔識set 個macro 如果你唔介意, 可以將個file send 去: [email protected] 嗎?

回答 (2)

2010-06-09 9:25 pm
✔ 最佳答案
下面的 macro, 可為你完成任務:

Dim a(5)
Dim b(5)

Sub Macro1()
'
' Macro1 巨集表
'
'
'
a(1) = 10: a(2) = 5: a(3) = 50: a(4) = 30: a(5) = 7
b(1) = "A": b(2) = "B": b(3) = "C": b(4) = "D": b(5) = "E"
rep:
t = a(1) + a(2) + a(3) + a(4) + a(5)
Cells(1, 1) = a(1): Cells(1, 2) = a(2): Cells(1, 3) = a(3): Cells(1, 4) = a(4): Cells(1, 5) = a(5)
'Cells(2, 1) = t
If t = 0 Then End
rep1:
n = Int(5 * Rnd()) + 1
If a(n) = 0 Then GoTo rep1
a(n) = a(n) - 1
Cells(10, 5) = "恭喜! 你得到的是: " & b(n)
z = InputBox("Press ENTER to continue")
GoTo rep

End Sub
2010-06-05 2:22 am
以我所知excel沒有累加的功能,即是不能使禮物數量會隨之而減少的。不過隨機抽取A-E是可以的。語法如下:

="恭喜! 你得到的是: "&CHAR(RAND()*5+65)

在excel的儲存格打入這句,然後每按一下鍵盤的"F9",字母隨即更換。

希望也可以幫到你。
參考: me


收錄日期: 2021-04-19 22:27:41
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20100604000051KK00265

檢視 Wayback Machine 備份