Excell VBA Timer関数について

お教え下さい。
OS Win8.1/１０　Office10をつかっています。
exellシートセル（書式標準）及びユーザーファームでTimerの表示が常に１６の固定値しか出ません、
VBA　Timer関数のWebでは例が沢山有りますが秒数表示されません。
省略
Dim f As Long
f = Timer
Debug.Print (f)
MsgBox f '** 又はTimer　**
End sub
Timer 関数だ秒表示方法について
宜しくご教示のほどおねがいします。

mak-1

No.2 ベストアンサー 回答者： fakeflake 回答日時： 2019/01/11 12:18

Timer関数の戻り値は時間型（1日=1）だから、変数は実数型（Double型推奨）で宣言してください。

Long型は整数型だから小数点以下が扱えないので代入時に小数点以下が全部消えて整数部だけにされちゃいます。これが最大の敗因です。

結果をそのままセルに入れて表示させる場合は、セルの表示形式を時刻にしておけば時:分:秒で表示されます。そうではなく経過時間の秒数として結果が欲しければ、86400倍しましょう。24時間は86400秒なんで。

この回答へのお礼

fakeflake様
ご教授有難うございました。
１０日間いろいろ試しなやみました、目から鱗が退いた感じです。
変数定義に思い込み違いでした。
有難うございました。

お礼日時：2019/01/11 16:21