Wie kann man Zellen in Excel rot blinken lassen?
Im Allgemeinen werden die Zellen mit unterschiedlichen Hintergründen hervorgehoben, um sie von anderen zu unterscheiden. In diesem Artikel stelle ich jedoch einen VBA-Code vor, mit dem die spezifischen Zellen mit rotem Hintergrund in Excel auffällig blinken können.
Lassen Sie die Zelle mit VBA rot blinken
Lassen Sie die Zelle mit VBA rot blinken
Hier ist ein VBA-Code, damit Zellen blinken, um die Aufmerksamkeit der Benutzer auf sich zu ziehen.
1. Aktivieren Sie das Blatt, für das Sie Zellen blinken möchten, und drücken Sie Alt + F11 Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > Modulund fügen Sie dann den folgenden VBA-Code in das ein Modul Skript. Siehe Screenshot:
VBA: Zelle blinken lassen
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. Drücken Sie F5 Schlüssel und a Kutools for Excel Das Dialogfeld zur Auswahl der Zellen, die Sie blinken lassen möchten, wird angezeigt. Siehe Screenshot:
4 Klicken OK. Jetzt blinkt die ausgewählte Zelle mit rotem Hintergrund.
Tipps:
(1) Im VBA-Code können Sie die Hintergrundfarbe ändern (xFarbe = 3), Blinkgeschwindigkeit (xSpeed = 0.6) und blink mal (Bis xCount = 20) wie du willst.
(2) Dieser VBA-Code fügt der leeren Auswahl keinen Flash-Hintergrund hinzu.
(3) Dieser Flash-Hintergrund wird nach Ablauf der Leerzeiten automatisch entfernt.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!