Knipperende tekst kan het oog te vestigen op een bepaalde spreadsheet cel of reeks cellen , en waarschuwt de gebruiker op belangrijke informatie . Hoewel u kunt de tekst veranderen om vele kleuren en lettertypen in Microsoft Excel , is het programma niet over een ingebouwde functie die tekst knipperen maakt . Met Visual Basic for Applications ( VBA ) , maar u kunt op maat Excel op uw behoeften - en dat omvat het creëren van een programmering module die tekst knipperen zal maken . Instructies
1 Open de Visual Basic Editor door op " Alt " en " F11 " samen . Kopen van 2 Klik op "Invoegen " en vervolgens op " New Module . " < br >
Kopieer 3 en plak de volgende code in het lege module venster : Public ACTIVEREN als de pomp
As Double Sub StartBlink
( ) op met ThisWorkbook.Worksheets ( " Blad1 " ) . Range ( " A1 " ) . Font
Als . ColorIndex = 3 Then ' Red tekst
. ColorIndex = 2 ' Witte tekst
Else
. ColorIndex = 3 ' Rode tekst End
Als End met
ACTIVEREN als de pomp = Now + TimeSerial ( 0,0,1 ) Application.OnTime ACTIVEREN als de pomp
, " ' " & ThisWorkbook.Name & " ' ! StartBlink " , , True End Sub
Sub StopBlink
( ) op ThisWorkbook.Worksheets ( " Blad1 " ) . Range ( " A1 " ) . Font.ColorIndex = _ xlColorIndexAutomatic Application.OnTime ACTIVEREN als de pomp
, " ' " & ThisWorkbook.Name & " ' ! StartBlink " , , Valse End Sub
4
Verander de derde regel van de code om de werkelijke vel nummer en mobiele nummer dat u wilt knipperen . De cel -adres kan een bereik zijn. Bijvoorbeeld , om de cellen B1 maken door B10 knipperen , vervang " A1 " met " B1 : . B10 "
5 Klik " Deze werkmap " uit de lijst in de linker zijbalk
< br . > Cut 6 en plak de volgende code in het lege module venster : Private Sub Workbook_Open
( ) StartBlink End Sub
Prive
sub Workbook_BeforeClose ( Cancel As Boolean) StopBlink End sub
Druk op " F5 "
7 om de routine te voeren .
|
