Open de Microsoft Excel 2010 -bestand waarin u de tekst wilt laten knipperen . Druk op " Alt " en " F11 " om het openstellen van de VBA- console . Kopen van 2

Klik met de rechtermuisknop " ThisWorkbook " binnenkomst aan de linkerkant van de VBA -console . Beweeg de muis over " Insert " en kies " Module . "
3

Dubbelklik op de optie ' ThisWorkbook ' . Kopieer de volgende code en plak het in de witte ruimte aan de rechterkant van het scherm :

Private Sub Workbook_Open ( ) op

Blink

End Sub

> Private Sub Workbook_BeforeClose ( Cancel As Boolean)

noblink

End Sub

deze code zal starten en de knipperende tekst wanneer u deze werkmap opent , en stop de knipperende tekst bij u de werkmap sluit , als je eenmaal de code

Dubbelklik op " Module 1 " 4 plaatst om Excel te vertellen wat Blink en noblink eigenlijk betekenen . uit de lijst aan de linkerkant van het scherm . Plaats de cursor aan de rechterkant van het scherm en voer de volgende regel : .

Public Timecount
As Double

Dit creëert een variabele genaamd " Timecount " die je kan gebruiken in elke subroutine < br >

Press 5 invoeren om de cursor naar de volgende regel en voer de volgende code :

Sub blink
( ) op p Met ThisWorkbook.Worksheets ( " Blad1 " ) . range ( " A1 : A10 " ) . . . . Lettertype

Als ColorIndex = 3 dan

ColorIndex = 2

Else

ColorIndex = 3 < br

End > Als

Einde
Met

Timecount = Now + TimeSerial ( 0 , 0 , 1 )

Application.OnTime Timecount
, " Blink " , , True

End Sub

Dit creëert een subroutine genaamd " Blink " dat zal leiden tot alle tekst binnen het gedefinieerde bereik te knipperen . U kunt het bereik te veranderen van . " A1 : A10 " naar wat bereik je wenst , met inbegrip van een afzonderlijke cel

Press 6 " Enter " om naar de volgende lijn en voer de volgende code :

Sub noblink ( )

ThisWorkbook.Worksheets
( " Blad1 " ) Range ( " A1 : A10 " ) . . Font.ColorIndex = _

xlColorIndexAutomatic

Application
. Ontime Timecount , " Blink " , , Valse

End Sub

Dit zal een subroutine die wordt uitgevoerd wanneer u de werkmap sluit creëren . Het blijkt al de tekst terug naar zwart , zodat iemand die de werkmap opent zonder macro's ingeschakeld zal niet per ongeluk zien niets in de tekstvakken .
7

Sluit de VBA console door te klikken op de "X" in de rechterbovenhoek . Klik op het tabblad " File " aan de bovenkant van het scherm en kies "Opslaan als . " Selecteer " Excel -werkmap met macro ' uit het veld vervolgkeuzelijst en typ een naam voor de werkmap . Klik op 'Opslaan'.
8

Sluit het Excel -bestand en open het opnieuw . Uw tekst, binnen het bereik gedefinieerd in de macro , zal beginnen te knipperen . Afhankelijk van uw beveiligingsinstellingen , moet u klikken op de " Enable Macro's " knop aan de bovenkant van het scherm om de knipperende tekst te zien .