Excel har ikke blinkende eller blinkende tekst som skrifttype. Ved at bruge Excels indbyggede Visual Basic for Applications kan du dog bruge kode til at få tekst til at skifte farve hver sektion, hvilket skaber en blinkende effekt.
Trin 1
Åbn Microsoft Excel 2010-filen, hvor du vil få teksten til at blinke. Tryk på "Alt" og "F11" for at åbne VBA-konsollen.
Dagens video
Trin 2
Højreklik på "ThisWorkbook"-indgangen i venstre side af VBA-konsollen. Flyt musen over "Indsæt" og vælg "Modul".
Trin 3
Dobbeltklik på indstillingen "ThisWorkbook". Kopiér følgende kode og indsæt den i det hvide rum på højre side af skærmen:
Private Sub Workbook_Open() Blink End Sub
Private Sub Workbook_BeforeClose (Annuller som Boolean) NoBlink End Sub
Denne kode starter og den blinkende tekst, når du åbner denne projektmappe, og stopper den blinkende tekst når du lukker projektmappen, når du indsætter koden for at fortælle Excel, hvad Blink og NoBlink faktisk betyde.
Trin 4
Dobbeltklik på "Modul 1" fra listen i venstre side af skærmen. Placer din markør på højre side af skærmen og indtast følgende linje:
Offentlig tid tæller som dobbelt
Dette skaber en variabel kaldet "Timecount", som du kan bruge i hver underrutine.
Trin 5
Tryk på Enter for at flytte markøren til næste linje og indtast 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 skaber en underrutine kaldet "Blink", som vil få al teksten inden for det definerede område til at blinke. Du kan ændre området fra "A1:A10" til det område, du ønsker, inklusive en individuel celle.
Trin 6
Tryk på "Enter" for at få adgang til næste linje og indtast følgende kode:
Sub noblink() ThisWorkbook. Arbejdsark("Ark1").Range("A1:A10").Skrifttype. ColorIndex = _ xlColorIndexAutomatisk applikation. OnTime Timecount, "Blink", False End Sub
Dette vil oprette en underrutine, der kører, når du lukker projektmappen. Det gør al teksten tilbage til sort, så en person, der åbner projektmappen uden makroer aktiveret, ikke ved et uheld vil se noget i tekstboksene.
Trin 7
Luk VBA-konsollen ved at klikke på "X" i øverste højre hjørne. Klik på fanen "Filer" øverst på skærmen og vælg "Gem som". Vælg "Excel Macro-enabled Workbook" fra rullemenuen, og skriv et navn til projektmappen. Klik på "Gem".
Trin 8
Luk Excel-filen, og åbn den derefter igen. Din tekst, inden for det område, der er defineret i makroen, begynder at blinke. Afhængigt af dine sikkerhedsindstillinger skal du muligvis klikke på knappen "Aktiver makroer" øverst på skærmen for at se den blinkende tekst.