testo lampeggiante

[gabonik]

Avrei bisogno d'inserire in un foglio di calcolo, una cella con testo lampeggiante a mo' di promemoria ad ogni avvio del foglio medesimo. Si può fare ? e se si, come?
Grazie

[Flash30005]

Una macro che fa lampeggiare il testo, da posizionare in ThisWorkbook (Strumenti>Macro>VisualBasic Editor),
potrebbe essere questa:

Codice: Seleziona tutto

Private Sub Workbook_Open()
TiL = Timer
TempoLamp = 10
inizio:
If Timer > TiL + TempoLamp Then GoTo esci
TiN = Timer
    Range("A1").Font.ColorIndex = 0
Rit = 1
pausa:
If Timer < TiN + Rit Then GoTo pausa
TiR = Timer
    Range("A1").Font.ColorIndex = 3
pausaR:
If Timer < TiR + Rit Then GoTo pausaR
GoTo inizio
esci:
End Sub

L'unico inconveniente è che per quei 10 secondi di lampeggio non permette l'utilizzo del foglio (poi torna tutto regolare)

Variare i seguenti parametri secondo la propria esigenza:
Il testo lampeggiante è nella cella A1
Tempo lampeggio 10 secondi (TempoLamp = 10)
Frequenza lampeggio 1 secondo (TiN e TiR)
Colore nero (Font.ColorIndex = 0)
Colore rosso (Font.ColorIndex = 3)

Ciao

[Flash30005]

Ho letto che si possono aggiungere degli stili tra i quali quello lampeggiante ma se vuoi usare una macro (questa non blocca il foglio) copia l'intero codice e inseriscilo in un modulo normale

Codice: Seleziona tutto

Public OrigBkgCol As Long, OrigTxtCol As Long
Public OldCell As Range
Sub InitFlash()
Set OldCell = Range("A1")
OrigBkgCol = Range("A1").Interior.ColorIndex
OrigTxtCol = Range("A1").Font.ColorIndex
Application.OnTime Now + TimeValue("00:00:01"), "Flash"
End Sub
Sub Flash()
If Range("A1").Interior.ColorIndex < 0 Then
Range("A1").Interior.ColorIndex = 1 'colore fondo nero
Range("A1").Font.ColorIndex = 2 'colore testo bianco
Else
Range("A1").Interior.ColorIndex = (ActiveCell.Interior.ColorIndex + 1) Mod 2
Range("A1").Font.Color = 1
End If
Application.OnTime Now + TimeValue("00:00:01"), "Flash"
End Sub

Questo secondo codice lo inserisci nel foglio di lavoro (dove hai il testo che deve lampeggiare)

Codice: Seleziona tutto

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 On Error GoTo zut
 OldCell.Interior.ColorIndex = OrigBkgCol
 OldCell.Font.ColorIndex = OrigTxtCol
 OrigBkgCol = Range("A1").Interior.ColorIndex
 OrigTxtCol = Range("A1").Font.ColorIndex
 Set OldCell = Range("A1")
zut:
End Sub


La cella interessata, in questo caso è A1

Ciao

[Anthony47]

In Usa il testo lampeggiante e' addirittura vietato perche' puo' scatenare crisi epilettiche...
Non potrebbe bastare un "msgbox" all' apertura del foglio, o la selezione di un' area del file che contiene le informazioni che vuoi rendere evidente?

Ciao a tutti.

[Flash30005]

In Usa il testo lampeggiante e' addirittura vietato perche' puo' scatenare crisi epilettiche...
...

Ma Word ce l'ha!
Formato>Carattere>scheda Effetti di Testo>Sfondo Intermittente
Chi non è legale?

[Anthony47]

E' vero, non ci avevo mai fatto caso a sto' "sfondo intermittente".
Non ho ritrovato quello che ricordavo, magari era solo una raccomandazione; pero' mi sta' venendo un po' di bava a guardare quel testo lampeggiante: puo' andare bene come prova?

Ciao!

[Flash30005]

...puo' andare bene come prova?

Intendi fare qualcosa di simile?

La macro nel mio post delle 15:44 fa proprio quello

Ciao