Guarda se riesci ad adattare questo codice trovato in rete
Fare lampeggiare una cella usando la proprietà : stile
Per creare una cella che lampeggia si deve creare una macro
Dovete definire un nuovo stile (formato / stile / lampeggia / Aggiungi)
Impore questo stile per le celle che volete fare "lampeggiare", ed incollate il codice seguente
in un modulo foglio ed avviate la procedura "lampeggio" dal
luogo dove volete che il testo lampeggia in bianco e rosso
Dim NextTime As Date
Sub lampeggia()
NextTime = Now + TimeValue("00:00:01")
With ActiveWorkbook.Styles("lampeggia").Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
Application.OnTime NextTime, "lampeggia"
End Sub
Sub StopIt()
Application.OnTime NextTime, "lampeggia", schedule:=False
ActiveWorkbook.Styles("Flash").Font.Co… = xlAutomatic
End Sub
...........
la macro permette di fare lampeggiare la cella attiva
Ogni tot secondi
avviando InitFlash
'======Nel un modulo normale
Public OrigBkgCol As Long, OrigTxtCol As Long
Public OldCell As Range
Sub InitFlash()
Set OldCell = ActiveCell
OrigBkgCol = ActiveCell.Interior.ColorIndex
OrigTxtCol = ActiveCell.Font.ColorIndex
Application.OnTime Now + TimeValue("00:00:01"), "Flash"
End Sub
Sub Flash()
If ActiveCell.Interior.ColorIndex < 0 Then
ActiveCell.Interior.ColorIndex = 1 'colore fondo nero
ActiveCell.Font.ColorIndex = 2 'colore testo bianco
Else
ActiveCell.Interior.ColorIndex = (ActiveCell.Interior.ColorIndex + 1) Mod 2
ActiveCell.Font.Color = 1
End If
Application.OnTime Now + TimeValue("00:00:01"), "Flash"
End Sub
=======A copiare nel visual basic editor, nel foglio
dove desiderate fare lampeggiare una cella
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' On Error GoTo zut
' OldCell.Interior.ColorIndex = OrigBkgCol
' OldCell.Font.ColorIndex = OrigTxtCol
' OrigBkgCol = Target.Interior.ColorIndex
' OrigTxtCol = Target.Font.ColorIndex
' Set OldCell = Target
'zut:
'End Sub
---------
Creare una macro utilizzando Microsoft Visual Basic
1. Dal menu Strumenti di Microsoft Excel, scegliere Macro, quindi Editor di Visual Basic.
2. Scegliere Modulo dal menu Inserisci.
3. Digitare o copiare il codice nella finestra del codice del modulo.
4. Per eseguire la macro (macro: Azione o gruppo di azioni che è possibile utilizzare per automatizzare le attività. Le macro vengono registrate nel linguaggio di programmazione di Visual Basic, Applications Edition.) dalla finestra del modulo, premere F5.
5. Una volta scritta la macro, scegliere Chiudi e torna a Microsoft Excel dal menu File.
Fonti:
http://office.microsoft.com/it-it/excel/…