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 楽天 |