Macro Tocar Som Wav

[rodrigodido]

Pessoal, tenho essa macro.

Sub Petr4()

Dim numero As Currency

If Range("A2").Value >= Range("C2").Value + 0.10 Then

Range("E2") = "Compra"

Else

Range("E2") = "Não Compra"

End If

End Sub

Gostaria de ajuda para outra macro onde, se E2 assumisse a condição de "Compra" tocasse uma música escolhida por mim (ou .wav ou .mp3).

Alguem consegue me ajudar?

Peguei a macro do tópico http://forum.clubedohardware.com.br/resolvido-beep-wav/962588 , mas não consegui adaptar.

[tdms]

Pessoal, tenho essa macro.

Sub Petr4()

Dim numero As Currency

If Range("A2").Value >= Range("C2").Value + 0.10 Then

Range("E2") = "Compra"

Else

Range("E2") = "Não Compra"

End If

End Sub

Gostaria de ajuda para outra macro onde, se E2 assumisse a condição de "Compra" tocasse uma música escolhida por mim (ou .wav ou .mp3).

Alguem consegue me ajudar?

Peguei a macro do tópico http://forum.clubedohardware.com.br/resolvido-beep-wav/962588 , mas não consegui adaptar.

Fala rodrigodido,

Achei esse site que mostra como tocar música wav com vba: '>http://www.ambienteoffice.com.br/officevba/tocar_som_no_vba/

Adaptando ao seu exemplo faria assim:

#If VBA7 Then
    Declare PtrSafe Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
      (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
#Else
    Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
      (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
#End If

Dim numero As Currency
    If Range("A2").Value >= Range("C2").Value + 0.10 Then
         Range("E2") = "Compra"
         TocarSom
    Else
         Range("E2") = "Não Compra"
    End If
End Sub

Sub TocarSom()
    Dim sCaminho As String

    sCaminho = ThisWorkbook.Path & "\" & "som.wav"

    Call sndPlaySound(sCaminho, 0)
End Sub

Quando testei no meu, tive que trocar Call sndPlaySound32 por Call sndPlaySound

Lembre também de alterar som.wav, com o nome do seu arquivo Wav

Obs: O caminho do arquivo está presumindo que o arquivo de áudio está na mesma pasta da planilha

Espero ter ajudado

[deejaywesley]

Boa Noite!

Veja se esse lhe ajuda!

http://forum.clubedohardware.com.br/resolvido-macro-beep/1054690?t=1054690&highlight=tocar+som

[rodrigodido]

Fala rodrigodido,

Achei esse site que mostra como tocar música wav com vba: '>http://www.ambienteoffice.com.br/officevba/tocar_som_no_vba/

Adaptando ao seu exemplo faria assim:

#If VBA7 Then
    Declare PtrSafe Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
      (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
#Else
    Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
      (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
#End If

Dim numero As Currency
    If Range("A2").Value >= Range("C2").Value + 0.10 Then
         Range("E2") = "Compra"
         TocarSom
    Else
         Range("E2") = "Não Compra"
    End If
End Sub

Sub TocarSom()
    Dim sCaminho As String

    sCaminho = ThisWorkbook.Path & "\" & "som.wav"

    Call sndPlaySound(sCaminho, 0)
End Sub

Quando testei no meu, tive que trocar Call sndPlaySound32 por Call sndPlaySound

Lembre também de alterar som.wav, com o nome do seu arquivo Wav

Obs: O caminho do arquivo está presumindo que o arquivo de áudio está na mesma pasta da planilha

Espero ter ajudado

Não sei porque ... mas quando mando executar a macro ele sublinha "A2" da fórmula dizendo que tem "Erro de Compilação" com a msg "Inválido Fora de Procedimento".

Na fórmula original não apresentou problemas....consegue me ajudar?