Hoe laat u een cel rood knipperen in Excel?
Over het algemeen markeren we cellen met verschillende achtergronden om ze te onderscheiden van de rest. In dit artikel introduceer ik echter een VBA-code waarmee specifieke cellen knipperen met een rode achtergrond, zodat ze direct opvallen in Excel.
Laat een cel rood knipperen met VBA
Laat een cel rood knipperen met VBA
Om de aandacht van gebruikers te trekken, laat cellen knipperen met deze VBA-code.
1. Activeer het werkblad waarop u cellen wilt laten knipperen en druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak vervolgens de onderstaande VBA-code in het Module-script. Zie de schermafbeelding:
VBA: Laat een cel rood knipperen
Private Sub Flash_Cells()
'UpdatebyExtendoffice20160614
Dim xColor As Integer
Dim xCount As Integer
Dim xSpeed As Double
Dim xStart As Double
Dim xDelay As Double
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select cells", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value > 4 Then
xColor = 3
xSpeed = 0.6
Do Until xCount = 20
DoEvents
xStart = Timer
xDelay = xStart + xSpeed
Do Until Timer > xDelay
DoEvents
xRg.Interior.ColorIndex = xColor
Loop
xStart = Timer
xDelay = xStart + xSpeed
Do Until Timer > xDelay
DoEvents
xRg.Interior.ColorIndex = xlNone
Loop
xCount = xCount + 1
Loop
End If
Next
End Sub
3. Druk op F5 en er verschijnt een Kutools voor Excel-dialoogvenster waarin u de cellen kunt selecteren die u wilt laten knipperen. Zie de schermafbeelding:
4. Klik op OK. De geselecteerde cel knippert nu met een rode achtergrond.
Tips:
(1) In de VBA-code kunt u de achtergrondkleur (xColor = 3), de knippersnelheid (xSpeed = 0,6) en het aantal keren dat geknipperd wordt (Do Until xCount = 20) naar wens aanpassen.
(2) Deze VBA-code zorgt niet voor een knipperende achtergrond bij een lege selectie.
(3) Deze knipperende achtergrond verdwijnt automatisch zodra het ingestelde aantal knipperingen is bereikt.
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