Pergunte aqui
1

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

perguntadas 2015-10-22 14:15:05 +0200

imagem do gravatar de Beto

updated 2018-03-11 12:00:36 +0200

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

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

1 Resposta

2

respondidas 2018-01-25 16:09:04 +0200

imagem do gravatar de Conrado

updated 2018-03-08 15:49:30 +0200

imagem do gravatar de Beto

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

C:\fakepath\som.ods

Fonte: http://www.planilhando.com.br/forum/v...

Fonte do som que usei: http://audiocidades.utopia.org.br/bib...

editar assinalar como ofensivo Excluir Link mais

Comentários

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

imagem do gravatar de BetoBeto ( 2018-01-25 19:39:03 +0200 )editar
1

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

Fiz os testes aqui e deu certo

imagem do gravatar de ConradoConrado ( 2018-02-28 18:56:34 +0200 )editar

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

imagem do gravatar de BetoBeto ( 2018-03-01 15:09:29 +0200 )editar

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

imagem do gravatar de BetoBeto ( 2018-03-01 15:29:39 +0200 )editar

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

imagem do gravatar de ConradoConrado ( 2018-03-07 14:49:21 +0200 )editar
1

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

imagem do gravatar de ConradoConrado ( 2018-03-07 16:05:20 +0200 )editar

Tudo ok agora, valeu mesmo! Muito obrigado.

imagem do gravatar de BetoBeto ( 2018-03-08 14:25:03 +0200 )editar

Contente que deu certo @Beto

imagem do gravatar de ConradoConrado ( 2018-03-08 17:08:18 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2015-10-22 14:15:05 +0200

Lidas: 107 vezes

Última atualização: Mar 08 '18