Excel non presenta testo lampeggiante o lampeggiante come opzione di carattere. Utilizzando Visual Basic for Applications integrato in Excel, tuttavia, è possibile utilizzare il codice per far cambiare colore al testo in ogni sezione, creando un effetto lampeggiante.
Passo 1
Apri il file Microsoft Excel 2010 in cui desideri far lampeggiare il testo. Premi "Alt" e "F11" per aprire la console VBA.
Video del giorno
Passo 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 "ThisWorkbook". Copia il seguente codice 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 interromperà il testo lampeggiante quando chiudi la cartella di lavoro, una volta inserito il codice per dire a Excel cosa effettivamente Blink e NoBlink significare.
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:
Timecount pubblico come doppio
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() Con ThisWorkbook. Fogli di lavoro("Foglio1").Range("A1:A10").Font If .ColorIndex = 3 Then .ColorIndex = 2 Else .ColorIndex = 3 End If End With Timecount = Now + TimeSerial (0, 0, 1) Applicazione. OnTime Timecount, "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
Premere "Invio" per accedere alla riga successiva e inserire il seguente codice:
Sub noblink() ThisWorkbook. Fogli di lavoro ("Foglio1"). Intervallo ("A1: A10"). Font. ColorIndex = _ xlColorIndexApplicazione automatica. OnTime Timecount, "Blink",, False End Sub
Questo creerà una subroutine che verrà eseguita quando chiudi la cartella di lavoro. Riporta tutto il testo in nero, in modo che chi apre la cartella di lavoro senza le macro abilitate non vedrà accidentalmente nulla nelle caselle di testo.
Passaggio 7
Chiudi 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". Seleziona "Cartella di lavoro con attivazione macro di 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.
