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

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




excel
amazon
excel
楽天