VBAを介してあなたの言葉で試験のためのストップウォッチを作る方法

ワードソリューション 2025 年 9 月 28 日
今すぐ共有：

この記事では、VBAを介してWordでの検査に使用できるストップウォッチの作成方法について詳しく説明します。

WordのVBAエディターを使用すると、実際には、小さいながらも便利なツールを自分で作成できます。 そして今日は、ストップウォッチの作り方をお見せしたいと思います。 Wordが開いているときはいつでも、トリガーして使用できます。 たとえば、試験を受けるときに重宝します。VBAを介してあなたの言葉で試験のためのストップウォッチを作る

VBAプロジェクトにモジュールを挿入する

  1. まず、「Alt + F11」を押して、WordでVBAエディターを開きます。
  2. 次に、「通常」プロジェクトをクリックし、「挿入」をクリックします。
  3. そのメニューで「モジュール」を選択します。「通常」をクリック->「挿入」をクリック->「モジュール」をクリック
  4. モジュールをダブルクリックして開きます。
  5. 「F4」を押して「プロパティウィンドウ」を開きます。 モジュール名を「modStopwatch」に変更します。
  6. 次に、次のコードをモジュールに貼り付けます。
Public g_dtStart As Variant
Public g_bOnTimer As Boolean

Public Sub OnTimerUpdate()
  Dim tmNextUpdate As Variant
 
  frmStopwatch.lblShowElapsedTime = Format(Now - g_dtStart, "hh:mm:ss")
  tmNextUpdate = Now + TimeValue("00:00:01")
  If g_bOnTimer Then
    Application.OnTime tmNextUpdate, "OnTimerUpdate"
  End If
End Sub
Sub TriggerStopwatch()
    frmStopWatch.Show
End Sub
  1. 最後に、コードを保存します。新しいモジュールに名前を付ける->コードを貼り付ける->コードを保存する

ユーザーフォームを挿入する

  1. VBAエディターで、[挿入]をクリックし、[ユーザーフォーム]を選択します。
  2. 次に、ハンドルをクリックしてフォームサイズを調整します。
  3. 次へ ユーザーフォームに「frmStopwatch」という名前を付けます, キャプションを「ストップウォッチ」に設定します、背景色を設定します。 また、 「ShowModal」を「False」に設定します.
  4. 「表示」タブをクリックし、「ツールボックス」を選択します。[表示]-> [ツールボックス]を選択します
  5. ツールボックスで、[ラベル]をクリックし、次のように、ユーザーフォームの適切な位置にXNUMXつのラベルを描画します。XNUMXつのラベルを挿入->各ラベルプロパティを設定
  6. 次に、各ラベルのプロパティを設定します。
  • ラベル1をクリックします。次に、プロパティウィンドウに移動します。 キャプションに「開始時刻」を入力してください。。 必要に応じて背景色とフォントを変更します。
  • ラベル2をクリックします。 名前は「lblStartTime」とします。. 「BackColor」を白に設定。 次に、「フォント」を適切に設定します。
  • ラベル3をクリックします。 キャプションに「終了時間：」と入力します。 背景色とフォントをラベル1と同じに設定します。
  • ラベル4をクリックします。 「lblEndTime」という名前を付けます. 「BackColor」を白に設定。 次に、ラベル2と同じフォントを設定します。
  • ラベル5をクリックします。 キャプションに「経過時間：」を入力。 背景色とフォントをラベル1と同じに設定します。
  • ラベル6をクリックします。 「lblShowElapsedTime」という名前を付けます. 「BackColor」を白に設定。 次に、ラベル2と同じフォントを設定します。
  1. ツールボックスで、「CommandButton」をクリックして3つのボタンを作成します。 次の順序で配置します。XNUMXつのボタンを作成->ボタンのプロパティを設定
  2. 同様に、ボタンのプロパティを設定します。
  • ボタン1をクリックします。 名前を「btnStart」とします。。 背景色を設定します。 キャプションを表示するには「タイマー開始」と入力してください。。 そして、フォントを正しく設定します。
  • ボタン2をクリックします。 「btnStop」という名前を付けます。 背景色を設定します。 キャプションに「StopTimer」を入力。 そして、フォントを正しく設定します。
  • ボタン3をクリックします。 「cmdClose」という名前を付けます。 背景色を設定します。 キャプションに「閉じる」と入力します。 そして、フォントを正しく設定します。
  1. 「タイマー開始」ボタンをダブルクリックし、以下のコードを入力してください。
Private Sub btnStart_Click()
  Dim tmNextUpdate As Variant
  g_dtStart = Now
 
  frmStopwatch.lblStartTime = Format(g_dtStart, "hh:mm:ss")
  frmStopwatch.lblShowElapsedTime = Format(0, "hh:mm:ss")
  tmNextUpdate = Now + TimeValue("00:00:01")
  g_bOnTimer = True
  Application.OnTime tmNextUpdate, "modStopwatch.OnTimerUpdate", 0
End Sub

最初と最後の行はすでに存在するため、再度入力する必要はありません。 コードを保存します。

  1. 次に、「タイマーの停止」ボタンをダブルクリックします。 次に、次のコードを入力します。
Private Sub btnStop_Click()
  varEndTime = Now
 
  lblEndTime = Format(varEndTime, "hh:mm:ss")
 
  g_bOnTimer = False
End Sub
  1. 「閉じる」ボタンをダブルクリックして、コードを貼り付けます。
Private Sub cmdClose_Click()
  Unload Me
End Sub

コードを貼り付ける次に、マクロ「」にボタンを割り当てることができます。トリガーストップウォッチマクロにボタンを割り当てる詳細な手順については、次の記事を参照してください。 WordでマクロとVBAを使用して貼り付けたテキストのフォーマットを削除する方法

ストップウォッチの使用のデモンストレーションは次のとおりです。

適切な回復ツールを選択する

情報の保存に関与するデジタルデバイスが増えるにつれ、データの回復が最近話題になっています。 たとえば、Wordの崩壊が発生した場合は、修復するためのツールを入手する必要があります 壊れた言葉そうなると、適切なツールを入手することが極めて重要になります。

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 xlsxを回復する (NAIST) と pdf ソフトウェア製品を修理します。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com

今すぐ共有：

コメントは締め切りました。