Geluid in excel

[ExCelBOB]

Ik heb een zandloper en wil graag als deze op nul staat een geluid aflaten spelen is dat mogenlijk ??

 

[bandito bob]

Ik heb wel eens ergens de volgende code gezien:

Dim s As Object
    Set s = CreateObject("SAPI.SpVoice")
    s.Speak Range("B7").Text

Dan kan je in dit geval in B7 (engelse) tekst zetten, die wordt uitgesproken.
Misschien kan je hem met een beetje timing de laatste 3 tellen laten aftellen....three two one fire...ofzo

 

[Wigi]

Effe wat gespeeld

Dim bln0AlOmgeroepen As Boolean

Sub StartZandloper()

'De macro's zijn gemaakt door Wim de Groot, in september 2006
'en aangepast en uitgebreid door Wim Gielis, in maart 2008, htp://www.wimgielis.be

    bln0AlOmgeroepen = False
    
    Calculate

    Range("B13").Value = Range("B4").Value

    Zandloper

End Sub

Sub RoepOm(vWat As Variant)

    Dim s As Object
    
    Set s = CreateObject("SAPI.SpVoice")
    s.Speak CStr(vWat)

End Sub
Sub Zandloper()

    Calculate
    Application.OnTime Now + TimeSerial(0, 0, 1), "Zandloper"
    
    If Range("K4").Value = 0 Then
        
        If bln0AlOmgeroepen = False Then
        
            Beep
            RoepOm "klaar is kees"
            bln0AlOmgeroepen = True
            
        End If
        
        StopZandloper
        
    ElseIf Range("K4").Value <= 3 Then
    
        RoepOm Range("K4").Value
        
    End If
    
End Sub
Sub StopZandloper()

    On Error Resume Next
    Application.OnTime Now + TimeSerial(0, 0, 0.5), "Zandloper", , False
    
End Sub

Wigi

 

[ExCelBOB]

net niet

het is mooi maar net niet wat ik graag wil ik zou graag zelf willen kiezen voor een wav of eventueel een mp3 is dat ook mogenlijk

 

[Roncancio]

Hallo,

Ik heb zo'n 2 jaar geleden op dit forum een bestand geplaatst dat WAV-geluiden afspeelt indien er een bepaalde waarde in een cel staat.

http://www.helpmij.nl/forum/showthread.php?t=249829

Het ging hier om waardes bij het darten (100, 120, 180).

Met vriendelijke groet,


Roncancio

 

[ExCelBOB]

is wel een beging

dat is wel iets maar bij mij gaat het om meer cellen en om een aftelling als dan alles op nul staat wil ik graag een wav toevoegen id dat mogenlijk in excel

 

[ExCelBOB]

Effe wat gespeeld

Dim bln0AlOmgeroepen As Boolean

Sub StartZandloper()

'De macro's zijn gemaakt door Wim de Groot, in september 2006
'en aangepast en uitgebreid door Wim Gielis, in maart 2008, htp://www.wimgielis.be

    bln0AlOmgeroepen = False
    
    Calculate

    Range("B13").Value = Range("B4").Value

    Zandloper

End Sub

Sub RoepOm(vWat As Variant)

    Dim s As Object
    
    Set s = CreateObject("SAPI.SpVoice")
    s.Speak CStr(vWat)

End Sub
Sub Zandloper()

    Calculate
    Application.OnTime Now + TimeSerial(0, 0, 1), "Zandloper"
    
    If Range("K4").Value = 0 Then
        
        If bln0AlOmgeroepen = False Then
        
            Beep
            RoepOm "klaar is kees"
            bln0AlOmgeroepen = True
            
        End If
        
        StopZandloper
        
    ElseIf Range("K4").Value <= 3 Then
    
        RoepOm Range("K4").Value
        
    End If
    
End Sub
Sub StopZandloper()

    On Error Resume Next
    Application.OnTime Now + TimeSerial(0, 0, 0.5), "Zandloper", , False
    
End Sub

Wigi

elke keer als de seconde bij 3 begind het aftellen ook als de minuten nog niet voor bij zijn dus bij 5 minuten komt het 5x voor bij is dit aan te passen en graag zou ik het doen met een wav of mp3 bestand kan dit in excel

 

[Wigi]

elke keer als de seconde bij 3 begind het aftellen ook als de minuten nog niet voor bij zijn dus bij 5 minuten komt het 5x voor bij is dit aan te passen

Gebruik dan dit voor de procedure Zandloper:

Sub Zandloper()

    Dim lAantalSeconden As Long
    Calculate
    Application.OnTime Now + TimeSerial(0, 0, 1), "Zandloper"
    
    lAantalSeconden = 3600 * Range("G4").Value + 60 * Range("I4").Value + Range("K4").Value
    
    If lAantalSeconden = 0 Then
        
        If bln0AlOmgeroepen = False Then
        
            Beep
            RoepOm "klaar is kees"
            bln0AlOmgeroepen = True
            
        End If
        
        StopZandloper
        
    ElseIf lAantalSeconden <= 3 Then
    
        RoepOm lAantalSeconden
        
    End If
    
End Sub

Rest blijft hetzelfde.

Voor wav e.d. zie de post van Roncancio.

Wigi

 

[ExCelBOB]

Gelukt

:thumb:met veel gekuntsel en de aangeleverde codes is het me geluk:thumb:t nu ga ik kijken of ik er zelf nog wat bij kan verzinnen met diversen tijden en geluiden.
nog wel 1 vraag is het mogelijk om ipv wav een mp3 of anders geluids file te gebruiken in excel.