ciao ti posto del codice che Flash fece un pò di tempo addietro:
Nel Foglio devi inserire il seguente codice:
- Codice: Seleziona tutto
Private Sub Worksheet_Activate()
Tempo = 0
Call Lampeggia
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$P$3" Then Exit Sub
Tempo = 0
Call Lampeggia
End Sub
Questa è la macro da inserire in un modulo:
- Codice: Seleziona tutto
Public Tempo As Integer
Sub Lampeggia()
If Tempo > 8 Then Exit Sub ' il tempo in sec che lampeggera'
If ActiveWorkbook.Name <> ThisWorkbook.Name Then Exit Sub 'Confronto nome file
FOGLIO = "Foglio1"
If ActiveSheet.Name <> FOGLIO Then Exit Sub 'Confronto nome foglio
If Tempo > 5 Then ' il tempo in sec che lampeggera'
Tempo = 0
GoTo Esci
End If
Tempo = Tempo + 1
Static FLASH As Boolean
Dim DELTAt As Date
DELTAt = "00:00:01"
If Val(ThisWorkbook.Sheets(FOGLIO).Range("P3")) > 0 Then '<<< ora e' cosi
Select Case FLASH
Case True
Sheets(FOGLIO).Cells(3, 16).Interior.Color = RGB(255, 255, 0) 'giallo
Case Else
Sheets(FOGLIO).Cells(3, 16).Interior.Color = RGB(255, 0, 0) 'ROSSO
End Select
Else
Cells(3, 16).Interior.ColorIndex = xlNone 'Nessun colore
End If
Esci:
FLASH = Not (FLASH)
Application.OnTime Now + TimeValue(DELTAt), "LAMPEGGIA"
End Sub
Puoi provare a cambiare sia i colori che il tempo di lampeggio in base alle tue esigenze.
francesco
S.O. Windows 10 e Office 2007