用Excel VBA Rnd亂數以及Select Case語法,可以寫一個簡單的抽籤跟抽獎程式
![](https://tingyucho.home.blog/wp-content/uploads/2021/08/image-13.png?w=397)
![](https://tingyucho.home.blog/wp-content/uploads/2021/08/image-16.png?w=546)
Public Sub button1()
Dim r As Long
r = Int(Rnd * 10) + 1 ' 1~10
Select Case r
Case 1: 'r=1
Range("C4") = "大凶"
Case Is <= 3
Range("C4") = "凶"
Case Is <= 7
Range("C4") = "平"
Case Is <= 9
Range("C4") = "吉"
Case Else
Range("C4") = "大吉"
End Select
End Sub
![](https://tingyucho.home.blog/wp-content/uploads/2021/08/image-14.png?w=540)
Public Sub button2()
Dim r As Long
r = Int(Rnd * 101)
Select Case r
Case Is <= 1 ' r=0, r=1 ===> case 0 to 1 ===> case 0,1 => case 0: case 1:
Range("C4") = "GOGORO"
Case Is <= 10
Range("C4") = "機票"
Case Is <= 30
Range("C4") = "$6000"
Case Is <= 60
Range("C4") = "$3000"
Case Else
Range("C4") = "$1000"
End Select
End Sub