VBで時刻表のようなものを作るには (ID:103315)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

まず、時刻表のデータを作成します。
つぎに時間になったら、表示する処理を作成。
電光掲示板のように横に文字を流すのは、別の処理を作成してください。
以下、サンプルです。

Public Type JikokuHyou_
    Jikan_ As String  '時間
    Hyouji_ As String '時間になったら表示するもの
End Type
Public JikokuHyous() As JikokuHyou_

Sub 時間になったらMsgBox表示()
Dim JikokuHyouCnt As Long

'-データ----------------
    ReDim JikokuHyous(3)
    
    With JikokuHyous(1)
        .Jikan_ = "10:17"
        .Hyouji_ = "Aの列車"
    End With
    With JikokuHyous(2)
        .Jikan_ = "10:35"
        .Hyouji_ = "Bの列車"
    End With
    With JikokuHyous(3)
        .Jikan_ = "11:08"
        .Hyouji_ = "Cの列車"
    End With
    '-------------------------
    
    Do 'タイマーループ
        DoEvents
        JikokuHyouCnt = 1
        
        Do '全ての時刻表のデータループ
            '
            If Left(Right(Now, 8), 5) = JikokuHyous(JikokuHyouCnt).Jikan_ Then '時間判定
                MsgBox JikokuHyous(JikokuHyouCnt).Hyouji_ '表示
            End If
            JikokuHyouCnt = JikokuHyouCnt + 1
        Loop Until JikokuHyouCnt > UBound(JikokuHyous)
        
        sleep 1000 '1秒ずつループ
    Loop Until Left(Right(Now, 8), 5) = "12:00" 'とりあえず12時になったら終了

End Sub

←解決時は質問者本人がここをチェックしてください。

戻る