Excel で特定曜日がきたら音楽を鳴らしす。タイマーマクロ（2）

デイリー作業で指定時間がきたらメッセージと音楽を鳴らすことができるようになると、毎週のウイークリー作業についてもワーニングを出したくなります。音楽を鳴らす場合のお決まりは最初の行に

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

と記載しておきます。次に、スケジュール表を開いたときにウイークリー作業のマクロプログラムが自動実行できるようにマクロ名を決め打ちします。

Sub Auto_Open()

End Sub

で、毎週特定曜日になったら「教えてね」とさせたい仕事を挟み込みます。

Sub Auto_Open()

If (Weekday(Date) = 2) Then

AlarmMessage1

End If

If (Weekday(Date) = 5) Then

AlarmMessage2

End If

If (Weekday(Date) = 6) Then

AlarmMessage3

End If

End Sub

(Weekday(Date) = 2 の 2 の部分が月曜日、5 にすれば木曜日に該当します。

Sub AlarmMessage1()

Sound1

MsgBox "仕事が始まるぞ (^_^)/"

End Sub

これで音楽が鳴ってメッセージが表示されます。音楽を鳴らすコードです。

Sub Sound1()

Dim SoundFile As String, rc As Long

SoundFile = "C:\Windows\Media\tada.wav"

rc = mciSendString("Play " & SoundFile, "", 0, 0)

End Sub

Excel のマクロシートの最初の行に

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _ByVal uReturnLength As Long, ByVal hwndCall

を記載しておいてください。