Note: The other languages of the website are Google-translated. Back to English

Excelワークシートでストップウォッチを作成するにはどうすればよいですか?

ワークシートにストップウォッチがある場合は、ジョブを終了する時間がわかります。 次のスクリーンショットに示すように、開始、停止、リセットボタンを使用してシートにストップウォッチを作成するにはどうすればよいですか? [開始]ボタンをクリックすると開始時刻になり、[停止]ボタンをクリックすると停止時刻になります。[リセット]ボタンを使用すると、時刻をリセットできます。 この記事では、Excelでシンプルで便利なストップウォッチを作成する方法について説明します。

doc create ストップウォッチ 1

VBAコードを使用して、XNUMXつのボタンでストップウォッチを作成します


VBAコードを使用して、XNUMXつのボタンでストップウォッチを作成します

スタート、ストップ、リセットのXNUMXつのボタンでストップウォッチを作成するには、次の手順をXNUMXつずつ実行してください。

まず、XNUMXつのコマンドボタンを挿入します。

1に設定します。 OK をクリックします。 ディベロッパー > インセット > コマンドボタン、スクリーンショットを参照してください:

doc create ストップウォッチ 2

2。 次に、マウスをドラッグしてボタンを描画します。ボタンを挿入した後、ボタンのキャプションを変更できます。クリックしてください ディベロッパー > プロパティ、で プロパティ ダイアログで、新しいキャプション「開始の横にあるテキストボックスのこのボタンの「」 キャプション、スクリーンショットを参照してください:

doc create ストップウォッチ 3 2 doc create ストップウォッチ 4

3。 上記のXNUMXつの手順を繰り返して、他のXNUMXつのボタンを挿入し、「停止"と"リセット」、スクリーンショットを参照してください:

doc create ストップウォッチ 5

4。 ボタンを挿入した後、をクリックしてデザインモードを終了する必要があります ディベロッパー > デザインモード.

次に、VBAコードを作成します。

5。 次に、現在のワークシートタブを右クリックして、 コードを表示、飛び出した アプリケーション向け Microsoft Visual Basic ウィンドウに、次のコードをコピーして貼り付けてください モジュール:

VBAコード:ストップウォッチを作成します:

Public StopIt As Boolean
Public ResetIt As Boolean
Public LastTime
Private Sub CommandButton1_Click()
Dim StartTime, FinishTime, TotalTime, PauseTime
StopIt = False
ResetIt = False
If Range("C2") = 0 Then
  StartTime = Timer
  PauseTime = 0
  LastTime = 0
Else
  StartTime = 0
  PauseTime = Timer
End If
StartIt:
  DoEvents
  If StopIt = True Then
    LastTime = TotalTime
    Exit Sub
  Else
    FinishTime = Timer
    TotalTime = FinishTime - StartTime + LastTime - PauseTime
    TTime = TotalTime * 100
    HM = TTime Mod 100
    TTime = TTime \ 100
    hh = TTime \ 3600
    TTime = TTime Mod 3600
    MM = TTime \ 60
    SS = TTime Mod 60
    Range("C2").Value = Format(hh, "00") & ":" & Format(MM, "00") & ":" & Format(SS, "00") & "." & Format(HM, "00")
    If ResetIt = True Then
      Range("C2") = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
      LastTime = 0
      PauseTime = 0
      End
    End If
    GoTo StartIt
  End If
End Sub
Private Sub CommandButton2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
  StopIt = True
End Sub
Private Sub CommandButton3_Click()
  Range("C2").Value = Format(0, "00") & ":" & Format(0, "00") & ":" & Format(0, "00") & "." & Format(0, "00")
  LastTime = 0
  ResetIt = True
End Sub

doc create ストップウォッチ 6

注意:上記のコードでは、 C2 ストップウォッチ時間が挿入されるセルであり、 コマンドボタン1, コマンドボタン2, コマンドボタン3 ボタン名は、から正確なボタン名を表示できます 名前ボックス、スクリーンショットを参照してください:

doc create ストップウォッチ 7

