excel - inserire un suono o beep ... e' possibile ?

[gualti]

e' possibile inserire un suono o un semplice beep al verificarsi di una condizione di una cella ???

esempio se a1> 100 beep

se si come si fa
grazie 100000000000000 a coloro che mi sapranno dare indicazioni

 

[Ed]

e' possibile inserire un suono o un semplice beep al verificarsi di una condizione di una cella ???

esempio se a1> 100 beep

se si come si fa
grazie 100000000000000 a coloro che mi sapranno dare indicazioni

mi sembra che esista la funzione playsound(). cercala sull'help
Ed

 

[gualti]

un amico mi ha scritto questa funzione che per me e' perfetta... grazie

Public Function TestSoglia(Soglia As Integer, Value As Integer) As String
If Value > Soglia Then
Beep
TestSoglia = "alarm"
Exit Function
End If
TestSoglia = "ok"

End Function

 

[Ed]

un amico mi ha scritto questa funzione che per me e' perfetta... grazie

Public Function TestSoglia(Soglia As Integer, Value As Integer) As String
If Value > Soglia Then
Beep
TestSoglia = "alarm"
Exit Function
End If
TestSoglia = "ok"

End Function

Ciao, vedi se il tuo amico può aggiustarti questo codice.
Come vedi, esegue file wav diversi a seconda delle condizioni che si verificano. Con un pò di pazienza, puoi anche aggiustarti tu il codice.
Ed

Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As Long

Private Const SND_FILENAME = &H20000
Private Const SND_ASYNC = &H1
Private Const SND_LOOP = &H8
Private Const SND_NODEFAULT = &H2



ordine = Foglio1.Cells(2, 3).Value ' lettura Ordine in cella riga 2 colonna 3
inserito = Foglio1.Cells(2, 4).Value ' lettura inserimento ordine
tipo = Foglio1.Cells(2, 5).Value ' lettura inserimento ordine

Set cella1 = Foglio1.Cells(2, 2)
NoErrore1 = Not (IsError(cella1))
End If
If NoErrore1 Then
titolo = Foglio1.Cells(2, 2).Value ' lettura titolo da ordinare
Else
titolo = 0
End If

If titolo > ordine And inserito = 1 Then
esito = ""
If tipo = -1 Then
vord = "C:\suoni\lasciato.wav " ' esegue il file lasciato.wav
Call PlaySound(vord, 0, SND_ASYNC)
esito = "Eseguito"
inserito = 0
Foglio1.Cells(2, 4).Value = inserito
Foglio1.Cells(3, 1) = esito
Foglio1.Cells(3, 3).Value = titolo

End If
End If
If titolo < ordine And titolo > 0 And inserito = 1 Then
esito = ""
If tipo = 1 Then
vord = "C:\suoni\preso.wav "
Call PlaySound(vord, 0, SND_ASYNC)
esito = "Eseguito"
inserito = 0
Foglio1.Cells(2, 4).Value = inserito
Foglio1.Cells(3, 1) = esito
Foglio1.Cells(3, 3).Value = titolo

End If
End If

End Sub