急求excel 抽獎

下面的 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

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

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

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

希望也可以幫到你。