オブジェクト指向をVBAで理解する
第１回　変数とサブルーチンによる手続き型の構造

' 疑似LED制御用のパブリック変数を宣言する
Public R     As Integer ' LEDセルの行番号（Row）
Public C     As Integer ' LEDセルの列番号（Column）
Public T_on  As Long    ' 点灯時間（ミリ秒単位）
Public T_off As Long    ' 消灯時間（ミリ秒単位）
Public Clr   As Long    ' LEDの表示色（例: vbRed, vbBlue）

' LEDセルの初期設定を行う（位置・色・初期状態など）
Sub makeLED()
    R = 1               ' 行番号を1に設定（セルA1）
    C = 1               ' 列番号を1に設定（セルA1）
    T_on = 500          ' 点灯時間を500ms（0.5秒）に設定
    T_off = 500         ' 消灯時間を500ms（0.5秒）に設定
    Clr = vbRed         ' LEDの色を赤に設定

    ' セル(R, C)に疑似LEDを配置（初期状態は消灯）
    With Cells(R, C)
        .Value = "*"                    ' 消灯状態の記号（例: "*")
        .HorizontalAlignment = xlCenter ' セル内の文字を中央揃え
        .Font.Color = Clr               ' フォント色をLED色に設定
        .Interior.Color = vbBlack       ' 背景色を黒に設定（LED背景）
    End With
End Sub

' LEDを1回点滅させる（点灯→待機→消灯→待機）
Sub BlinkLED()
    Dim Now_ms As Long

    ' 点灯処理
    Now_ms = Timer * 1000               ' 現在時刻（ミリ秒）を取得
    Cells(R, C).Value = "●"            ' 点灯状態の記号（例: "●"）
    While Timer * 1000 < Now_ms + T_on  ' 点灯時間が経過するまで待機
        DoEvents                        ' 他の操作を受け付ける（応答性確保）
    Wend

    ' 消灯処理
    Now_ms = Timer * 1000               ' 再度現在時刻を取得
    Cells(R, C).Value = "*"             ' 消灯状態に戻す
    While Timer * 1000 < Now_ms + T_off ' 消灯時間が経過するまで待機
        DoEvents                        ' 他の操作を受け付ける
    Wend
End Sub

' LED点滅のメインループ（無限に点滅を繰り返す）
Sub main()
    Call makeLED                      ' LEDセルの初期設定を実行

    Stop                              ' 実行を一時停止（F5で続行可能）

    Do                                ' 無限ループで点滅を繰り返す
        Call BlinkLED                 ' LEDを1回点滅させる
        DoEvents                      ' IDE操作や割り込みを受け付ける
    Loop
End Sub