Usare la Funzione Timer Esempio di Utilizzo : Fare lampeggiare celle per richiamare attenzione.
Può necessitare di volere richiamare l'attenzione dell'operatore sul verificarsi di un determinato evento. Oltre al sistema di avvisare tramite un suono (Beep), può essere di maggiore efficacia usare dei colori che si attivino e lampeggino, come se fosse una luce che si accende e si spenge richiedendo attenzione. Questo effetto come un "Lampeggiatore" lo potremo attivare usando la funzione Timer, con la quale è possibile stabilire il tempo di durata assegnando un valore che rappresenta il numero di secondi di "accensione". Come al solito presento un esempio, in cui faccio lampeggiare due Range di celle, alternativamente, di rosso e di giallo. Ho scelto un Range esteso per ottenere un maggior richiamo visivo. Ognuno potrà definire le zone che vorrà. La routine si basa sull'ipotesi che, quando in una determinata cella (ho considerato la E1) compare un certo valore (ho usato "Pippo"), si deve attivare la routine e quindi il lampeggiare. Va da sè che ognuno potrà variare le condizioni di attivazione secondo le proprie necessità. Il ciclo si ripete secondo l'istruzione For x = 1 To 5, cioè per 5 volte, desiderando cicli diversi, basterà variare il 5 con altro numero. Quando la routine termina il numero di cicli previsti, faccio apparire un messaggio (io ho usato "Attenzione!!!") che blocca l'uscita e lascia le celle con i colori assegnati dall'ultimo ciclo. Solo premendo Ok sulla finestra del messaggio, si sblocca il codice che prosegue l'istruzione, riportando le celle all'origine (senza colore), ed esce dalla routine. Questo è il codice da provare associando la macro ad un pulsante. Per automatizzare invece il lancio della routine, possiamo scegliere un evento del foglio di lavoro, e dal momento che abbiamo scelto di far lampeggiare SE una cella conterrà un determinato valore, conviene scegliere l'evento Change, quindi ad esempio:
E' pure evidente che possiamo far lampeggiare celle o aree diverse dalla cella che subisce il cambiamento.
|