[Risolto]Avvisatore acustico...

[paoletto75]

Avendo creato un foglio DDE con dati che si aggiornano in tempo reale vi chiedo:
sarebbe possibile avere un segnale acustico quando il valore di una (o più) celle supera un certo valore?

[lucky63]

.
Vedi questo link
.

[paoletto75]

Ho provato a darci un'occhiata...posso essere sincero??
Non c'ho capito una maz...za!

[paoletto75]

Riporto un esempio pratico che allego.
Ho la colonna K che va dalla cella k2 alla cella k401 (la colonna K è costituita da celle che si aggiornano constantemente tramite file DDE). Vorrei che venissi avvisato con un segnale acustico ogni qualvolta che una qualsiasi cella della colonna supera il valore -10 (<-10). Si può notare che ho già inserito una formattazione condizionale che mi colora la cella di arancione, però non mi basta, avrei bisogno anche dell'avviso acustico.
Grazie.

[patel]

la cosa non è sicuramente semplice, occorre fare test su un file con collegamento DDE

[unlucky83]

Ignorando cosa sia un collegamento DDE, propongo questo punto di partenza.
Aggiungere un Listener all'apertura del file (macro Range_Listeners_Add eseguita dall'evento Apri Documento) che controlla le modifiche dell'area Foglio1.K2:K401.
Quando il contenuto di quest'area subisce una modifica (nell'allegato ho messo una formula in K3, così da cambiarne il valore cambiando il dato in A3) si attiva la macro MyRange_Modified(oEvent) del listener che mi va ad eseguire la macro MarkForChange(evt)
Quest'ultima macro è incompleta, ma in essa bisognerebbe inserire un check per controllare se nell'area ci sono valori <-10 e in tal caso eseguire l'avvio di un segnale acustico, cosa che non mi sono curato di fare dato che non sono pienamente certo che questa strategia possa andar bene per i collegamenti DDE.

Codice: Seleziona tutto

REM  *****  BASIC  *****

Global ColK_Range as Object
Global Range_Listener as Object


Sub Range_Listeners_Add
   ColK_Range= thisComponent.Sheets.getByName("Foglio1").getcellrangebyname("K2:K401")
   Range_Listener = CreateUnoListener( "MyRange_", "com.sun.star.util.XModifyListener" )   
   ColK_Range.AddModifyListener(Range_Listener)
   msgbox "Listener Aggiunto"
End Sub

Sub Range_Listeners_Remove
  ColK_Range.RemoveModifyListener(Range_Listener)
End Sub

Sub MyRange_Modified(oEvent)
   MarkForChange(oEvent)
end sub

Sub MyRange_Disposing
End Sub

Sub MarkForChange(evt)
 Msgbox evt.source.AbsoluteName
End Sub

[paoletto75]

Scusate se sono sparito.
La macro che mi avete mandato purtroppo non funziona. Non c'è nessun avvisatore acustico.

[unlucky83]

Si , lo avevo detto che era incompleta. Ti si apre il msgbox quando si aggiorna la colonna?

[patel]

la cosa non è sicuramente semplice, occorre fare test su un file con collegamento DDE