Blinkande text kan dra ögat till en viss kalkylblad eller cellområde , och varna användaren för viktig information . Även om du kan ändra texten till många färger och teckensnitt i Microsoft Excel , har programmet inte en inbyggd funktion som gör att texten blinkar . Med Visual Basic for Applications ( VBA ) , men du kan skräddarsy Excel för att passa dina behov - och det inkluderar att skapa ett programmeringsspråk modul som gör texten blinkar . Instruktioner
1
Öppna Visual Basic Editor genom att trycka på " Alt " och " F11 " tillsammans .
2
Klicka på " Infoga " och klicka sedan på " Ny modul . "
3
Kopiera och klistra in följande kod i den tomma modulfönstret :
Public RunWhen Som Double
Sub StartBlink ( ) katalog
med ThisWorkbook.Worksheets ( " Blad1 " ) . Range ( " A1 " ) . Font
p Om . ColorIndex = 3 Then ' Red Text
. ColorIndex = 2 ' White Text
Else
. ColorIndex = 3 ' Red Text
End If
End With
RunWhen = nu + TimeSerial ( 0,0,1 )
Application.OnTime RunWhen , " ' " & ThisWorkbook.Name & " ' ! StartBlink " , , Sant
End Sub
Sub StopBlink ( ) katalog
ThisWorkbook.Worksheets ( " Blad1 " ) . Range ( " A1 " ) . Font.ColorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen , " ' " & ThisWorkbook.Name & " ' ! StartBlink " , , False
End Sub
4
Ändra den tredje raden i koden till den aktuella arket nummer och mobilnummer du vill att blinka . Cellen -adress kan vara ett intervall. Till exempel , för att göra cellerna B1 till B10 blink , ersätt " A1 " med " B1 : . B10 "
5
Klicka " Denna arbetsbok " i listan i den vänstra sidofältet
6
Klipp och klistra in följande kod i den tomma modulfönstret :
Private Sub Workbook_Open ( ) katalog
StartBlink
End Sub
Privat sub Workbook_BeforeClose ( Cancel As Boolean ) katalog
StopBlink
End sub
7
Tryck " F5 " för att köra rutinen .
