Excel komt niet knipperen of knipperende tekst als een optie van de doopvont. Met Excel's ingebouwde Visual Basic for Applications, echter, kunt u code te maken tekst kleur wijzigen elk deel, creëren van een knipperend effect.
Open het Microsoft Excel 2010-bestand waarin u wilt de tekst flash te maken. Druk op "Alt" en "F11" om het openstellen van de VBA-console.
Met de rechtermuisknop op de vermelding 'ThisWorkbook' aan de linkerkant van de VBA-console. Beweeg de muis over "Invoegen" en kies "Module."
Dubbelklik op de optie 'ThisWorkbook'. Kopieer de volgende code en plak deze in de witruimte aan de rechterkant van het scherm:
Private Sub Workbook_Open()
Blink
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
NoBlink
End Sub
Deze code zal beginnen en de knipperende tekst wanneer u deze werkmap opent, en stoppen van de knipperende tekst wanneer u de werkmap sluit, zodra u de code om te vertellen van Excel wat Blink invoegen en NoBlink eigenlijk betekenen.
Dubbelklik op "Module 1" in de lijst aan de linkerkant van het scherm. Plaats de cursor op de rechterkant van het scherm en voer de volgende regel:
Openbare Timecount als Double
Hiermee maakt u een variabele met de naam "Timecount" die u in elke subroutine gebruiken kunt.
Druk op enter om de cursor naar de volgende regel en voeg de volgende code:
Sub blink()
Met ThisWorkbook.Worksheets("Sheet1"). Range("a1:A10"). Lettertype
If .ColorIndex = 3 Then .ColorIndex = 2 Else .ColorIndex = 3 End If End With
Timecount = nu + TimeSerial (0, 0, 1)
Application.OnTime Timecount, "Blink", True
End Sub
Hiermee maakt u een subroutine genaamd "Blink" die ervoor zorgen alle tekst binnen het gedefinieerde bereik dat zal te knipperen. U kunt het bereik van "A1: A10" tot wat u, met inbegrip van een afzonderlijke cel wenst bereik wijzigen.
Druk op "Enter" om toegang tot de volgende regel en voer de volgende code:
Sub noblink()
ThisWorkbook.Worksheets("Sheet1"). Range("a1:A10"). Font.ColorIndex = _
xlColorIndexAutomatic
Application.OnTime Timecount, "Blink", False
End Sub
Hiermee maakt u een subroutine die wordt uitgevoerd als u de werkmap sluit. Het blijkt alle tekst terug naar zwart, zodat iemand die de werkmap zonder macro's ingeschakeld opent niet per ongeluk niets in de tekstvakken zien zal.
Sluit de VBA-console door te klikken op de 'X' in de rechterbovenhoek. Klik op het "bestand" tab aan de bovenkant van het scherm en kies "Save as." Selecteer "Excel-werkmap met ingeschakelde Macro" uit het drop-down veld en typ een naam voor de werkmap. Klik op "Opslaan".
Sluit het Excel-bestand en open het. Uw tekst, binnen het bereik dat is gedefinieerd in de macro zal beginnen te knipperen. Afhankelijk van uw beveiligingsinstellingen, moet u wellicht de "' macro's inschakelen klikken bij de bovenkant van het scherm de knipperende tekst te zien.