Tocar Áudio quando célula muda de cor

João Célio da Costa · 10 de novembro de 2014

Amigos

Preciso de uma forma de tocar um áudio quando uma célula muda de cor. Por exemplo Digito um valor na célula A1, se ela ficar verde toca um som. Se ficar vermelha toca outro som.

Obrigado

Bom dia a todos

minoso · 17 de dezembro de 2014

João,

você precisa ter alguma noção de VBA para poder executar o que precisa.

Ainda assim, sugiro fazer o tom socar com base no conteúdo da célula, não na cor dela, pois para fazer com base na cor você precisará trabalhar ainda mais com VBA e através do valor você foca apenas no valor da fórmula, o que é mais simples.

De qualquer forma, segue API e macro que executa o som:

Option Explicit// chamando API para tocar o som através de macro via Excel#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// função para tocar o somSub TocarSom()    Dim sCaminho As String        sCaminho = ThisWorkbook.Path & "\" & "som.wav"        Call sndPlaySound32(sCaminho, 0)End Sub

Note que é imprescindível que o som a ser tocado esteja no formato *.wav

Uma vez a macro criada, você a chama assim que a célula tiver o conteúdo CORRETO (verde) ou TENTE NOVAMENTE (vermelho). Claro que você terá que criar uma condição para tocar o áudio A para o "Correto" e o áudio B para o "tente novamente"

Espero ter ajudado!