Excel heeft geen knipperende of knipperende tekst als lettertypeoptie. Als u Excel's ingebouwde Visual Basic for Applications gebruikt, kunt u echter code gebruiken om tekst in elke sectie van kleur te laten veranderen, waardoor een knipperend effect ontstaat.
Stap 1
Open het Microsoft Excel 2010-bestand waarin u de tekst wilt laten knipperen. Druk op "Alt" en "F11" om de VBA-console te openen.
Video van de dag
Stap 2
Klik met de rechtermuisknop op het item "ThisWorkbook" aan de linkerkant van de VBA-console. Beweeg je muis over "Invoegen" en kies "Module".
Stap 3
Dubbelklik op de optie "ThisWorkbook". Kopieer de volgende code en plak deze in de witte ruimte aan de rechterkant van het scherm:
Private Sub Workbook_Open() Blink End Sub
Private Sub Workbook_BeforeClose (Annuleren als Boolean) NoBlink End Sub
Deze code begint en de knipperende tekst wanneer u deze werkmap opent, en stopt de knipperende tekst wanneer u de werkmap sluit, zodra u de code invoegt om Excel te vertellen wat Blink en NoBlink eigenlijk zijn gemeen.
Stap 4
Dubbelklik op "Module 1" in de lijst aan de linkerkant van het scherm. Plaats uw cursor aan de rechterkant van het scherm en voer de volgende regel in:
Openbare tijdtelling als dubbel
Dit creëert een variabele genaamd "Timecount" die u in elke subroutine kunt gebruiken.
Stap 5
Druk op enter om de cursor naar de volgende regel te verplaatsen en voer de volgende code in:
Sub blink() Met ThisWorkbook. Worksheets("Blad1").Range("A1:A10").Font If .ColorIndex = 3 Then .ColorIndex = 2 Else .ColorIndex = 3 End If End With Timecount = Now + TimeSerial (0, 0, 1) Application. OnTime Timecount, "Knipperen", True End Sub
Dit creëert een subroutine genaamd "Blink" die ervoor zorgt dat alle tekst binnen het gedefinieerde bereik gaat knipperen. U kunt het bereik wijzigen van "A1:A10" in elk gewenst bereik, inclusief een afzonderlijke cel.
Stap 6
Druk op "Enter" om naar de volgende regel te gaan en voer de volgende code in:
Sub noblink() ThisWorkbook. Werkbladen ("Blad1"). Bereik ("A1:A10"). Lettertype. ColorIndex = _ xlColorIndexAutomatische toepassing. OnTime Timecount, "Knipperen", False End Sub
Hiermee wordt een subroutine gemaakt die wordt uitgevoerd wanneer u de werkmap sluit. Het maakt alle tekst weer zwart, zodat iemand die de werkmap opent zonder ingeschakelde macro's, niet per ongeluk niets in de tekstvakken ziet.
Stap 7
Sluit de VBA-console door op de "X" in de rechterbovenhoek te klikken. Klik op het tabblad "Bestand" aan de bovenkant van het scherm en kies "Opslaan als". Selecteer "Excel Macro-enabled werkmap" in het vervolgkeuzeveld en typ een naam voor de werkmap. Klik op 'Opslaan'.
Stap 8
Sluit het Excel-bestand en open het opnieuw. Uw tekst, binnen het bereik dat in de macro is gedefinieerd, begint te knipperen. Afhankelijk van uw beveiligingsinstellingen, moet u mogelijk op de knop "Macro's inschakelen" bovenaan het scherm klikken om de knipperende tekst te zien.