第三に、ストップウォッチタイムセルをフォーマットします。

6。 次に、タイムセルを次のようにフォーマットする必要があります テキスト フォーマットし、必要に応じてセルサイズ、フォント、フォントの色、背景などを変更できます。スクリーンショットを参照してください。

doc create ストップウォッチ 8

7。 上記の手順を終えた後、これからクリックすると 開始 ボタンをクリックすると、今から時間が始まります。 停止 ボタン、それは時間を停止します、 リセット ボタンは時間をリセットします。スクリーンショットを参照してください。

doc create ストップウォッチ 9


デモ:VBAコードを使用して、XNUMXつのボタンでストップウォッチを作成します


最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (30)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
この投稿をありがとう、それは非常に役に立ちました。 ただし、セルを編集しているときにタイマーが停止しないようにコードを微調整する方法はありますか? 理想的には、[開始]をクリックし、同じタブのセルの範囲にいくつかの変更を加えてから、合計経過時間の間[停止]をクリックします。 これに関するアドバイスをいただければ幸いです。
このコメントは、サイトのモデレーターによって最小化されました
これを理解したことがありますか? 同じスプレッドシートで他の変更が行われている間、私もタイマーを実行し続ける必要があります。 ありがとう。 マイク
このコメントは、サイトのモデレーターによって最小化されました
これは大きな助けであり、手順を実行するのは非常に簡単でした。
このコメントは、サイトのモデレーターによって最小化されました
フォームで同じコードを使用してストップウォッチを作成しようとしました。 タイマーは完全に正常に開始しますが、停止しません。 同じものをフォームに複製する方法を提案してください
このコメントは、サイトのモデレーターによって最小化されました
XNoteストップウォッチをお試しください。
このコメントは、サイトのモデレーターによって最小化されました
タイマーを特定の時間までカウントアップまたはカウントダウンさせる方法はありますか? スタート、ストップ、リセットボタンを残したいのですが、スタートを押すと01分01秒までカウントする必要があります。 または、XNUMX分XNUMX秒からゼロ(XNUMX:XNUMX)までカウントダウンします。 ご協力いただきありがとうございます!
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、メリッサ、
ワークシートでカウントダウンタイマーを作成する必要がある場合は、次の記事が役立つかもしれません!
https://www.extendoffice.com/documents/excel/2144-excel-countdown-timer.html
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、

その記事を見ましたが、このページのストップウォッチとまったく同じように見える必要がありますが、XNUMX分XNUMX秒からカウントダウンするだけで済みます。 ストップウォッチ形式で表示する必要がありますが、カウントダウンとして機能します。 さらにアドバイスはありますか?


