Private Const SND_ASYNC = &H1
Private Const SND_FILENAME = &H20000
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" _
(ByVal lpszName As String, ByVal hModule As Long, _
ByVal dwFlags As Long) As Long
Private Sub Play()
' A7 содержит число проигрышей
' A1 содержит путь
[a1].Value="C:\WINDOWS\MySound.WAV"
For i=1 to [a7].Value
PlaySound , [a1].Value _
ByVal 0&, SND_FILENAME Or SND_ASYNC
Next
End Sub
Excel: проигрыватель звуков
необходимо сделать чтоб эксаль проигрывал звуки например в ячеке название файла, а в другой число раз которое он должен его проиграть (это даже главнее), не подскажете как примерно надо это сделать?
Цитата:
Originally posted by GRN
необходимо сделать чтоб эксаль проигрывал звуки например в ячеке название файла, а в другой число раз которое он должен его проиграть (это даже главнее), не подскажете как примерно надо это сделать?
необходимо сделать чтоб эксаль проигрывал звуки например в ячеке название файла, а в другой число раз которое он должен его проиграть (это даже главнее), не подскажете как примерно надо это сделать?
Код: