ExcelWork.info

Excel(エクセル)のマクロ・VBA・関数・操作などのメモ

日付時刻:経過時間を取得( Timer 関数 )

   

Timer 関数の使い方


【書式】

result = Timer ()


【戻り値】

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


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


Timer 関数の使用例

サンプルVBAソース


実行結果

Timer 関数 使用例


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



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



 - VBA基本 , ,

Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

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

  関連記事

TextToColumns メソッド
セルのデータを区切り文字で複数のセルに分割する(TextToColumns メソッド)

TextToColumns メソッド TextToColumns メソッドを使用 …

ADO Stream オブジェクト テキスト(UTF-8)読み込み
テキストファイル(UTF-8)を読み込み、書き出し(ADODB.Stream)

Stream オブジェクト ADO(ActiveX Database Objec …

VBA正規表現使用例
VBA で正規表現を使う(RegExp オブジェクト)

RegExp オブジェクト VBA で正規表現を使うには、VBScript のR …

フォント名(Name,ThemeFont,StandardFont) 例
フォント名(Name,ThemeFont,StandardFont)

フォント名を取得・設定する(Name プロパティ) Name プロパティは、オブ …

列挙型変数(Enum ステートメント)

列挙型変数を使う 列挙型変数を使用するには、Enum ステートメントを使って、宣 …

インプットボックスを表示する(InputBox関数・InputBoxメソッド)

「InputBox関数」と「InputBoxメソッド」の違い 「InputBox …

文字列:文字列左から指定文字数取得(Left 関数,LeftB 関数)

Left 関数・LeftB 関数 の使い方 【書式】 result_left = …

カレントフォルダの変更・確認
カレントフォルダ(CurDir 関数、ChDir ステートメント、ChDrive ステートメント)

カレントフォルダ カレントフォルダとは、ブックを開いたり保存するときに既定で参照 …

上付き文字・下付き文字(Superscript,Subscript)

上付き文字(Superscript プロパティ) Superscript プロパ …

VBA の演算子(論理演算子:And、Eqv、Imp、Not、Or、Xor)

論理演算子 論理演算を行うときに使用する演算子で、以下の 6 種類があります。 …