Alert geluidje bij foute waarde

[Rob Valkenburg]

Hallo,

Ik heb een Excelsheet waar ik ingevoerde waardes (via handscanner) controleer met wat ik moet ontvangen.
Nu moet ik constant op het scherm kijken of dit "goed" of "fout" is.

Ik zou graag een alert geluidje willen horen als de waarde fout is.

Geen idee of de volgende van belang is....
Waardes komen in 3 kolommen (D = Machine 1, J = Machine 2 en P = Machine 3) over het tabblad. Aantal regels variëren.
Er zijn meerdere tabbladen. Wel worden steeds dezelfde kolommen gebruikt.

Windows 7
Office 2010

Wie kan me verder op weg helpen?

 

[roeljongman]

ALs je gegevens validatie zet op de kolommen die fout kunnen zijn dan kun je een foutmelding tonen en laten klinken

en anders kan er met vba wel wat gemaakt worden. maar goed zoals altijd.. een voorbeeldbestandje helpt om de voor jou best passende oplossing te bedenken.

 

[edmoor]

Kijk ook eens naar:
Application.Speech.Speak "Ok"

 

[Rob Valkenburg]

ALs je gegevens validatie zet op de kolommen die fout kunnen zijn dan kun je een foutmelding tonen en laten klinken

en anders kan er met vba wel wat gemaakt worden. maar goed zoals altijd.. een voorbeeldbestandje helpt om de voor jou best passende oplossing te bedenken.

Bedankt.
Zie geen optie om een geluid te laten horen. Ik zal een voorbeeld posten.

 

[Rob Valkenburg]

Kijk ook eens naar:
Application.Speech.Speak "Ok"

Bedankt. Ik ga hier straks naar kijken.

 

[Rob Valkenburg]

Dit is het voorbeeldbestand.
Hoop dat jullie er iets mee kunnen.
Bekijk bijlage Voorbeeld.xlsx

 

[ExcelAmateur]

Kijk hier eens, daar staat een bestandje van "warme bakkertje"
http://www.helpmij.nl/forum/showthread.php/526507-Geluiden-in-Excel-2007?highlight=sound

 

[Rob Valkenburg]

Kijk hier eens, daar staat een bestandje van "warme bakkertje"
http://www.helpmij.nl/forum/showthread.php/526507-Geluiden-in-Excel-2007?highlight=sound

Bedankt.
Dit lijkt al aardig op wat ik zoek, maar krijg het geluidbestandje niet gekoppeld. Locatie had ik aangepast.
Daarnaast lijkt deze gekoppeld aan 1 enkele cel.

 

[ExcelAmateur]

Er staan in C:\\Windows\Media\Genoeg geluiden waaruit je kunt kiezen.
Je kunt in kolom D een D invoeren en dan enter, bij mij geeft hij dan geluid.

Verder heb ik er geen verstand van.

 

[Rob Valkenburg]

Allemaal bedankt voor de reacties.
Ik heb het nog niet werkend gekregen.

Bij het uitvoeren krijg ik een Compileerfout. Dit zou te maken hebben dat ik op een 64 bit systeem draai.

 

[edmoor]

Als het gaat om 64-bit Office moet de DLL anders worden gedeclareerd. Om zowel in 32- als 64-bit te werken kan je dat doen met dit in een Module:

#If Win64 Then
    Public Declare PtrSafe Function PlaySound Lib "winmm.dll" _
        Alias "PlaySoundA" (ByVal lpszName As String, _
        ByVal hModule As LongPtr, ByVal dwFlags As Long) As Boolean
#Else
    Public Declare Function PlaySound Lib "winmm.dll" _
        Alias "PlaySoundA" (ByVal lpszName As String, _
        ByVal hModule As Long, ByVal dwFlags As Long) As Boolean
#End If

Voorbeeld voor afspelen:

PlaySound "C:\Windows\Media\Alarm01.wav", 0, 1

Om een spelend geluid te stoppen:

PlaySound 0, 0, 1

 

[Rob Valkenburg]

Top, ik heb hem werkend

Wel iets anders dan ik in gedachte had, maar het werkt.
Mijn dank is in ieder geval groot.

Dit was mijn oplossing:

#If Win64 Then
    Private Declare PtrSafe Function PlaySound Lib "winmm.dll" _
        Alias "PlaySoundA" (ByVal lpszName As String, _
        ByVal hModule As LongPtr, ByVal dwFlags As Long) As Boolean
#Else
    Private Declare Function PlaySound Lib "winmm.dll" _
        Alias "PlaySoundA" (ByVal lpszName As String, _
        ByVal hModule As Long, ByVal dwFlags As Long) As Boolean
#End If
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000
Function SoundMe() As String
'Updateby Extendoffice 20161223
    Call PlaySound("C:\Users\gebruiker\map\geluidbestand.wav", _
      0, SND_ASYNC Or SND_FILENAME)
    SoundMe = ""
End Function

En dan de formule (Dit is uiteraard persoonlijke invulling )

=ALS(E2<>B2;SoundMe();"")

 

[edmoor]

Ok dan. Wijzig wel even dit:

PlaySound("C:\Users\gebruiker\map\geluidbestand.wav"

In dit:

PlaySound(Environ("Userprofile") & "\map\geluidbestand.wav"

Voor meer flexibiliteit