Come fare Flash testo in Excel

March 5

Excel non dispongono di lampeggiante o lampeggiante testo come opzione di carattere. Utilizzando il codice incorporato in Visual Basic, Applications Edition, tuttavia, è possibile utilizzare Excel per rendere il cambiamento di colore del testo di ogni sezione, creando un effetto lampeggiante.

istruzione

1 Aprire il file di Microsoft Excel 2010 in cui si desidera effettuare il flash testo. Premere il tasto "Alt" e "F11" per aprire la console VBA.

2 Fare clic sulla voce "ThisWorkbook" sul lato sinistro della console VBA. Muovi il mouse sopra "Inserisci" e scegliere "modulo".

3 Fare doppio clic sull'opzione "ThisWorkbook". Copiare il seguente codice e incollarlo nello spazio bianco sul lato destro dello schermo:

Private Sub Workbook_Open ()

Blink

End Sub

Private Sub Workbook_BeforeClose (Cancel come booleano)

NoBlink

End Sub

Questo codice si avvia e il testo lampeggiante quando si apre la cartella di lavoro, e fermare il testo lampeggiante quando si chiude la cartella di lavoro, una volta che si inserisce il codice per dire ciò che Excel Blink e noblink realtà significa.

4 Fare doppio clic su "Modulo 1" dalla lista sul lato sinistro dello schermo. Posizionare il cursore sul lato destro dello schermo e immettere la seguente riga:

Public Timecount As Double

Questo crea una variabile chiamata "Timecount" che è possibile utilizzare in ogni subroutine.

5 Premere Invio per spostare il cursore alla riga successiva e inserire il seguente codice:

batter Sub ()

Con ThisWorkbook.Worksheets ( "Sheet1") Gamma. ( "A1: A10"). Font

If .ColorIndex = 3 Then

.ColorIndex = 2

Altro

.ColorIndex = 3

Finisci se

End With

Timecount = ora + TimeSerial (0, 0, 1)

Application.OnTime Timecount, "Blink",, True

End Sub

Questo crea una subroutine denominata "Blink", che farà sì che tutto il testo all'interno del range definito a lampeggiare. È possibile modificare l'intervallo da "A1: A10" a tutto ciò che si desidera gamma, tra cui una singola cella.

6 Premere il tasto "Enter" per accedere alla riga successiva e inserire il seguente codice:

noblink Sub ()

ThisWorkbook.Worksheets ( "Sheet1") Gamma. ( "A1: A10"). Font.ColorIndex = _

xlColorIndexAutomatic

Application.OnTime Timecount, "Blink",, False

End Sub

Questo creerà una subroutine che verrà eseguito quando si chiude la cartella di lavoro. Si scopre tutto il testo torna al nero, in modo che una persona che apre la cartella di lavoro senza macro abilitate non accidentalmente vedere nulla nelle caselle di testo.

7 Chiudere la console VBA facendo clic sulla "X" nell'angolo in alto a destra. Fare clic sulla scheda "File" nella parte superiore dello schermo e scegliere "Salva con nome". Selezionare "Excel con attivazione macro cartella di lavoro" dal campo a discesa e digitare un nome per la cartella di lavoro. Fai clic su "Salva".

8 Chiudere il file Excel e quindi riaprirlo. Il testo, all'interno del range definito nella macro, inizierà a lampeggiare. A seconda delle impostazioni di sicurezza, potrebbe essere necessario fare clic sul pulsante "Attiva macro" nella parte superiore dello schermo per visualizzare il testo lampeggiante.


Articoli Correlati