Excel で目覚まし時計を設定する:3 つのシンプルで信頼性の高い方法

今回はExcelで目覚まし時計を設定する方法を紹介します。 Excel で作業しているときに、特定のタイミングで重要なことを思い出したくなることがあります。このタスクを達成したい場合は、ここが正しい場所です。  ここではExcelで目覚まし時計を設定する方法を複数工夫してみます。それでは、始めましょう。

Excel で目覚まし時計を設定する方法:3 つの便利な方法

このセクションでは、Excel で目覚まし時計を設定する 3 つの効果的な方法を、適切な図とともに示します。最初の方法では、3 回のビープ音で目覚まし時計を設定する方法を見ていきます。次に、2 番目の方法では、Excel でカスタム着信音を使用して目覚まし時計を設定します。最後に、3 番目の方法が最も魅力的な方法です。ここでは、通知メッセージを表示し、アラーム時刻にメッセージを読み上げます。

1. Excel でビープ音付き目覚まし時計を設定する

1 番目の方法では、Excel でアラーム中に 3 つのビープ音を再生する目覚まし時計を設定する VBA モジュールを実行してみます。この方法の詳細については、以下の手順を読んで実行してください。

手順:

• まず、Visual Basic Editor を開きます。 Alt+F11 をクリックして 。または、開発者 にアクセスすることもできます。 タブをクリックしてVisual Basic をクリックします。

• 次に、[ 挿入 ] に移動して新しいモジュールを挿入します。>> モジュール .

• 次に、モジュールに次のコードを記述します。

'Alarm with beep sound
Sub Beep_Alarm()
 Dim beepat As String
 beepat = InputBox("Give Alarm at", "hh:mm:ss " & _
 Format(Now, "mm:hh"), "23:30")
 If beepat = "" Then
 MsgBox "terminated"
 Exit Sub
 End If
 Application.OnTime TimeValue(beepat), "Beep_Me"
End Sub
Sub beep_me()
 Beep
 Application.OnTime (Now + TimeSerial(0, 0, 0.8)), "beep_me2"
End Sub
Sub beep_me2()
 Beep
 Application.OnTime (Now + TimeSerial(0, 0, 0.8)), "beep_me3"
End Sub
 Sub beep_me3()
 Beep
End Sub

🗝️ コードはどのように機能しますか?

まず、サブルーチン名 Beep_Alarm を宣言します。 。次に、beep_at という名前の別の変数を宣言します。 。 InputBox を割り当てます。 ビープ音まで 変数。 インプットボックス 逆カンマ内の単語が表示されます。次に、TimeValue という名前の別のアプリケーションを取り上げます。 。このアプリケーションでは、Beep_Me という名前の別のサブルーチンを呼び出します。 。このビープ音 サブルーチンは最終的に beep_me2 という名前の別の 2 つのサブルーチンを呼び出します。 と beep_me3 。これら 3 つのサブルーチンにより、アラームが鳴ったときにビープ音が 3 回鳴ります。 時間が来る。

• 次に、[実行 ] をクリックしてコードを実行します。 上部のボタンを押すか、F5 を押します。 .

• アラーム時刻を尋ねるウィンドウが表示されます。ここでは24 時間形式で時刻を指定する必要があります。 .

• 時間を設定したら、どうなるでしょうか? ビープ音が 3 回ちょうど聞こえます。 ちょうど目覚ましの時間に。

このようにして、 ビープ音をアラームとして設定できます。 Excel で。

続きを読む: Excel でデジタル時計を作成する方法

2. Excel 目覚まし時計でカスタム サウンドを再生する

この方法では、目覚まし時計を設定する方法を学びます。 Excel でカスタム サウンドを使用 。詳細については、以下の手順に従ってください。

手順:

• 最初のステップと同様に、新しいモジュールを開きます。 Visual Basic の場合 ウィンドウ。
• 次に、モジュールに次のコードを書き留めます。

'Alarm with Custom Sound
#If Win64 Then
Private Declare PtrSafe Function Play_Sound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal AA_lpszName As String, _
ByVal AA_Module As LongPtr, ByVal AA_Flags As Long) As Boolean
#Else
Private Declare Function Play_Sound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal AA_lpszName As String, _
ByVal AA_Module As Long, ByVal AA_Flags As Long) As Boolean
#End If
Const AA_SND_SYNC = &H0
Const AA_SND_ASYNC = &H1
Const AA_SND_FILENAME = &H20000
Sub CustomSound_Alarm()
Dim beepat As String
beepat = InputBox("Give Alarm at", "hh:mm:ss " & _
Format(Now, "mm:hh"), "11:30")
If beepat = "" Then
MsgBox "Terminated"
Exit Sub
End If
Application.OnTime TimeValue(beepat), "AlarmSound2"
End Sub
Sub AlarmSound2()
Call Play_Sound("F:\90_Aniruddah\90_57\alarm1.wav", _
0, AA_SND_ASYNC Or AA_SND_FILENAME)
End Sub

