Avviso sonoro per condizione

[gaspino]

Salve ragazzi,
Avrei bisogno di un aiuto. Prima di tutto avrei la necessità di impostare 2 condizioni su di una cella:

1) Colorare la cella A2 di verde se il risultato della formula impostata nella cella A2 mi dia come risultato "SI".

2)Avviso sonoro nel caso il risultato della formula precedente mi restituisca "SI"

Grazie a tutti in anticipo

[charlie]

Ciao, per il colore non ti serve una macro, basta una formattazione condizionale. Per il suono credo di sì.

[gaspino]

Per la formattazione condizionale mi fa impostare o valore o formula, ma non testo, quindi come devo fare se devo evidenziare la cella nella quale il risultato è SI

Grazie

[patel]

allega un piccolo file di esempio

[charlie]

Codice: Seleziona tutto

La formula è: A1="SI"

[gaspino]

Grazie 1000 e x creare la macro per il suono di avviso come potrei risolvere?

[charlie]

Se alleghi un file di esempio, penso che @patel ti potrebbe aiutare.

[patel]

non è necessario, lo allego io, per capire come funziona clic destro sulla linguetta del foglio1, eventi, formule calcolate

[gaspino]

Ti ringrazio, ma scusa l'ignoranza in tema. Ho selezionato la macro nella libreria e nel riquadro Nome macro c'è scritto suona. Ora cosa devo fare per farsi che al verificarsi dell'evento emetta un suono? Se volessi vedere anche il contenuto della macro come dovrei agire? Perdonami delle domande e ti ringrazio in anticipo per la disponibilità e pazienza

[patel]

non devi fare niente, soltanto modificare la cella A1, controlla la formula in A2, al variare del valore in A1 la formula ti da SI o NO, al SI è abbinato il suono come hai richiesto

tutorial per macro http://professoressa.altervista.org/Dis ... re_OOo.pdf

[gaspino]

Ciao e scusa ma me non emette nessun suono al variare della condizione. Inoltre se volessi applicaret lo stesso discorso ad una serie di celle come bisogna fare?

[charlie]

Scusami: per cortesia non citare sempre tutto il messaggio precedente, non serve. Grazie.
Poi:
- prova a scrivere un numero fra 1 e 9 nella cella A1.
- In A2 comparirà la scritta "SI"
- sentirai il "beep" a patto che il volume del PC non sia a zero.

[gaspino]

Ti ringrazio il problema è che avevo la sicurezza delle macro impostate ad Alto. Ora l'ho messo su basso (sconsigliato) e si sente il beep. Volendo applicare lo stesso discorso al range di celle da A1 a E1 è possibile ? Posso anche cambiare il suono di avviso?

Inoltre dovrebbe emmettere un solo avviso sotto il valore 10. Ad esempio se da 10 passa ad 8 ok mi emette il suono. Ma non deve nuovamente avvisarmi se da 8 passa a 7 - 6 e via discorrendo. Dovrà solamente avvisarmi di nuovo, qualora il valore dovesse tornare ad essere superiore a 10 per poi tornare di nuovo a scendere ok?

Grazie per la tua pazienza e cortesia ma mi stai aiutando davvero tanto

[patel]

Ora tocca a te allegare il file per capire bene le tue necessità

[gaspino]

Ok allego il file come richiesto per chiarezza. Praticamente il foglio mi dovrebbe avvisare ogni volta che si verifica la condizione "OK" indicata in tutte le celle della colonna P ... quindi P8,P9 .... P10,P11 e così via.

Inoltre dovrebbe emettere un suono di avviso SOLO NEL PRIMO MOMENTO quando si verifica la condizione che da come risultato "OK". Puoi tranquillamente vedere nelle celle della colonna P come ho fatto ragionare il foglio. Pertanto dato che le variabile sono la cella "I" ed "O" i cui valori variano in funzione della cella "J", mi dovrebbe emettere il suono solo al verificarsi della condizione la prima volta. Ma non deve nuovamente avvisarmi ad ogni oscillazione di "J". Dovrà viceversa avvisarmi di nuovo, qualora la condizione dovesse tornare negativa, per poi verificarsi nuovamente.

Il tutto deve ripetersi per ogni foglio di lavoro, nell'esempio "PROVA" e "PROVA_2"

Grazie per la vostra pazienza e cortesia ma mi state aiutando davvero tanto

[patel]

chi modifica i valori delle celle nella colonna J ?

[gaspino]

Un collegamento dde ma credo che questo sia superfluo per l'impostazione della macro.

[patel]

io non credo che sia ininfluente, intanto prova il file allegato, se funziona proviamo a migliorarlo

[gaspino]

Grazie Patel ci siamo quasi, grazie infinite.

La cosa che bisogna sistemare è la questione del suono in tal senso:
Ora mi suona ad ogni oscillazione del valore della cella "J", mentre mi dovrebbe avvisare solo la prima volta che si verifica la condizione, a meno che la condizione stessa non torni ad essere negativa, per poi tornare a verificarsi ed emettere nuovamente il suono.

Spero di essermi spiegato, altrimenti dammi un cenno ok?

Esiste poi la possibilità di personalizzare il suono e di ripetere tutto il discorso per ogni foglio di lavoro?

Grazie per la tua disponibilità

[patel]

quindi funziona anche col dde ? per fare quello che chiedi avrò bisogno di una colonna di appoggio, quale posso usare ?
per personalizzare intendi usare un file wav o mp3 ? sarà piuttosto lento attivare il riproduttore ed aprire il file.

[gaspino]

Non avevo collegato il dde, però ho provato e funziona ugualmente. Sembrerebbe comunque che non mi emette un suono ogni volta che oscilla il valore nella cella "J"

Per la colonna di appoggio puoi utilizzare "Q"

Per quanto riguarda il suono, per non appesantirlo si potrebbe usare anche un altro midi che dici?

Grazie ancora

[patel]

Sembrerebbe comunque che non mi emette un suono ogni volta che oscilla il valore nella cella "J"

non ho capito bene, puoi spiegare meglio ?
qual'è la frequenza di aggiornamento ?

[gaspino]

Non importa tranquillo dovrebbe funzionare bene cosi. Rimarrebbe solo da sostituire il sound con un altro non pesante.

[gaspino]

Scusa l'ignoranza ma la colonna di appoggio a cosa ti occorre?

[patel]

se va già bene così non occorre, altrimenti potrebbe servire per capire se se il nuovo valore è uguale a quello preesistente.
Il fatto che ti funzioni già bene mi fa pensare che la frequenza sia troppo alta rispetto alla risposta della macro ed in particolare del beep.
per cambiare suono puoi sostituire la riga beep con allarme ed aggiungere questa sub

Codice: Seleziona tutto

Sub Allarme
  Dim oSvc as object
  oSvc = createUnoService("com.sun.star.system.SystemShellExecute")
  oSvc.execute(ConvertToUrl("E:/Documenti/Musica/Champion1.mp3"), "", 0)
End sub