Ricerca una data e colora delle zone del foglio

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 .



Luca

non capisco come funzioni il forum

f

[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]

alessandrogalli, 30/07/2015 16.50:

---

non capisco come funzioni il forum

---

siamo in due

???