Excelis ei ole fondivalikuna vilkuvat ega vilkuvat teksti. Kuid kasutades Exceli sisseehitatud Visual Basic for Applications, saate koodi abil muuta teksti igas jaotises värvi, luues vilkuva efekti.
Samm 1
Avage Microsoft Excel 2010 fail, milles soovite teksti vilkuma panna. VBA-konsooli avamiseks vajutage "Alt" ja "F11".
Päeva video
2. samm
Paremklõpsake VBA konsooli vasakus servas kirjel "ThisWorkbook". Liigutage kursorit "Sisesta" ja valige "Moodul".
3. samm
Topeltklõpsake valikut "See töövihik". Kopeerige järgmine kood ja kleepige see ekraani paremas servas olevasse tühikusse:
Privaatne alamtöövihik_Open() Blink End Sub
Privaatne alamtöövihik_BeforeClose (Cancel As Boolean) NoBlink End Sub
Selle töövihiku avamisel käivitub see kood ja vilkuv tekst ning lõpetab vilkuva teksti töövihiku sulgemisel sisestage kood, et öelda Excelile, mis Blink ja NoBlink tegelikult on tähendab.
4. samm
Topeltklõpsake ekraani vasakus servas olevas loendis "Moodul 1". Asetage kursor ekraani paremasse serva ja sisestage järgmine rida:
Avalik ajaarvestus kahekordsena
See loob muutuja nimega "Timecount", mida saate kasutada igas alamprogrammis.
5. samm
Kursori järgmisele reale liigutamiseks vajutage sisestusklahvi ja sisestage järgmine kood:
Sub blink() Selle tööraamatuga. Worksheets("Sheet1").Range("A1:A10").Font Kui .ColorIndex = 3 then .ColorIndex = 2 Else .ColorIndex = 3 End If End With Timecount = Praegu + TimeSerial (0, 0, 1) rakendus. OnTime Timecount, "Blink", True End Sub
See loob alamprogrammi nimega "Blink", mis paneb kogu määratletud vahemikus oleva teksti vilkuma. Saate muuta vahemikku "A1:A10" soovitud vahemikku, sealhulgas üksikut lahtrit.
6. samm
Järgmisele reale sisenemiseks vajutage sisestusklahvi ja sisestage järgmine kood:
Sub noblink() See tööraamat. Töölehed("Leht1").Range("A1:A10").Font. ColorIndex = _ xlColorIndexAutomaatne rakendus. OnTime Timecount, "Pilkumine", Vale lõpu alam
See loob alamprogrammi, mis käivitatakse töövihiku sulgemisel. See muudab kogu teksti tagasi mustaks, et keegi, kes avab töövihiku ilma makrodeta, ei näeks kogemata tekstikastides midagi.
7. samm
Sulgege VBA konsool, klõpsates paremas ülanurgas "X". Klõpsake ekraani ülaosas vahekaarti "Fail" ja valige "Salvesta kui". Valige rippmenüüst "Exceli makrotoega töövihik" ja tippige töövihiku nimi. Klõpsake "Salvesta".
8. samm
Sulgege Exceli fail ja seejärel avage see uuesti. Teie tekst makros määratud vahemikus hakkab vilkuma. Olenevalt turvaseadetest peate võib-olla vilkkuva teksti nägemiseks klõpsama ekraani ülaosas nuppu "Luba makrod".
