Kaip padaryti, kad tekstas „Flash“ programoje „Excel“.

Atidarykite „Microsoft Excel 2010“ failą, kuriame norite, kad tekstas mirksi. Paspauskite „Alt“ ir „F11“, kad atidarytumėte VBA konsolę.

Dešiniuoju pelės mygtuku spustelėkite įrašą „ThisWorkbook“ kairėje VBA konsolės pusėje. Užveskite pelės žymeklį ant „Įterpti“ ir pasirinkite „Modulis“.

Dukart spustelėkite parinktį „ThisWorkbook“. Nukopijuokite šį kodą ir įklijuokite jį į tuščią vietą dešinėje ekrano pusėje:

Private Sub Workbook_Open() Blink End Sub

Private Sub Workbook_BeforeClose (Cancel As Boolean) NoBlink End Sub

Šis kodas prasidės ir mirksi tekstas, kai atidarysite šią darbaknygę, ir sustabdys mirksintį tekstą kai uždarote darbaknygę, kai įterpiate kodą, kad nurodytumėte Excel, kas iš tikrųjų yra Blink ir NoBlink reiškia.

Kairėje ekrano pusėje esančiame sąraše dukart spustelėkite „Modulis 1“. Užveskite žymeklį dešinėje ekrano pusėje ir įveskite šią eilutę:

Viešas laiko skaičiavimas kaip dvigubas

Taip sukuriamas kintamasis pavadinimu „Laiko skaičius“, kurį galite naudoti kiekvienoje paprogramėje.

Paspauskite Enter, kad perkeltumėte žymeklį į kitą eilutę ir įveskite šį kodą:

Sub blink() Su ThisWorkbook. Worksheets("Sheet1").Range("A1:A10").Šriftas, jei .ColorIndex = 3 Tada .ColorIndex = 2 Else .ColorIndex = 3 Pabaiga, jei baigiasi laiko skaičiumi = dabar + TimeSerial (0, 0, 1) programa. „OnTime Timecount“, „Blink“, „True End Sub“.

Taip sukuriama paprogramė, vadinama „Blink“, kuri privers mirksėti visas apibrėžtame diapazone esantis tekstas. Galite pakeisti diapazoną nuo „A1:A10“ į bet kurį pageidaujamą diapazoną, įskaitant atskirą langelį.

Paspauskite „Enter“, kad pasiektumėte kitą eilutę ir įveskite šį kodą:

Sub noblink() ThisWorkbook. Darbalapiai("Sheet1").Range("A1:A10").Šriftas. ColorIndex = _ xlColorIndexAutomatinis taikymas. „OnTime Timecount“, „Blink“, „False End Sub“.

Taip bus sukurta paprogramė, kuri bus paleista uždarius darbaknygę. Visas tekstas paverčiamas juodu, kad kas nors, atidaręs darbaknygę be įjungtų makrokomandų, netyčia nieko nepamatytų teksto laukeliuose.

Uždarykite VBA konsolę spustelėdami „X“ viršutiniame dešiniajame kampe. Ekrano viršuje spustelėkite skirtuką „Failas“ ir pasirinkite „Išsaugoti kaip“. Išskleidžiamajame lauke pasirinkite „Excel makrokomandos įgalinta darbaknygė“ ir įveskite darbaknygės pavadinimą. Spustelėkite „Išsaugoti“.

Uždarykite „Excel“ failą ir vėl atidarykite. Jūsų tekstas, esantis makrokomandoje apibrėžtame diapazone, pradės mirksėti. Atsižvelgiant į saugos nustatymus, gali tekti spustelėti mygtuką „Įjungti makrokomandas“ ekrano viršuje, kad pamatytumėte mirksintį tekstą.