幫我係excel做抽獎程式 (20分 40分) 1-100

今天有時間, 給我e-mail, 馬上做給你, 今晚send俾你, 決不食言!

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