Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

testo lampeggiante

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

testo lampeggiante

Postdi gabonik » 17/06/09 13:26

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 :eeh:
gabonik
(Win 10 - 64 bit - Intel Core i5-3330 CPU @3.000 GHz - 6,0 GB Ram)
gabonik
Utente Junior
 
Post: 77
Iscritto il: 06/01/03 19:17

Sponsor
 

Re: testo lampeggiante

Postdi Flash30005 » 17/06/09 14:15

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: testo lampeggiante

Postdi Flash30005 » 17/06/09 14:44

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: testo lampeggiante

Postdi Anthony47 » 17/06/09 21:25

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.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13895
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: testo lampeggiante

Postdi Flash30005 » 17/06/09 21:47

Anthony47 ha scritto: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 :roll:
Chi non è legale? :D
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: testo lampeggiante

Postdi Anthony47 » 17/06/09 22:27

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!
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13895
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: testo lampeggiante

Postdi Flash30005 » 18/06/09 01:19

Anthony47 ha scritto:...puo' andare bene come prova?


:?: Intendi fare qualcosa di simile?

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

Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "testo lampeggiante":


Chi c’è in linea

Visitano il forum: salatony e 9 ospiti