Programmā Excel kā fonta opcija netiek piedāvāts mirgojošs vai mirgojošs teksts. Tomēr, izmantojot programmā Excel iebūvēto Visual Basic for Applications, varat izmantot kodu, lai liktu tekstam mainīt krāsu katrā sadaļā, radot mirgojošu efektu.
1. darbība
Atveriet Microsoft Excel 2010 failu, kurā vēlaties likt tekstam mirgot. Nospiediet "Alt" un "F11", lai atvērtu VBA konsoli.
Dienas video
2. darbība
Ar peles labo pogu noklikšķiniet uz ieraksta "ThisWorkbook" VBA konsoles kreisajā pusē. Novietojiet kursoru virs "Ievietot" un izvēlieties "Modulis".
3. darbība
Veiciet dubultklikšķi uz opcijas "ThisWorkbook". Nokopējiet šo kodu un ielīmējiet to baltajā vietā ekrāna labajā pusē:
Private Sub Workbook_Open() Blink End Sub
Private Sub Workbook_BeforeClose (Atcelt kā Būla) NoBlink End Sub
Šis kods sāksies un mirgo teksts, kad atvērsit šo darbgrāmatu, un pārtrauks mirgojošo tekstu aizverot darbgrāmatu, ievadiet kodu, lai norādītu programmai Excel, kas patiesībā ir Blink un NoBlink nozīmē.
4. darbība
Ekrāna kreisajā pusē esošajā sarakstā veiciet dubultklikšķi uz "Moduļa 1". Novietojiet kursoru ekrāna labajā pusē un ievadiet šo rindiņu:
Publiskā laika skaitīšana kā dubultā
Tādējādi tiek izveidots mainīgais ar nosaukumu "Timecount", ko varat izmantot katrā apakšprogrammā.
5. darbība
Nospiediet enter, lai pārvietotu kursoru uz nākamo rindiņu un ievadiet šādu kodu:
Apakšblink() Izmantojot šo darbgrāmatu. Worksheets("Sheet1").Diapazons("A1:A10").Fonts Ja .ColorIndex = 3 Tad .ColorIndex = 2 Citādi .ColorIndex = 3 Beigas, ja beigas With Timecount = Tagad + TimeSerial (0, 0, 1) Lietojumprogramma. OnTime Timecount, "Mirkšķināšana", True End Sub
Tādējādi tiek izveidota apakšprogramma ar nosaukumu "Mirkšķināšana", kas liks mirgot visam tekstam noteiktajā diapazonā. Varat mainīt diapazonu no "A1:A10" uz jebkuru vēlamo diapazonu, tostarp atsevišķu šūnu.
6. darbība
Nospiediet "Enter", lai piekļūtu nākamajai rindai, un ievadiet šādu kodu:
Sub noblink() Šī darbgrāmata. Darblapas("Sheet1").Diapazons("A1:A10").Fonts. ColorIndex = _ xlColorIndexAutomātiska lietojumprogramma. OnTime Timecount, "Mirkšķināšana", Viltus beigu apakšpunkts
Tādējādi tiks izveidota apakšprogramma, kas darbosies, aizverot darbgrāmatu. Tas pārvērš visu tekstu atpakaļ melnā krāsā, lai kāds, kurš atver darbgrāmatu bez iespējotiem makro, nejauši neko neredzētu tekstlodziņos.
7. darbība
Aizveriet VBA konsoli, augšējā labajā stūrī noklikšķinot uz "X". Noklikšķiniet uz cilnes "Fails" ekrāna augšdaļā un izvēlieties "Saglabāt kā". Nolaižamajā laukā atlasiet "Excel Macro darbgrāmata" un ierakstiet darbgrāmatas nosaukumu. Noklikšķiniet uz "Saglabāt".
8. darbība
Aizveriet Excel failu un pēc tam atveriet to vēlreiz. Jūsu teksts makro noteiktajā diapazonā sāks mirgot. Atkarībā no drošības iestatījumiem, iespējams, būs jānoklikšķina uz pogas Iespējot makro ekrāna augšdaļā, lai redzētu mirgojošo tekstu.
