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

只有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 了.

已完成有關程式, 並放了上網. 請到
http://www.geocities.com/shin_bingo_dog/Random_90.xls
http://www.geocities.com/shin_bingo_dog/Random_100.xls
試用.

2008-01-21 12:29:10 補充：
只要在column A 或 column B 任何一個cell double click 就會抽出一個 random number 了.(這比較在sheet 上建立一個 button 來 click 來得更pro.)

2008-01-21 17:08:54 補充：
要離開程式, 可在 column D, E, 或F 任何一個 cell click 一下, 然後關閉視窗.

2008-01-21 17:09:47 補充：
要離開程式, 可在 column D, E, 或F 任何一個 cell click 一下, 然後關閉視窗.