Come creare testo in flash in Excel

Excel non presenta testo lampeggiante o lampeggiante come opzione del carattere. Utilizzando Visual Basic, Applications Edition integrato in Excel, tuttavia, puoi utilizzare il codice per far cambiare colore al testo in ogni sezione, creando un effetto lampeggiante.

Passaggio 1

Aprire il file Microsoft Excel 2010 in cui si desidera far lampeggiare il testo. Premi "Alt" e "F11" per aprire la console VBA.

Passaggio 2

Fare clic con il pulsante destro del mouse sulla voce "ThisWorkbook" sul lato sinistro della console VBA. Sposta il mouse su "Inserisci" e scegli "Modulo".

Passaggio 3

Fare doppio clic sull'opzione "Questa cartella di lavoro". Copia il codice seguente e incollalo nello spazio bianco sul lato destro dello schermo:

Private Sub Workbook_Open() Blink End Sub

Private Sub Workbook_BeforeClose(Annulla come booleano) NoBlink End Sub

Questo codice inizierà e il testo lampeggiante quando apri questa cartella di lavoro e interrompe il testo lampeggiante quando chiudi la cartella di lavoro, una volta inserito il codice per dire a Excel cosa significano effettivamente Blink e NoBlink.

Passaggio 4

Fare doppio clic su "Modulo 1" dall'elenco sul lato sinistro dello schermo. Posiziona il cursore sul lato destro dello schermo e inserisci la seguente riga:

Conteggio del tempo pubblico raddoppiato

Questo crea una variabile chiamata "Timecount" che puoi usare in ogni subroutine.

Passaggio 5

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

Sub blink() With ThisWorkbook.Worksheets("Sheet1").Range("A1:A10").Font If .ColorIndex =3 Then .ColorIndex =2 Else .ColorIndex =3 End If End With Timecount =Now + TimeSerial(0 , 0, 1) Contatempo Application.OnTime, "Blink", , True End Sub

Questo crea una subroutine chiamata "Blink" che farà lampeggiare tutto il testo all'interno dell'intervallo definito. Puoi modificare l'intervallo da "A1:A10" a qualsiasi intervallo desideri, inclusa una singola cella.

Passaggio 6

Premi "Invio" per accedere alla riga successiva e inserisci il seguente codice:

Sub noblink() ThisWorkbook.Worksheets("Sheet1").Range("A1:A10").Font.ColorIndex =_ xlColorIndexAutomatic Application.OnTime Timecount, "Blink", , False End Sub

Ciò creerà una subroutine che verrà eseguita alla chiusura della cartella di lavoro. Riporta tutto il testo in nero, in modo che qualcuno che apre la cartella di lavoro senza le macro abilitate non veda nulla accidentalmente nelle caselle di testo.

Passaggio 7

Chiudi la console VBA facendo clic sulla "X" nell'angolo in alto a destra. Fai clic sulla scheda "File" nella parte superiore dello schermo e scegli "Salva con nome". Seleziona "Cartella di lavoro abilitata per Excel" dal campo a discesa e digita un nome per la cartella di lavoro. Fai clic su "Salva".

Passaggio 8

Chiudi il file Excel e poi riaprilo. Il tuo testo, all'interno dell'intervallo definito nella macro, inizierà a lampeggiare. A seconda delle impostazioni di sicurezza, potrebbe essere necessario fare clic sul pulsante "Abilita macro" nella parte superiore dello schermo per visualizzare il testo lampeggiante.