▼をくり返しを利用して入力
Sub fortune03()
Dim Suchi As Double
Dim Seisu As Long
Dim Amari As Long
Dim i As Long
Suchi = InputBox("数字を入力してください")
For i = 1 To 7
With Cells(i, 3)
.HorizontalAlignment = xlCenter
.Font.Size = 20
.Value = "▼"
End With
Next i
With Range("C8")
.RowHeight = 120
.ColumnWidth = 60
.Font.Size = 70
.HorizontalAlignment = xlCenter
.Font.Color = RGB(255, 255, 255)
.Interior.Color = RGB(255, 0, 0)
End With
Suchi = Rnd
Seisu = Round(Suchi * 17)
Amari = Seisu Mod 7
Select Case Amari
Case 0
Range("C8") = "大吉"
Case 1
Range("C8") = "吉"
Case 2
Range("C8") = "小吉"
Case 3
Range("C8") = "吉"
Case 4
Range("C8") = "中吉"
Case 5
Range("C8") = "末吉"
Case Else
Range("C8") = "凶"
End Select
End Sub
乱数(Rnd)を利用
Suchi = Rnd | 乱数(Rnd)を発生させる |
Seisu = Round(Suchi * 17) | 乱数に17(素数)をかけて、数値を丸める。 これによって、数値が 0 ~ 17 に設定される |
Amari = Seisu Mod 7 | 数値を 7 で割った余りを得る |
つつきがあります
コメント