Windows APIを使用したタイマー : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサーリンク






Excel VBA シートコード

'Windowsが起動してからの経過時間 API
Private Declare Function GetTickCount Lib "kernel32" () As Long

'タイマー
Private Sub ExTimer(tim As Long)
    Dim st As Long
    
    tim = tim * 1000
    '開始時間を取得
    st = GetTickCount
    DoEvents
    Do
        If GetTickCount - st >= tim Then
            '時間が経過した
            Exit Do
        End If
        DoEvents
    Loop
End Sub

コマンドボタンクリックイベント
Private Sub CommandButton1_Click()
    CommandButton1.Caption = "Start"
    '10秒間タイマー
    ExTimer 10
    CommandButton1.Caption = "Stop"
End Sub

スポンサーリンク



Excel 実行結果

開始コマンドボタン

スポンサーリンク






Excel Tipsメニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved