formattazione condizionale+suono

Ciao a tutti,
torno sulla formattazione condizionale chiedendo come si fa a far produrre un suono (wave di windows o disponibile) quando il valore di una cella diventa negativo.

mi sa che si torna la vecchio VB......qui thepolyglot ci si fa d'oro....
grazie in anticipo

Sono agli inizia del VB,
ecco cosa dovrei fare, ma non riesco a scriverlo bene in VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("B7") < 0 Then
playsound(C:\beep.wav)
End Sub


grazie

Ciao pinzerik,
prova a vedere il post di TRAKKO del 31/05/2004 "riproduzione file wave".
Credo possa fare al caso tuo.

Ciao

T3T

grazie mille;
in realtà nel link indicato si lancia il mediaplayer ed il suono viene ripetuto, io invece vorrei che fosse riprodotto una sola volta, solo come avviso, senza che appaia nessun altro programma e che il foglio di excel continui a funzionare normalmente.

grazie comunque, faccio un po' di prove e resto in attesa di consigli.

Eureka,
dopo diversi sbattimenti, prove e riprove ho risolto!!!

Visto che una volta tanto posso dare io qualcosa lo faccio per tutti, perchè può essere una funzione comoda.
Si presuppone che il suono voluto, uno.wav, sia collocato in c:\uno.wav (destinazione che può essere modificata).
Il codice è questo, da copiare nel foglio di interesse:


Private Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

'inserire il suono da riprodurre con il relativo percorso
Const Motivo = "c:\uno.wav"

'riferimento alla cella che fa scattare la condizione
Const CellaMonitorata = "A3"

Private Sub Worksheet_Change(ByVal Target As Range)

'condizione sul contenuto della cella che, se verificata, fa scattare il suono
'in questo caso se il valore della cella A3 è <0 scatta il suono
If Range(CellaMonitorata).Value < 0 Then
suono = Motivo: Ret = sndPlaySound(suono, SND_ASYNC)
End If

End Sub


ciao e grazie a tutti
pinzerik

Eureka,
dopo diversi sbattimenti, prove e riprove ho risolto!!!

Visto che una volta tanto posso dare io qualcosa lo faccio per tutti, perchè può essere una funzione comoda.
Si presuppone che il suono voluto, uno.wav, sia collocato in c:\uno.wav (destinazione che può essere modificata).
Il codice è questo, da copiare nel foglio di interesse:


Private Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

'inserire il suono da riprodurre con il relativo percorso
Const Motivo = "c:\uno.wav"

'riferimento alla cella che fa scattare la condizione
Const CellaMonitorata = "A3"

Private Sub Worksheet_Change(ByVal Target As Range)

'condizione sul contenuto della cella che, se verificata, fa scattare il suono
'in questo caso se il valore della cella A3 è <0 scatta il suono
If Range(CellaMonitorata).Value < 0 Then
suono = Motivo: Ret = sndPlaySound(suono, SND_ASYNC)
End If

End Sub


ciao e grazie a tutti
pinzerik