Hoe tekst in een specifieke cel in Excel laten knipperen of flitsen?

Om een bepaalde cel in uw werkblad opvallend te maken, hoe zit het met het laten knipperen van de tekst in deze cel? Dit artikel laat u een methode zien om tekst in een specifieke cel in Excel te laten knipperen.

Tekst in een specifieke cel laten knipperen of flitsen met VBA-code

Tekst in een specifieke cel laten knipperen of flitsen met VBA-code

Volg de volgende stappen om de tekst in een specifieke cel in Excel te laten knipperen.

1. Druk gelijktijdig op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module. Kopieer en plak vervolgens de volgende code in het Code-venster.

VBA-code: Tekst in een specifieke cel in Excel laten knipperen

Sub StartBlink()
'Updated by ExtendOffice 20181010
    Dim xCell As Range
    Dim xTime As Variant
      On Error Resume Next
    Set xCell = Range("Sheet2!A1")
  On Error Resume Next
   
        If xCell.Font.Color = vbRed Then
            xCell.Font.Color = vbWhite
        Else
            xCell.Font.Color = vbRed
        End If
    xTime = Now + TimeSerial(0, 0, 1)
    Application.OnTime xTime, "'" & ThisWorkbook.Name & "'!StartBlink", , True
End Sub

Opmerking: in deze VBA-code geven Sheet2 en A1 aan dat de tekst in cel A1 van Sheet2 zal knipperen in het huidige werkboek.

3. Druk gelijktijdig op Alt + Q om het Microsoft Visual Basic for Applications-venster te sluiten.

Nu hebt u een knop nodig om het knipperen te starten en stoppen.

4. Klik op Ontwikkelaar > Invoegen > Knop (Formulierbesturingselement). Zie screenshot:

5. Teken een knop in uw werkblad, dan verschijnt er een dialoogvenster Macro Toewijzen. Klik op StartBlink in het Macro naam vak, en klik vervolgens op de OK knop. Zie screenshot:

6. Klik met de rechtermuisknop op de ingevoegde knop en klik op Tekst bewerken in het rechtermuisknopmenu. Wijzig vervolgens de tekst van de knop in de tekst die u nodig hebt, zoals Start / Stop Knipperen.

Vanaf nu begint de tekst in cel A1 te knipperen wanneer u op de knop klikt. En wanneer u opnieuw op de knop klikt, stopt de tekst in cel A1 met knipperen.

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!