Hoe de tekst van een opgegeven cel in Excel te laten knipperen of flitsen?
Wilt u een bepaalde cel opvallen in uw werkblad, hoe zit het met het knipperen van de tekst van deze cel? Dit artikel laat zien hoe u de tekst van een opgegeven cel in Excel laat knipperen.
Knipperende of knipperende tekst van de opgegeven cel met VBA-code
Knipperende of knipperende tekst van de opgegeven cel met VBA-code
Ga als volgt te werk om de tekst van een opgegeven cel in Excel te laten knipperen.
1. druk op anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer en plak vervolgens de volgende code in het codevenster.
VBA-code: knipperende tekst van de opgegeven cel 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 Sub
Note: in deze VBA-code geven Sheet2 en A1 aan dat de tekst in cel A1 van Sheet2 knippert in de huidige werkmap.
3. druk de anders + Q toetsen tegelijk om het Microsoft Visual Basic voor toepassingen venster.
Nu heb je een knop nodig om het knipperen te starten en te stoppen.
4. klikken Ontwikkelaar > Invoegen > Knop (formulierbeheer). Zie screenshot:
5. Teken een knop in je werkblad en vervolgens een Wijs macro toe dialoogvenster verschijnt, klik dan StartKnipperen in de Macro naam vak en klik vervolgens op het OK knop. Zie screenshot:
6. Klik met de rechtermuisknop op de ingevoegde knop en klik Tekst bewerken vanuit het rechtsklikmenu. Verander vervolgens de knoptekst in de tekst die je nodig hebt, zoals Start / Stop Knipperen.
Vanaf nu begint bij het klikken op de knop de tekst van cel A1 te knipperen. En als u nogmaals op de knop klikt, stopt de tekst van cel A1 met knipperen.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!