Re:
[POSTQUOTE][QUOTE:76216972=APOBEN64, 20/12/2007 15.34]Ciao a tutti ,
continuando a "giocare" con le date , questa semplice macro, in base alla data inserita nella cella A1 , se corrisponde alla data attuale, colora delle zone del foglio in base ai colori scelti in base al tempo scelto .
Ora il codice si presta a varie tipologie di applicazione , per formare uno scadenzario per evidenziare delle date , oppure condizionare la colorazione ai nostri parametri e secondo il tempo che vogliamo.
Allego anche il file .
[TESTO]Sub Lampeggia()
If Range("A1").Value = Date Then ' dove Date è la data attuale
Dim PauseTime, Start, Finish
For x = 1 To 5 'inizia il ciclo e lo ripete per 5 volte
PauseTime = 0.5 ' Imposta la durata in secondi. ho messo 1/2 secondo
Start = Timer ' Imposta l'ora di inizio.
Do While Timer < Start + PauseTime
DoEvents ' Passa il controllo ad altri processi.
Range("A2:D7").Cells.Interior.ColorIndex = 3 'colora il range di celle di rosso
Range("A8:D21").Cells.Interior.ColorIndex = 6 'colora il range di celle di giallo
Loop
Finish = Timer ' Imposta l'ora di fine della pausa.
PauseTime = 0.5 ' Imposta la durata.
Start = Timer ' Imposta l'ora di inizio.
Do While Timer < Start + PauseTime
DoEvents ' Passa il controllo ad altri processi.
Range("A2:D7").Cells.Interior.ColorIndex = 6
Range("A8:D21").Cells.Interior.ColorIndex = 3
Loop
Finish = Timer ' Imposta l'ora di fine della pausa.
Next x
Range("A2:D7").Cells.Interior.ColorIndex = xlNone 'cancella la colorazione
Range("A8:D21").Cells.Interior.ColorIndex = xlNone
End
End If
End Sub [/TESTO]
Luca
[/QUOTE][/POSTQUOTE]