excel2007 collegare una cella a un suono

[asterix55]

Salve vorrei sapere se è possibile collegare un suono a una cella ove all'interno è presente un numero variabile e vorrei che verrebbe emesso quando arriva a un certo valore
grazie

[Flash30005]

Credo di si e abbiamo già trattato questo argomento
http://www.pc-facile.com/forum/viewtopic.php?f=26&t=96591&p=554359&hilit=beep#p554359

Qui adirittura l'utente ha creato anche delle musiche variando frequenza e durata
http://www.pc-facile.com/forum/viewtopic.php?f=26&t=87538&p=499490&hilit=beep#p499490

ciao

[asterix55]

ma devo istallare uploading dextop per scaricare quel file?

[Flash30005]

?
No ma non devi prelevare il file ma copiare la macro o parte di essa che ti interessa

[asterix55]

scusa ma non so cosa fare, io ho una cella (T6) dove ho un valore che cambia io vorrei che quando questo valore è 5 verrebbe emesso un suono ho una registrazione che registro io

[Flash30005]

In un modulo in Vba (con Alt+F11 accedi all'editor)
incolli questa macro

Codice: Seleziona tutto

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Sub AvvSon()
If [T6] >= 5 Then Beep 2000, 1000
End Sub


Poi cliccando due volte sugli oggetti (nome del foglio) posti nella finestra di sinistra dell'editor
avrai sulla destra un frame vuoto nel quale incollerai questo codice

Codice: Seleziona tutto

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$T$6" Then Exit Sub
AvvSon
End Sub

Ogni qualvonta digiterai, in T6, un numero maggiore o uguale a 5 avrai un Bip

ciao

[asterix55]

scusa di nuovo ma non mi funziona cosè che ho sbagliato? ti lascio il file qui
http://rapidshare.com/files/530070181/T ... ev2.1).xls

[Flash30005]

Il link per il download del file è errato
prova ad usare questo server

ciao

[asterix55]

http://www.filedropper.com/terzineinciclida17rev21
scusa eccolo
ps. la pw del foglio è "alessio"

[Anthony47]

Tempo fa avevo spiegato come creare una "Function" playsound che poi poteva essere richiamato in una formula del tipo

Codice: Seleziona tutto

=SE(Questo>10;playsound("C:\Documents and Settings\Il-Path-Completo\CamcorderStop.wav";"")

Forse potrebbe aiutare; guarda qui: viewtopic.php?p=435638#p435862

Vedi se riesci ad utilizzare.
Ciao