Excel ikke funksjonen blinkende eller blinkende tekst som en font alternativ. Bruke Excel innebygde i Visual Basic for Applications , men du kan bruke koden til å gjøre teksten skifter farge hver seksjon , lage en blinkende effekt . Instruksjoner
en

Åpne Microsoft Excel 2010-fil som du ønsker å gjøre teksten flash . Trykk " Alt" og " F11 " for å åpne opp VBA -konsollen .
2

Høyreklikk på " ThisWorkbook " entry på venstre side av VBA -konsollen . Beveg musen over "Sett inn" og velg " Module ".
3

Dobbeltklikk på " ThisWorkbook " alternativet. Kopier følgende kode og lim det inn i det hvite området på høyre side av skjermen : en

Private Sub Workbook_Open ( )

Blink

End Sub
< p > Private Sub Workbook_BeforeClose ( Cancel As Boolean )

NoBlink

End Sub

denne koden vil starte og den blinkende teksten når du åpner denne arbeidsboken , og stoppe den blinkende teksten når du lukker arbeidsboken , når du setter inn koden for å fortelle Excel hva Blink og NoBlink faktisk mener.
4

Dobbeltklikk på " modul 1 " fra listen på venstre side av skjermen . Plasser markøren på høyre side av skjermen, og skriv inn følgende linje: .

Public Timecount Som Double

Dette skaper en variabel kalt " Timecount " som du kan bruke i hver subrutine

5

Trykk enter for å flytte markøren til neste linje og skriv inn følgende kode :

Sub blink ( )
p Med ThisWorkbook.Worksheets ( " Ark1 ") . Range (" A1 : A10 ") . . . . Font
p Hvis ColorIndex = 3 Så

ColorIndex = 2

Else

ColorIndex = 3

End If

End With

Timecount = Now + TimeSerial ( 0 , 0 , 1 )

Application.OnTime Timecount , " Blink " , , Sann

End Sub

Dette skaper en subrutine som heter " Blink " som vil føre til all tekst innenfor definert område å blinke. Du kan endre området fra . " A1 : A10 " til hva området du ønsker, inkludert en enkelt celle
6

Trykk på " Enter" for å få tilgang til neste linje og tast inn følgende kode :

Sub noblink ( )

ThisWorkbook.Worksheets ( " Ark1 ") Range ( " A1 : A10 ") . . Font.ColorIndex = _

xlColorIndexAutomatic

Application . OnTime Timecount , " Blink " , , False

End Sub
p Dette vil skape en subrutine som vil kjøre når du lukker arbeidsboken . Det viser all teksten tilbake til svart , slik at noen som åpner arbeidsboken uten makroer aktivert vil ikke tilfeldigvis se noe i tekstboksene .
7

Lukk VBA konsollen ved å klikke på "X" i øverste høyre hjørne . Klikk på " File" -fanen øverst på skjermen og velg "Lagre som ". Velg " Excel Makroaktivert arbeidsbok" fra drop -down -feltet og skriv inn et navn på arbeidsboken. Klikk på " Lagre".
8

Lukk Excel-fil og deretter åpne den . Teksten, innenfor området som er definert i makro, vil begynne å blinke . Avhengig av sikkerhetsinnstillingene , kan det hende du må klikke på "Aktiver makroer "-knappen øverst på skjermen for å se den blinkende teksten.