Kako narediti bliskovito besedilo v Excelu

Excel ne ponuja utripanja ali utripanja besedila kot možnosti pisave. Z uporabo Excelovega vgrajenega Visual Basica za aplikacije pa lahko uporabite kodo, s katero spremenite barvo besedila v vsakem odseku in ustvarite utripajoč učinek.

1. korak

Odprite datoteko Microsoft Excel 2010, v kateri želite, da besedilo utripa. Pritisnite "Alt" in "F11", da odprete konzolo VBA.

2. korak

Z desno miškino tipko kliknite vnos "ThisWorkbook" na levi strani konzole VBA. Premaknite miško nad "Vstavi" in izberite "Modul."

3. korak

Dvokliknite možnost »ThisWorkbook«. Kopirajte naslednjo kodo in jo prilepite v prazen prostor na desni strani zaslona:

Private Sub Workbook_Open() Blink End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean) NoBlink End Sub

Ta koda in utripajoče besedilo se bo začelo, ko odprete ta delovni zvezek, in prenehalo utripati besedilo, ko zaprete delovni zvezek, ko vstavite kodo, ki Excelu pove, kaj Blink in NoBlink dejansko pomenita.

4. korak

Dvokliknite »Modul 1« na seznamu na levi strani zaslona. Kazalec postavite na desno stran zaslona in vnesite naslednjo vrstico:

Javno štetje časa kot dvojno

To ustvari spremenljivko, imenovano "Timecount", ki jo lahko uporabite v vsakem podprogramu.

5. korak

Pritisnite enter, da premaknete kazalec v naslednjo vrstico, in vnesite to kodo:

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

To ustvari podprogram z imenom "Blink", ki bo povzročil utripanje celotnega besedila znotraj definiranega obsega. Obseg lahko spremenite iz "A1:A10" v poljuben obseg, vključno s posamezno celico.

6. korak

Pritisnite "Enter" za dostop do naslednje vrstice in vnesite to kodo:

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

To bo ustvarilo podprogram, ki se bo zagnal, ko zaprete delovni zvezek. Vse besedilo spremeni nazaj v črno, tako da nekdo, ki odpre delovni zvezek brez omogočenih makrov, ne bo slučajno videl ničesar v besedilnih poljih.

7. korak

Zaprite konzolo VBA s klikom na "X" v zgornjem desnem kotu. Kliknite zavihek »Datoteka« na vrhu zaslona in izberite »Shrani kot«. V spustnem polju izberite "Excel Macro-enabled Workbook" in vnesite ime za delovni zvezek. Kliknite "Shrani."

8. korak

Zaprite datoteko Excel in jo nato znova odprite. Vaše besedilo znotraj obsega, določenega v makru, bo začelo utripati. Odvisno od vaših varnostnih nastavitev boste morda morali klikniti gumb »Omogoči makre« na vrhu zaslona, ​​da boste videli utripajoče besedilo.