Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

日付時刻：経過時間を取得（ Timer 関数）

2015/04/21

Timer 関数の使い方

【書式】

result = Timer ()

【戻り値】

result ・・・当日午前 0 時から経過した秒数を表す単精度浮動小数点数型（Single）の値。

Timer 関数は、処理中に午前０時を超えた場合、値を「１日の総秒数を反転した値（-86,400 秒）」にリセットし、そこから経過秒数を加算していきます。さらに１日が経過し翌日の午前０時になると「 0 秒」となるので、日付をまたぐ場合は注意が必要です。
【対応策】
１．経過時間の差分の値の絶対値を Abs 関数等で算出して、その値で経過秒数を判定する。
２．「【参考】サンプルVBAソース２」のように、Timar 関数を使用しない。

Timer 関数の使用例

サンプルVBAソース

　
Sub Sample_Timer()

    Dim StartTime
    Dim EndTime

    StartTime = Timer
    EndTime = 20
    
    With Sheets("Sheet1")
        
        .Cells(1, 1).Value = ""
    
        Do Until .Cells(1, 1).Value = 20
            .Cells(1, 1).Value = Int(Timer - StartTime)
            DoEvents
        Loop
    
    End With

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

　

Sub Sample_Timer()

Dim StartTime

Dim EndTime

StartTime = Timer

EndTime = 20

With Sheets("Sheet1")

.Cells(1, 1).Value = ""

Do Until .Cells(1, 1).Value = 20

.Cells(1, 1).Value = Int(Timer - StartTime)

DoEvents

Loop

End With

End Sub

　

実行結果

DoEvents 関数について
上記マクロ内には DoEvents というのがありますが、この「DoEvents関数」を使用することで、一時的に、他のアプリケーションが実行できるように Windows に制御を移すことが可能になります。
つまり、マクロを実行後、VBE 画面からマクロを停止することが可能になります。

【参考】サンプルVBAソース２

　
Sub Sample_Test()

    Dim StartTime
    Dim EndTime
    
    StartTime = Now
    EndTime = 20
    
    Cells(1, 1).Value = ""
    
    Do Until Cells(1, 1).Value = EndTime
    
        Cells(1, 1).Value = Int(DateDiff("s", StartTime, Now))
        DoEvents
    
    Loop

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

　

Sub Sample_Test()

Dim StartTime

Dim EndTime

StartTime = Now

EndTime = 20

Cells(1, 1).Value = ""

Do Until Cells(1, 1).Value = EndTime

Cells(1, 1).Value = Int(DateDiff("s", StartTime, Now))

DoEvents

Loop

End Sub

　

- VBA基本 timer 関数, VBA基本, エクセルVBA

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 変数がオブジェクト型かどうかをチェックする（ IsObject 関数）

IsObject 関数の使い方【書式】 result = IsObject ( …

: ショートカットメニュー（CommandBar オブジェクト）

ショートカットメニュー（コンテキストメニュー）右クリックで表示されるメニューの …

: 出力位置、書き込み位置を設定（Tab 関数）

出力位置、書き込み位置を設定 Tab 関数は、Print メソッド、または P …

: 文字に下線を設定する（Underline プロパティ）

下線を設定（Underline プロパティ） Underline プロパティは、 …

: 文字列：指定した文字の文字コードを取得する（Asc 関数）

Asc 関数【書式】 result = Asc ( string ) 引数・戻 …

: ユーザー定義関数：セルを取得する（ThisCell プロパティ）

入力されたセルを取得するワークシート上で使用する Function プロシージ …

: Erase ステートメント（配列の初期化・動的配列のメモリ解放）

Erase ステートメントの使い方【書式】 Erase myArray [, …

: VBA で正規表現を使う（RegExp オブジェクトのプロパティ）

RegExp オブジェクトのプロパティ RegExp オブジェクトの詳細に関して …

: ユーザー定義定数（Const ステートメント）

定数を使うユーザー定義の定数を使用するには、Const ステートメントを使って …

: 文字列：文字列変数の値を右詰めまたは左詰めにする（RSet ステートメント・LSet ステートメント）

RSet ステートメント・LSet ステートメント【書式】＜ RSet ステ …

PREV: 日付時刻：日付・時刻の間隔を取得（ DateDiff 関数）
NEXT: 書式を変換（Format 関数）