幫我係excel做抽獎程式 (15分 30分)

2008-01-19 6:30 am


我想做一個抽獎的程式,在1-90中抽出1個號碼,在關程式前不會重覆之前的號碼,每個號碼出現的機會均等。

在抽獎的時間, 即攪珠既時候,最好整到有d數字跳動,可唔可以幫我整一個出來

整係個excel到(最好係office 07),到時聯絡我,我會比我e-mail你!!!
Thanks!

回答 (2)

2008-01-22 5:55 pm
✔ 最佳答案
已完成有關程式, 並放了上網. 請到
http://www.geocities .com/shin_bingo_dog/ Random_90.xls
http://www.geocities .com/shin_bingo_dog/ Random_100.xls
試用.


只要在column A 或 column B 任何一個cell double click 就會抽出一個 random number 了.
(這比較在sheet 上建立一個 button 來 click 來得更pro.)
要離開程式, 可在 column D, E, 或F 任何一個 cell click 一下, 然後關閉視窗.
2008-01-19 10:31 pm
只有1-10

抽獎程式

假設有號碼1-10

1) 在 excel 的 工具 下, 選 檢視, 再 tick 控制工具箱.

2) 在 控制工具箱 drag 一個 COMMAND BUTTON 到 worksheet.

3) double click COMMAND BUTTON, excel 會轉到 visual basic editor, 之後, 輸入下面的 code:


Dim n(10)

Private Sub CommandButton1_Click ()

ran:
Randomize

x = Rnd

x = Int(10 * Rnd) + 1
n(x) = n(x) + 1

If n(x) > 1 Then
GoTo ran
Else
Cells(1, 1) = x
End If


End Sub

4) 轉回 excel worksheet 晝面, click COMMAND BUTTON 一下, 就會在 A1 出現一 random number 了.

5) 幸運號碼不會重覆.

6) 可改變 font size, row height 使字體加大.

隨機抽籤程式

1) 打開一空白的 slide
2) 檢視--->工具列--->控制工具箱
3) 在 slide 上 劃一commandbotton 及一textbox
4) doubleclick commandbotton
5) 將 對應的 sub 改成:

Private Sub CommandButton1_Click()

Randomize
x = Int(100 * Rnd()) + 1

TextBox1 = x

End Sub

6) 播放後按 commandbutton 就會在 textbox 出現 random number 了.


收錄日期: 2021-04-23 19:42:45
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20080118000051KK03668

檢視 Wayback Machine 備份