難問　waveファイルを繰り返し鳴らしながら処理も中断させたくないのですが・・・・

Question

よろしくお願いします
いつもｇｏｏの皆さんには大変お世話になっております
お陰様でどんな難問も解決できて大変助かっております

質問内容
セルの値が条件を満たしたらＷＡＶＥファイルを指定回数鳴らすマクロができたのですが
喜んだのもつかの間で、for nextで何回回しても１回しか演奏しないことがわかりました
ここまで苦労したのでがっかりです

そこでネットで見つけた　Application.Wait (Now() + TimeValue("00:00:07"))
の１行を加えましたが、当然ながら、その間他の処理が進みません

そこで質問なのですが
処理を中断しないでｗａｖｅファイルの演奏を指定回数続けるのは不可能でしょうか？

以下はマクロです
V39のファイル名を渡してplay_wavマクロを繰り返す

For i = 1 To 5
      Call play_wav(Range("V39"))
      Application.Wait (Now() + TimeValue("00:00:07"))
Next i

どなたか解決策を教えていただけますか？
無理ならば残念ですがあきらめます
以上です。よろしくお願いします。

ママチャリ · Accepted Answer

すいません。mciSendStringでの同期再生方法は分かりませんでした。
mciSendStringではないのですが、PlaySoundであれば、次のようにすればできます。

Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" ( _
        ByVal pszSound As String, _
        ByVal hmod As Long, _
        ByVal fdwSound As Long _
        ) As Long
 Public Const SND_ASYNC = &H1   '非同期再生
 Public Const SND_SYNC = &H0    '同期再生

Sub sample()
    Dim WrkSndFile As String
    WrkSndFile = ThisWorkbook.Path & "	est.wav"
    PlaySound WrkSndFile, 0, SND_SYNC
    PlaySound WrkSndFile, 0, SND_SYNC
    PlaySound WrkSndFile, 0, SND_SYNC
End Sub

hallo-2007 · Answer

通りがかりで失礼します。お酒も飲んだので・・・私がよく使う手ですが VBSで、WMPlayer.OCX　を操作します。メモ等を開いて Dim wmp Set wmp = CreateObject("WMPlayer.OCX") wmp.settings.volume = 100 '音量設定 wmp.URL = "C:\Windows\Media\Alarm06.wav" '再生するwavファイルパス For i=1 To 5 wmp.Controls.play()'再生 Do WScript.sleep 5 Loop Until wmp.playState = 1 '停止迄待つ wmp.Controls.currentPosition = 0 '冒頭に巻き戻す Next を張り付けて、拡張子を .vbs　として保存上記の例では、５回再生、ボリュームの設定も可能こんなファイルを幾つか準備エクセルからは Sub ボタン1_Click() Dim strPath As String Dim RetVal As Variant strPath = "パス est.vbs" RetVal = Shell("WScript.exe """ & strPath & """") End Sub で希望のvbsファイルを実行させます。他にも IEのBGMで音楽と映像（メッセージ）を流すとか・・メモ帳開いてアラームもう時間ですよ。名前を付けて保存で拡張子　.html クリックすると　IEが起動して、音楽が流れる。繰り返し再生は　loop="infinite"

ママチャリ · Answer

1回しかならないのは、非同期再生になっているからだと思います。これを同期再生にすれば、回数だけなるのですが、それではダメなのですよね。
どうしても非同期で鳴らしたいのであれば、次のようにすれば可能ではありますが…。

maamaaさんが作ったplay_wavプロシジャをplay_wavs（s付）で包みました。
play_wavsは、PlayCount がゼロになるまで、7秒後に自分自身を呼びつつけます。

Option Explicit
    Dim PlayCount As Long

Sub main()
    PlayCount = 5
    Call play_wavs
End Sub
    
Sub play_wavs()
    If PlayCount = 0 Then Exit Sub
    PlayCount = PlayCount - 1
    Call play_wav(Range("V39"))
    Application.OnTime (Now() + TimeValue("00:00:07")), "play_wavs"
End Sub

難問 waveファイルを繰り返し鳴らしながら処理も中断させたくないのですが・・・・

すいません。

通りがかりで失礼します。

1回しかならないのは、非同期再生になっているからだと思います。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

難問　waveファイルを繰り返し鳴らしながら処理も中断させたくないのですが・・・・