【まちゼミ】VBA見本（条件）

Sub fortune04()
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)
        Application.Wait [now() + "00:00:01"]
                    .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
        Application.Wait [now() + "00:00:03"]
    
    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

Application.Wait [now() + “00:00:03”]

表示まで「少し待ってね」というコマンドを入れてみました。