Hoe kan ik Text Flash in Excel maken

Excel is niet voorzien van knipperende of knipperende tekst als een lettertype optie. Met behulp van Excel ingebouwde Visual Basic for Applications, maar u kunt gebruik maken van de code om tekst te veranderen kleur te maken elk deel, het creëren van een knipperend effect.

instructies

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

2 Klik met de rechtermuisknop "ThisWorkbook" ingang aan de linkerkant van de VBA console. Beweeg uw muis over "Insert" en kies "Module."

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 Zoals Boolean)

NoBlink

end Sub

Deze code wordt gestart en de knipperende tekst wanneer u deze werkmap openen en stoppen met de knipperende tekst wanneer u de werkmap sluit, als je eenmaal de code om Excel te vertellen wat Blink en noblink eigenlijk te voegen.

4 Dubbelklik op "Module 1" uit de lijst aan de linkerkant van het scherm. Plaats uw cursor op de rechterkant van het scherm en voer de volgende regel:

Openbare Timecount As Double

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

5 Druk op Enter om de cursor naar de volgende regel te verplaatsen en voer de volgende code:

Sub knipperen ()

Met ThisWorkbook.Worksheets ( "Sheet1") Range. ( "A1: A10"). Font

If .ColorIndex = 3 Then

.ColorIndex = 2

Anders

.ColorIndex = 3

Stop als

Eindigt met

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

Application.OnTime Timecount, "Blink", True

end Sub

Dit creëert een subroutine genaamd 'Blink' die ervoor zorgt dat alle tekst binnen het gedefinieerde bereik te knipperen. U kunt het bereik te veranderen van "A1: A10" aan wat bereik je wenst, met inbegrip van een individuele cel.

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

Sub noblink ()

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

xlColorIndexAutomatic

Application.OnTime Timecount, "Blink", False

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 zonder macro's ingeschakeld zal niet per ongeluk zien niets in de tekstvakken geopend.

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 Macro-enabled werkmap" uit het veld drop-down en typ een naam voor de werkmap. Klik op 'Opslaan'.

8 Sluit het Excel-bestand en open het dan. Uw tekst, binnen de in het macro bereik, begint te knipperen. Afhankelijk van uw beveiligingsinstellingen, moet u op de "Macro's inschakelen" knop aan de bovenkant van het scherm om de knipperende tekst te zien.