ExcelマクロVBAサンプル集
ストップウォッチ(1/100秒)(Timer)

ExcelマクロVBAの実用サンプル、エクセルVBA集と解説
最終更新日:2013-05-30

ストップウォッチ(1/100秒)(Timer)


ストップウォッチを作ってみましょう。


機能は簡単に、

ボタンを押すと、0からスタートし、時間表示が進む。

もう一度ボタンを押すとストップする。

これだけです。

つまり、1つのボタンで、

マクロをスタートさせたり、ストップさせたりする方法の紹介になります。

ただし、1/100秒、つまり、ミリ秒単位で計測できるようにします。

では、そのマクロです。



Private blnStop As Boolean
Private blnStart As Boolean

Sub StopWatch()
  Dim dblTimer As Double
  If blnStart = True Then
    blnStop = True
    Exit Sub
  End If
  blnStart = True
  blnStop = False
  dblTimer = Timer
  Do Until blnStop = True
    Cells(1, 1) = Int((Timer - dblTimer) * 100) / 100
    DoEvents
  Loop
  blnStart = False
  blnStop = False
End Sub


上記マクロを標準モジュールに登録し、
そのマクロを登録したボタンを、シートに追加して下さい。
時間表示は、"A1"セルにしてあります。


まず、上記のように、モジュールレベル変数を定義します。
blnStartは、スタートしている間、Trueにします。
blnStopは、ストップさせる時に、Trueにします。


この2つの変数で、動きを制御している訳です。

注意点は、
マクロ実行中に、ボタン押下を可能とする為、
ScreenUpdatingをFalseにはしない事です。
そして、
DoEventsを入れる事になります。


エクセルでマクロを書いてストップウォッチそのものを作る事はあまりないと思います。

ここでは、ストップウオッチを作るテクニックを紹介する事で、

そのテクニックが、他で応用出来るだろうと言う事です。

この方法は、時間のかかるマクロを途中で停止させたい場合に有効です。

試してみて下さい。



同じテーマ「マクロVBAサンプル集」の記事

計算式の元となる数値定数を消去する(Precedents)
Beep音で音楽(Beep,Sleep)
日付の検索(配列の使用)
ストップウォッチ(1/100秒)(Timer)
ストップウォッチ改(1/100秒)(Timer)
重複の無いユニークなデータ作成
WEBデータの取得方法
右クリックメニューの変更(CommandBars)
エクセルのアイコン取得(FaceID)
素数を求めるマクロ
入力規則のリスト入力を確認する


新着記事NEW ・・・新着記事一覧を見る

Withステートメントの実行速度と注意点|VBA技術解説(6月6日)
VBA+SeleniumBasicで検索順位チェッカー(改)|VBA技術解説(6月2日)
マクロでShift_JIS文字コードか判定する|VBA技術解説(6月1日)
Shift_JISのテキストファイルをUTF-8に一括変換|VBAサンプル集(5月31日)
「VBAによる解析シリーズその2 カッコ」をやってみた|エクセル(5月21日)
VBA+SeleniumBasicで検索順位チェッカー作成|VBA技術解説(5月18日)
テーブル操作のVBAコード(ListObject)|VBA入門(5月12日)
テーブル操作の概要(ListObject)|VBA入門(5月12日)
VBAのスクレイピングを簡単楽にしてくれるSelenium|VBA技術解説(5月6日)
Excelワークシート関数一覧(2010以降)|VBAリファレンス(4月22日)


アクセスランキング ・・・ ランキング一覧を見る

1.最終行の取得(End,Rows.Count)|VBA入門
2.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
3.RangeとCellsの使い方|ExcelマクロVBA入門
4.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
5.変数とデータ型(Dim)|ExcelマクロVBA入門
6.ひらがな⇔カタカナの変換|エクセル基本操作
7.繰り返し処理(For Next)|ExcelマクロVBA入門
8.マクロって何?VBAって何?|ExcelマクロVBA入門
9.空白セルを正しく判定する方法(IsEmpty,IsError,HasFormula)|VBA技術解説
10.ExcelマクロVBAの基礎を学習する方法|エクセルの神髄


  • >
  • >
  • >
  • ストップウォッチ(1/100秒)(Timer)

  • このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。


    記述には細心の注意をしたつもりですが、
    間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
    なお、掲載のVBAコードは自己責任で使ってください。万一データ破損等の損害が発生しても責任は負いません。






    このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
    本文下部へ