Kako napraviti tekst Flash u Excelu

Excel ne nudi treptanje ili bljeskanje teksta kao opciju fonta. Međutim, koristeći Excelov ugrađeni Visual Basic for Applications, možete upotrijebiti kod kako biste promijenili boju teksta u svakom odjeljku, stvarajući efekt bljeskanja.

1. korak

Otvorite Microsoft Excel 2010 datoteku u kojoj želite da tekst bljeska. Pritisnite "Alt" i "F11" za otvaranje VBA konzole.

2. korak

Desnom tipkom miša kliknite unos "ThisWorkbook" na lijevoj strani VBA konzole. Pomaknite miš preko "Umetni" i odaberite "Modul."

3. korak

Dvaput kliknite opciju "ThisWorkbook". Kopirajte sljedeći kod i zalijepite ga u bijeli prostor na desnoj strani ekrana:

Private Sub Workbook_Open() Blink End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean) NoBlink End Sub

Ovaj kod će započeti i treperiti tekst kada otvorite ovu radnu knjigu, a prestat će treptati tekst kada zatvorite radnu knjigu, nakon što umetnete kod da kažete Excelu što Blink i NoBlink zapravo znače.

4. korak

Dvaput kliknite na "Modul 1" s popisa na lijevoj strani ekrana. Postavite kursor na desnu stranu ekrana i unesite sljedeći redak:

Javno računanje vremena kao dvostruko

Ovo stvara varijablu pod nazivom "Timecount" koju možete koristiti u svakoj podrutini.

Korak 5

Pritisnite enter za pomicanje kursora u sljedeći redak i unesite sljedeći kod:

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) Application.OnTime Timecount, "Blink", , True End Sub

Ovo stvara potprogram pod nazivom "Blink" koji će uzrokovati bljeskanje cijelog teksta unutar definiranog raspona. Raspon možete promijeniti iz "A1:A10" u bilo koji raspon koji želite, uključujući pojedinačnu ćeliju.

Korak 6

Pritisnite "Enter" za pristup sljedećem retku i unesite sljedeći kod:

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

Ovo će stvoriti potprogram koji će se pokrenuti kada zatvorite radnu knjigu. Ponovno pretvara sav tekst u crnu, tako da netko tko otvori radnu knjigu bez omogućenih makronaredbi neće slučajno vidjeti ništa u tekstnim okvirima.

7. korak

Zatvorite VBA konzolu klikom na "X" u gornjem desnom kutu. Pritisnite karticu "Datoteka" na vrhu zaslona i odaberite "Spremi kao". Odaberite "Excel radna knjiga s omogućenom makronaredbom" iz padajućeg polja i upišite naziv radne knjige. Kliknite "Spremi."

Korak 8

Zatvorite Excel datoteku, a zatim je ponovno otvorite. Vaš tekst, unutar raspona definiranog u makronaredbi, počet će treperiti. Ovisno o vašim sigurnosnim postavkama, možda ćete morati kliknuti gumb "Omogući makronaredbe" na vrhu zaslona da biste vidjeli trepćući tekst.