Executar um som no calc de acordo com uma condição

Beto · October 22, 2015, 12:15pm

É possível executar um som no Calc a partir de uma condição numa dada célula?

Conras · January 25, 2018, 3:09pm

Tente este arquivo que estou enviando.

Fiz os testes aqui e deu certo.
Importante: o arquivo tem que ser em “.WAV”. Em outra extensão ele não funciona. Coloque também a segurança de macro baixa

Código:

Rem Attribute VBA_ModuleType=VBAModule
Option VBASupport 1

Declare Function sndplaysound Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Sub TestandoSom()

'Ajuste o caminho dos arquivos WAV
    If Range("A1").Value = "alarme" Then
    
        Call sndplaysound("C:\Users\Public\Music\Sample Music\Alarme.WAV", 0)
    Else
        Call sndplaysound("C:\Users\Public\Music\Sample Music\Alarme.WAV", 0)
    
    End If
    
End Sub

som.ods

Fonte: http://www.planilhando.com.br/forum/viewtopic.php?t=7215&p=38307

Fonte do som que usei: Casa Brasil - AudioCidades

Beto · January 25, 2018, 6:39pm

Dá erro em “If Range(“E7”).Value = “FUNCIONÁRIO LIBERADO” Then”

Conras · February 28, 2018, 5:56pm

Na célula E7 está escrito conforme está em aspas?

Fiz os testes aqui e deu certo

Beto · March 1, 2018, 2:09pm

@Conras teria como vc me enviar este seu arquivo, para eu ver onde estou errando?

Beto · March 1, 2018, 2:29pm

Se não puder postar aqui, meu email é betovisk1 (arroba) (hotmail).com

Conras · March 7, 2018, 1:49pm

Estou no serviço agora, e não consigo lhe enviar…chegando em casa eu te repasso.

Conras · March 7, 2018, 3:05pm

@Beto, enviei por aqui o arquivo…e depois envio de casa por e-mail. Mas verifique se dá certo.

Beto · March 8, 2018, 1:25pm

Tudo ok agora, valeu mesmo! Muito obrigado.

Conras · March 8, 2018, 4:08pm

Contente que deu certo @Beto