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 SubOpmerking: 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.
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen