Excel ikke funktionen blinkende eller blinkende tekst som en skrifttype mulighed. Brug Excels indbyggede Visual Basic for Applications , men du kan bruge koden til at gøre tekst skifter farve hvert afsnit , hvilket skaber en blinkende effekt. Instruktioner
1
Åbn Microsoft Excel 2010 -fil , som du ønsker at gøre teksten flash. Tryk på " Alt" og " F11 " for at åbne op for VBA -konsollen.
2
Højreklik på " ThisWorkbook " indgang på venstre side af VBA -konsollen. Bevæg musen over "Indsæt" og vælg " Modul ".
3
Dobbeltklik på " ThisWorkbook " valgmulighed. Kopier nedenstående kode og indsæt den på det hvide område på højre side af skærmen : Hej
Private Sub Workbook_Open ()
Blink
End Sub
< p > Private Sub Workbook_BeforeClose ( Cancel Som Boolean )
NoBlink
End Sub
denne kode vil starte og den blinkende tekst , når du åbner denne projektmappe , og stoppe den blinkende tekst, når du lukker projektmappen , når du indsætter koden til at fortælle Excel , hvad Blink og NoBlink rent faktisk betyder.
4
Dobbeltklik på " Modul 1 " fra listen på venstre side af skærmen . Placer markøren på højre side af skærmen og indtaste følgende linje: .
Public Timecount Som Double
Dette skaber en variabel kaldet " Timecount ", som du kan bruge i hvert underprogram < br >
5
Tryk på Enter for at flytte markøren til den næste linje og indtaste følgende kode : Hej
Sub blink ()
ThisWorkbook.Worksheets ( " Ark1 "). Range (" A1: A10 " ) . . . . Font
p Hvis ColorIndex = 3 Så
ColorIndex = 2
Else
ColorIndex = 3 < br >
End If
End With
Timecount = Now + TimeSerial ( 0, 0, 1)
Application.OnTime Timecount " Blink " , Sand
End Sub
Dette skaber en subrutine kaldet " Blink ", som vil medføre al tekst inden for det definerede interval at blinke. Du kan ændre intervallet fra . "A1 : A10 " til uanset interval du ønsker, herunder en enkelt celle
6
Tryk på " Enter" for at gå til det næste linje og indtaste følgende kode : Hej
Sub noblink ()
ThisWorkbook.Worksheets ( " Ark1 " ) Range (" A1: A10 " ) . . Font.ColorIndex = _
xlColorIndexAutomatic
Application . OnTime Timecount " Blink " , False nær
End Sub
Dette vil skabe en subrutine , der vil køre , når du lukker projektmappen. Det viser al teksten tilbage til sort, så en person, der åbner projektmappe uden aktiveret makroer ikke ved et uheld ser intet i tekstbokse.
7
Luk VBA -konsollen ved at klikke på "X" i øverste højre hjørne. Klik på " File" -fanen øverst på skærmen og vælge "Gem som." Vælg " Excel Macro -aktiveret projektmappe " fra drop -down felt og skriv et navn til projektmappen. Klik på " Gem".
8
Luk Excel-fil og derefter åbne den igen. Din tekst , inden for det område er defineret i makroen , start vil at blinke . Afhængigt af dine sikkerhedsindstillinger , skal du klikke på "Aktiver makroer" knappen i toppen af skærmen for at se den blinkende tekst.