Excel har ikke blinkende eller blinkende tekst som et skriftalternativ. Ved å bruke Excels innebygde Visual Basic for Applications kan du imidlertid bruke kode for å få tekst til å endre farge hver seksjon, og skape en blinkende effekt.
Trinn 1
Åpne Microsoft Excel 2010-filen der du vil få teksten til å blinke. Trykk "Alt" og "F11" for å åpne VBA-konsollen.
Dagens video
Steg 2
Høyreklikk på "ThisWorkbook"-oppføringen på venstre side av VBA-konsollen. Flytt musen over "Sett inn" og velg "Modul".
Trinn 3
Dobbeltklikk på "This Workbook"-alternativet. Kopier følgende kode og lim den inn i det hvite rommet på høyre side av skjermen:
Private Sub Workbook_Open() Blink End Sub
Private Sub Workbook_BeforeClose (Avbryt som boolsk) NoBlink End Sub
Denne koden starter og den blinkende teksten når du åpner denne arbeidsboken, og stopper den blinkende teksten når du lukker arbeidsboken, når du setter inn koden for å fortelle Excel hva Blink og NoBlink faktisk mener.
Trinn 4
Dobbeltklikk "Modul 1" fra listen på venstre side av skjermen. Plasser markøren på høyre side av skjermen og skriv inn følgende linje:
Offentlig tid teller som dobbelt
Dette lager en variabel kalt "Timecount" som du kan bruke i hver subrutine.
Trinn 5
Trykk enter for å flytte markøren til neste linje og skriv inn følgende kode:
Sub blink() Med ThisWorkbook. Worksheets("Sheet1").Range("A1:A10").Font If .ColorIndex = 3 Then .ColorIndex = 2 Else .ColorIndex = 3 End If End With Timecount = Now + TimeSerial (0, 0, 1) Application. OnTime Timecount, "Blink",, True End Sub
Dette skaper en subrutine kalt "Blink" som vil få all teksten innenfor det definerte området til å blinke. Du kan endre området fra "A1:A10" til hvilket område du ønsker, inkludert en individuell celle.
Trinn 6
Trykk "Enter" for å få tilgang til neste linje og skriv inn følgende kode:
Sub noblink() ThisWorkbook. Regneark("Ark1").Range("A1:A10").Skrift. ColorIndex = _ xlColorIndexAutomatisk applikasjon. OnTime Timecount, "Blink",, False End Sub
Dette vil opprette en subrutine som kjøres når du lukker arbeidsboken. Det gjør all teksten tilbake til svart, slik at noen som åpner arbeidsboken uten makroer aktivert, ikke ved et uhell ser ingenting i tekstboksene.
Trinn 7
Lukk VBA-konsollen ved å klikke på "X" øverst til høyre. Klikk på "Fil"-fanen øverst på skjermen og velg "Lagre som". Velg "Excel Macro-enabled Workbook" fra rullegardinfeltet og skriv inn et navn for arbeidsboken. Klikk "Lagre".
Trinn 8
Lukk Excel-filen og åpne den på nytt. Teksten din, innenfor området som er definert i makroen, vil begynne å blinke. Avhengig av sikkerhetsinnstillingene dine, må du kanskje klikke på "Aktiver makroer"-knappen øverst på skjermen for å se den blinkende teksten.
