Excel ne vsebuje utripajočega ali utripajočega besedila kot možnosti pisave. Z uporabo Excelovega vgrajenega Visual Basica za aplikacije pa lahko uporabite kodo, da spremenite barvo besedila v vsakem razdelku in ustvarite utripajoč učinek.
Korak 1
Odprite datoteko Microsoft Excel 2010, v kateri želite utripati besedilo. Pritisnite "Alt" in "F11", da odprete konzolo VBA.
Video dneva
2. korak
Z desno tipko miške kliknite vnos »Ta delovni zvezek« na levi strani konzole VBA. Premaknite miško nad "Vstavi" in izberite "Modul".
3. korak
Dvokliknite možnost »Ta delovni zvezek«. Kopirajte naslednjo kodo in jo prilepite v prazen prostor na desni strani zaslona:
Delovni zvezek Private Sub_Open() Blink End Sub
Delovni zvezek Private Sub_BeforeClose (Prekliči kot Boolean) NoBlink End Sub
Ta koda se bo začela in utripajoče besedilo, ko odprete ta delovni zvezek, in zaustavilo utripajoče besedilo ko zaprete delovni zvezek, ko vstavite kodo, da Excelu poveste, kaj pravzaprav Blink in NoBlink pomeni.
4. korak
Dvokliknite "Module 1" na seznamu na levi strani zaslona. Postavite kazalec na desno stran zaslona in vnesite naslednjo vrstico:
Javno štetje časa je 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 naslednjo kodo:
Sub blink() s tem delovnim zvezkom. Delovni listi("Sheet1").Range("A1:A10").Pisava Če .ColorIndex = 3 Potem .ColorIndex = 2 Drugače .ColorIndex = 3 Konec, če Konec s Timecount = Zdaj + TimeSerial (0, 0, 1) Aplikacija. OnTime Timecount, "Blink", True End Sub
To ustvari podprogram, imenovan "Blink", ki povzroči, da utripa vse besedilo znotraj definiranega obsega. Razpon lahko spremenite iz "A1:A10" v poljuben obseg, vključno s posamezno celico.
6. korak
Pritisnite "Enter" za dostop do naslednje vrstice in vnesite naslednjo kodo:
Sub noblink() Ta delovni zvezek. Delovni listi("List1").Razpon("A1:A10").Pisava. ColorIndex = _ xlColorIndexAutomatic Application. OnTime Timecount, "Blink", False End Sub
To bo ustvarilo podprogram, ki se bo zagnal, ko zaprete delovni zvezek. Vse besedilo obrne 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 v obsegu, določenem v makru, bo začelo utripati. Glede na vaše varnostne nastavitve boste morda morali klikniti gumb »Omogoči makre« na vrhu zaslona, da boste videli utripajoče besedilo.
