Quote:
Originariamente inviato da MarcoGG
In Excel VBA c'è il metodo Application.OnTime. Non esiste un vero e proprio oggetto Timer, e molti pensano che volutamente Ms osteggi questa possibilità per non permettere agli utenti di trasformare un foglio elettronico in un albero di Natale...
A mio avviso non è buona pratica inserire testi o celle lampeggianti, in quanto disturbano parecchio la vista ( personalmente detesto leggere ad es. una pagina web con roba che lampeggia o mi salta davanti... ).
Detto questo, il modo c'è comunque e puoi ottenerlo ad esempio usando queste Function che mi sono fatto io, parametrizzando un esempio trovato sul web... Lascio poi a te l'implementazione :
In un modulo :
Codice:
Public istanteCambio As Double
Public Sub lampeggiaON(nomeFoglio As String, indirizzo As String)
If Sheets(nomeFoglio).Range(indirizzo).Interior.ColorIndex = 3 Then
Sheets(nomeFoglio).Range(indirizzo).Interior.ColorIndex = 2
Else
Sheets(nomeFoglio).Range(indirizzo).Interior.ColorIndex = 3
End If
istanteCambio = Now + TimeSerial(0, 0, 1)
Dim strProcedura As String
strProcedura = ThisWorkbook.Name & "!'lampeggiaON " & """" & nomeFoglio & """" & "," & """" & indirizzo & """" & "'"
Application.OnTime istanteCambio, strProcedura, , True
End Sub
Public Sub lampeggiaOFF(nomeFoglio As String, indirizzo As String)
Sheets(nomeFoglio).Range(indirizzo).Interior.ColorIndex = xlNone
Dim strProcedura As String
strProcedura = ThisWorkbook.Name & "!'lampeggiaON " & """" & nomeFoglio & """" & "," & """" & indirizzo & """" & "'"
Application.OnTime istanteCambio, strProcedura, , False
End Sub
Codice per avviare/fermare l'effetto lampeggiamento sulla cella desiderata :
Codice:
lampeggiaON "Foglio1", "A1"
lampeggiaOFF "Foglio1", "A1"
E il gioco è fatto.
|
Marco mi interessa molto questa cosa.
Io la vorrei applicare ad una cella dove controlla la percentuale di un dato, ora mi interessa se lampeggia arrivando ad una certa percentuale tipo il 25%.
Altra cosa mi scrivi la formula esatta usanto :
nome foglio = Foglio1
Cella esito controllo = D1
Cella controllo =IV404
Resto in attesa
Thx