Hoe laat u tekst in een opgegeven cel knipperen of flikkeren in Excel?
Om een bepaalde cel extra opvallend te maken in uw werkblad, wat dacht u van knipperende tekst in die cel? In dit artikel leest u hoe u de tekst in een opgegeven cel in Excel kunt laten knipperen.
Tekst van opgegeven cel laten knipperen of flikkeren met VBA-code
Tekst van opgegeven cel laten knipperen of flikkeren met VBA-code
Voer de volgende stappen uit om de tekst in een opgegeven cel in Excel te laten knipperen.
1. Druk tegelijkertijd op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module. Kopieer en plak vervolgens de volgende code in het codovenster.
VBA-code: Tekst van opgegeven cel laten knipperen in Excel
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 SubOpmerking: In deze VBA-code geven Blad2 en A1 aan dat de tekst in cel A1 van Blad2 zal knipperen in het huidige werkboek.
3. Druk tegelijkertijd op de toetsen Alt+Q om het venster Microsoft Visual Basic for Applications te sluiten.
U hebt nu een knop nodig om het knipperen te starten en te stoppen.
4. Klik op Ontwikkelaar > Invoegen > Knop (formulierbesturingselement). Zie de schermafbeelding:
5. Teken een knop in uw werkblad. Er verschijnt dan het dialoogvenster Macro toewijzen. Klik op StartBlink in het vak Macronaam en klik vervolgens op de knop OK. Zie de schermafbeelding:
6. Klik met de rechtermuisknop op de ingevoegde knop en selecteer Tekst bewerken in het contextmenu. Wijzig de knoptekst daarna naar de gewenste tekst, bijvoorbeeld Start / Stop Knipperen.
Vanaf nu knippert de tekst in cel A1 zodra u op de knop klikt. Klikt u nogmaals, dan stopt de tekst in cel A1 met knipperen.
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins