Excel inte har blinkande eller blinkande text som en font alternativet . Använda Excel inbyggda i Visual Basic for Applications , men du kan använda koden för att göra texten ändrar färg varje avsnitt , skapar en blinkande effekt . Instruktioner
1
Öppna Microsoft Excel 2010-fil som du vill göra texten flash . Tryck på " Alt " och " F11 " för att öppna upp VBA -konsolen .
2
Högerklicka på " ThisWorkbook " inträde på vänster sida av VBA -konsolen . Flytta musen över " Infoga " och välj " Modul . " Addera 3
Dubbelklicka på " ThisWorkbook " alternativet . Kopiera följande kod och klistra in den i det vita utrymmet på höger sida av skärmen :
Private Sub Workbook_Open ( ) katalog
Blink
End Sub
Private Sub Workbook_BeforeClose ( Cancel As Boolean ) katalog
noblink
End Sub
denna kod kommer att starta och blinkande text när du öppnar arbetsboken , och stoppa den blinkande text när du stänger arbetsboken , när du sätter in koden för att berätta för Excel vad Blink och noblink egentligen betyder .
4
Dubbelklicka på " modul 1 " från listan på vänster sida av skärmen . Placera markören på höger sida av skärmen och skriv in följande rad : .
Public Timecount Som Double
Detta skapar en variabel som heter " Timecount " som du kan använda i varje subrutin
5
Tryck enter för att flytta markören till nästa rad och skriv in följande kod :
Sub blink ( ) katalog
ThisWorkbook.Worksheets ( " Blad1 " ) . Range ( " A1 : A10 " ) . . . . Font
p Om ColorIndex = 3 Då
ColorIndex = 2 Review
Else
ColorIndex = 3
End If
End With
Timecount = nu + TimeSerial ( 0 , 0 , 1 ) katalog
Application.OnTime Timecount , " Blink " , , Sant
End Sub
Detta skapar en subrutin som heter " Blink " som kommer att orsaka all text inom det angivna intervallet blinka . Du kan ändra intervallet . " A1 : A10 " till vad intervall du önskar , inklusive en enskild cell
6
Tryck " Enter " för att komma till nästa rad och skriv in följande kod :
Sub noblink ( ) katalog
ThisWorkbook.Worksheets ( " Blad1 " ) Range ( " A1 : A10 " ) . . Font.ColorIndex = _
xlColorIndexAutomatic
Application . OnTime Timecount , " Blink " , , False
End Sub
Detta kommer att skapa en subrutin som kommer att köras när du stänger arbetsboken . Det visar all text tillbaka till svart , så att någon som öppnar arbetsboken utan aktiverade makron inte oavsiktligt kommer att se någonting i textrutorna .
7
Stäng VBA -konsolen genom att klicka på " X " i det övre högra hörnet . Klicka på " File " fliken längst upp på skärmen och välj " Spara som . " Välj " Makroaktiverad Excel- arbetsbok " från drop -down fältet och skriv in ett namn för arbetsboken . Klicka på " Spara ".
8
Stäng Excel-filen och sedan öppna den igen . Din text , inom det område som definieras i makrot , börjar blinka . Beroende på dina säkerhetsinställningar kan du behöva klicka på " Aktivera makron " knappen längst upp på skärmen för att se den blinkande text .