🗝️ コードはどのように機能しますか?

ここでは、 まず 2 つのプライベート関数 を宣言しました。 Windows の 2 つの異なるバージョン (Windows 64 とその他のバージョン) 用。次に 3 つの定数 を宣言しました。 SND_SYNC という名前 、SND_ASYNC とSND_FILENAME 。その後、 別のサブルーチンを実行しました。 カスタムサウンドアラームという名前 。  このサブルーチン内で変数を宣言しました。 ビーパット入力ボックスという名前 。 TimeValue という名前の別のアプリケーションを使用しました。 これにより、AlarmSound2 という名前の別のサブルーチンが呼び出されます。 。 アラームサウンド 2 場所が F:\90_Aniruddah\90_57\alarm1.wav として設定されているローカル ファイル オーディオを再生します。 。 この位置にファイルの場所を書き込む必要があります。

• ここは F:\90_Aniruddah\90_57\alarm1.wav の場所です。 、サウンドファイルの場所を書き込みます。これを行うには、Windows ファイル エクスプローラーからファイル アドレスをコピーします。
• ここで、F5 を押してコードを実行すると、 、 メッセージ ボックス アラーム時刻を尋ねるメッセージが表示されます。ここで、時刻 (24 時間形式) を入力し、[OK] をクリックします。 .

• 時間を設定すると、アラームの時刻に設定した独自のカスタムサウンドが聞こえるはずです。

3. Excel 目覚まし時計でのメッセージの表示と読み上げ

多くの場合、アラームを設定するとともに、アラーム時間中にメッセージ ボックスを表示する必要があります。この方法では、アラーム時にカスタマイズしたメッセージを含むメッセージボックスを表示および読み上げる方法を説明します。面白そうですか？以下の手順に従ってください。

手順:

• 1 番目と 2 番目の方法と同様に、Visual Basic を開きます。 ウィンドウを開き、別の新しいモジュールを挿入します。 .
• 次に、モジュールに次のコードを書き留めます。

' Alarm with Message
Sub Reading_Message_Alarm()
 Dim beepat As String
 beepat = InputBox("Give Alarm at", "hh:mm:ss " & _
 Format(Now, "mm:hh"), "11:30")
 If beepat = "" Then
 MsgBox "Terminated"
 Exit Sub
 End If
 Application.OnTime TimeValue(beepat), "DisplayAlarm"
End Sub
Sub DisplayAlarm()
Application.Speech.Speak ("This is the message that will be read out during alarm time.")
MsgBox "This is the message that will be displayed in the messagebox"
End Sub

🗝️ コードはどのように機能しますか?

このコードでは、 まずReading_Message_Alarm という名前のサブルーチンを取得します。 次に、beepat という名前の変数を取得しました。 。この変数を使用してInputBoxを割り当てました。 アラーム時刻を尋ねます。アラーム時刻に基づいて、TimeValue という名前のアプリケーションが実行されます。 DisplayAlarm という名前の別のサブルーチンを呼び出します。 。このサブルーチンはメッセージを読み上げ、またメッセージを表示します。

• 次に、F5 キーを押してコードを実行します。 その結果、ウィンドウが開くので、アラーム時刻を入力してOKを押す必要があります。 .

• その結果、アラーム時刻になると、最初にメッセージが読み上げられ、次に下の図のようにメッセージ ボックスが表示されます。

続きを読む: Excel でランニングクロックを作成する方法

覚えておくべきこと

• カスタマイズしたアラーム音を再生するには、.wav を設定する必要があります。 MP3 には注意してください。 この場合、ファイル形式は機能しない可能性があります。

練習ワークブックをダウンロード

結論

Excelの目覚まし時計の設定に関するこの記事は以上です。この記事が役立つと思われた場合は、お友達と共有してください。さらにご不明な点がございましたら、お知らせください。最後に、Excel に関するさらに魅力的な記事については、Exeldemy にアクセスしてください。

関連記事

• Excel で時計チャートを作成する方法
• VBA コードを使用して Excel でデジタル時計を作成する方法
• Excel でアナログ時計を作成する方法
• ユーザーフォーム上の Excel VBA デジタル時計:包括的なガイド

ソリューション付きの高度な Excel 演習を無料で入手しましょう!