Benvenuto Ospite Cerca | Topic Attivi | Utenti | | Log In | Registra

Scritte animate in excel Opzioni
delvallo
Inviato: Monday, November 13, 2006 5:27:54 PM
Rank: Member

Iscritto dal : 10/18/2003
Posts: 14
Salve volevo sapere se in excel era possibile inserire delle scritte animate o lampeggianti personalizzate, in modo da attirare l'attenzione.
Grazie anticipatamente.
Saluti Domenico
Sponsor
Inviato: Monday, November 13, 2006 5:27:54 PM

 
a10n11
Inviato: Monday, November 13, 2006 7:47:24 PM

Rank: AiutAmico

Iscritto dal : 5/29/2003
Posts: 1,694
salve
prova a vedere se una soluzione di questo tipo può andare:
macro da inserire in un modulo:(la Sub Flash, controlla se il valore della cella A1 è maggiore di 50 se è vero, alterna il colore di sfondo da bianco a giallo e il font da nero a rosso realizzando un effetto lampeggio- Dato che la macro viene eseguita a ciclo continuo, per fermarla bisogna usare la macro StopFlash)

Dim tempo As Date
Sub Flash()
tempo = Now + TimeValue("00:00:01")
With [A1]
If .Value > 50 Then
If .Interior.ColorIndex = xlNone Then .Interior.ColorIndex = 6 Else .Interior.ColorIndex = xlNone
If .Font.ColorIndex = 1 Then .Font.ColorIndex = 3 Else .Font.ColorIndex = 1
End If
End With
Application.OnTime tempo, "Flash"
End Sub


Sub StopFlash()
Application.OnTime tempo, "Flash", schedule:=False
With [A1]
.Font.ColorIndex = xlAutomatic
.Interior.ColorIndex = xlNone
End With
End Sub

Per far partire l'effetto all'apertura del file, basta inserire la macro che segue sfruttando l'evento open del foglio.

Private Sub Workbook_Open()
Call Flash
End Sub

saluti
Andrea

Utenti presenti in questo topic
Guest


Salta al Forum
Aggiunta nuovi Topic disabilitata in questo forum.
Risposte disabilitate in questo forum.
Eliminazione tuoi Post disabilitata in questo forum.
Modifica dei tuoi post disabilitata in questo forum.
Creazione Sondaggi disabilitata in questo forum.
Voto ai sondaggi disabilitato in questo forum.

Main Forum RSS : RSS

Aiutamici Theme
Powered by Yet Another Forum.net versione 1.9.1.8 (NET v2.0) - 3/29/2008
Copyright © 2003-2008 Yet Another Forum.net. All rights reserved.