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
Moderatori: Anthony47, Flash30005
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
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
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
Anthony47 ha scritto:In Usa il testo lampeggiante e' addirittura vietato perche' puo' scatenare crisi epilettiche...
...
Anthony47 ha scritto:...puo' andare bene come prova?
Torna a Applicazioni Office Windows
Conta.più.se con solo parte del testo Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 9 |
Inserimento valore di una cella in testo di altra cella Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 7 |
Excel Estrazione casuale testo da colonna per bingo ca**ate Autore: Dylan666 |
Forum: Applicazioni Office Windows Risposte: 7 |
Formattazione testo in grassetto in una textbox di una form Autore: deniel69 |
Forum: Applicazioni Office Windows Risposte: 4 |
Importare più file di testo contemporaneamente Autore: Paolo67 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 79 ospiti