返信ありがとうございます!
このコメントは、サイトのモデレーターによって最小化されました
エクセルでデザインしたスコアボード用です。
このコメントは、サイトのモデレーターによって最小化されました
すばらしいですが、同じシートで2つのクロックを実行することは可能ですか? 新しい開始、停止、リセットボタンでXNUMX番目の時計を作成しましたが、XNUMX番目の時計を開始すると、最初の時計が停止します。
このコメントは、サイトのモデレーターによって最小化されました
ここで同じようにあなたはこれの治療法を見つけることができます
このコメントは、サイトのモデレーターによって最小化されました
皆さん、こんにちは、
この方法は、ワークシートのXNUMXセットのボタンにのみ適用されます。
他に良いアイデアがあれば、ここにコメントしてください。
このコメントは、サイトのモデレーターによって最小化されました
画面がロックされたときにタイマーを自動的に停止し、コンピューターのロックを解除したときにタイマーを自動的に開始することはできますか?
このコメントは、サイトのモデレーターによって最小化されました
タイマーにカウントをゼロにリセットさせながら、タイマーを実行し続ける方法はありますか? つまり。 リセットを押したときに、もう一度スタートを押す必要はありません。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、私はこのストッパーを使用していますが、表示セル( "C2")の数字がちらつき始め、消えていくことがよくあります。マイナス記号が表示され、数字が正しくなく、カウントが失われます。 通常、約00時間以上後に発生しますが、0時間経過する前に発生することもあります。 これは一般的なバグですか? はいの場合、それを修正する方法はありますか? :& "。"を消去するだけで、コードから.00(つまりミリ秒)を削除しました。 &Format(XNUMX、 "XNUMX")行が表示されている場所-それはこの問題と何か関係がありますか?
このコメントは、サイトのモデレーターによって最小化されました
ヒントありがとうございます。スムーズに実行されていましたが、このシートにデータを入力すると実行が停止しました。しばらく実行し続ける必要があります。入力データこの問題を解決するにはどうすればよいですか。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、Nhoeun、
あなたの問題を解決するための良い方法ではないかもしれません。 セルを編集すると、現在実行されているマクロが中断されます。
他に良い方法があれば、ここにコメントしてください!
ありがとうございました!
このコメントは、サイトのモデレーターによって最小化されました
こんにちは。 私はストップウォッチを作成しましたが、時間と動きの研究としてそれらを反映できるように、保存するために開始と停止の間のさまざまな間隔を持つことができる必要があります。 それを行う方法に関するヒントはありますか?
このコメントは、サイトのモデレーターによって最小化されました
すべての手順を実行しましたが、スタートボタンをクリックすると、「マクロ "'file.xlsm'!CommandButton1"を実行できません。マクロがこのブックで使用できないか、すべてのマクロが無効になっている可能性があります。」というエラーメッセージが表示されます。 すべてのマクロが有効になっています。マクロはModule1にあります。 注:Office 2019 for Macを実行しているので、問題が発生する可能性があります。
このコメントは、サイトのモデレーターによって最小化されました
このコードに「+10s」と「2xSpeed」機能を追加してみませんか?
このコメントは、サイトのモデレーターによって最小化されました
ここで「タイマー」は変数ですか? コードにその関連性が見られない。
このコメントは、サイトのモデレーターによって最小化されました
カウンターに秒だけをカウントさせることは可能ですか?
したがって、59秒に達すると、60、61、62、63...に続きます。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは
手順を実行しましたが、タイマーセルに表示される時間が取得できません。 コードをコピーしましたが、check1できますか。 行番号が不要であるか、それらであるか2。 sheet1やThisworkbook1ではなくモジュール3にコードを入れたこと。 これをすべて行った後、マクロリストにマクロがリストされている必要があります-私のものはそうではありません。
感謝
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、ジャニス、ステップ5として、コードをアクティブなシートモジュールに配置する必要があります。
5.次に、現在のワークシートタブを右クリックし、[コードの表示]を選択します。ポップアップ表示された[Microsoft Visual Basic for Applications]ウィンドウで、次のコードをコピーしてモジュールに貼り付けてください。

また、ボタン名を自分のものに変更する必要があります。
注:上記のコードでは、C2はストップウォッチ時間が挿入されるセルであり、 コマンドボタン1, コマンドボタン2, コマンドボタン3 ボタン名です。名前ボックスから正確なボタン名を表示できます。

確認してください、ありがとうございます!
このコメントは、サイトのモデレーターによって最小化されました
これは素晴らしいです! ありがとう、クリスH
このコメントは、サイトのモデレーターによって最小化されました
コンボボックスまたはドロップダウン選択を使用して、時計を開始および停止することは可能ですか?
このコメントは、サイトのモデレーターによって最小化されました
Bonjour、j'aivouluintégrercechronomètreàuneautre macro、déterminerle temps d'utilisationdufichier。 La macro se lance mais bloque l'utilisation du fichier.Comment faire pourutiliservotrechronomètreenmêmetempsqued'autrescode VBA?MerciHenry。
このコメントは、サイトのモデレーターによって最小化されました
やあ! これをありがとう、それが後続のセルに時間を入力するようにするにはどうすればよいですか? セルC2の開始/停止時間、次にセルc3、c4、c5などの異なる開始/停止時間 
ここにはまだコメントが投稿されていません
もっと読む
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護