Come far lampeggiare il testo in Excel

Excel non ha il testo lampeggiante o lampeggiante come opzione di font. Usando Visual Basic for Applications integrato in Excel, tuttavia, puoi usare codice per far cambiare colore al testo ogni secondo, creando un effetto lampeggiante.

Passo 1

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

Passo 2

Fare clic destro sull'elemento "ThisWorkbook" a sinistra della console VBA. Spostare il mouse su "Inserisci" e scegliere "Modulo".

Passo 3

Fare doppio clic sull'opzione "ThisWorkbook". Copiare il seguente codice e incollarlo nello spazio bianco a destra dello schermo:

Private Sub Workbook_Open() Blink End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean) NoBlink End Sub

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

Passo 4

Fare doppio clic su "Modulo 1" dall'elenco a sinistra. Posizionare il cursore a destra dello schermo e inserire la seguente riga:

Public Timecount As Double

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

Passo 5

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

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

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

Passo 6

Premere "Invio" per accedere alla riga successiva e inserire il seguente codice:

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

Questo creerà una subroutine che si eseguirà quando chiudi la cartella. Riporta tutto il testo al nero, così che qualcuno che apre la cartella senza macro abilitate non veda accidentalmente nulla nelle caselle di testo.

Passo 7

Chiudere la console VBA cliccando la "X" nell'angolo in alto a destra. Cliccare la scheda "File" in alto e scegliere "Salva con nome". Selezionare "Cartella di lavoro con macro Excel" dal campo a tendina e digitare un nome per la cartella. Cliccare "Salva".

Passo 8

Chiudere il file Excel e riaprirlo. Il tuo testo, nell'intervallo definito nella macro, inizierà a lampeggiare. A seconda delle impostazioni di sicurezza, potresti dover cliccare il pulsante "Abilita macro" in alto per vedere il testo lampeggiante.