【まちゼミ】VBA見本(条件)

レッスン報告

▼をくり返しを利用して入力

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 で割った余りを得る

つつきがあります

コメント

タイトルとURLをコピーしました