Comment faire clignoter la cellule en rouge dans Excel?
En général, nous mettons en évidence les cellules avec des arrière-plans différents pour les distinguer des autres, mais ici, dans cet article, je présente un code VBA pouvant faire clignoter les cellules spécifiques avec un fond rouge pour les rendre exceptionnelles dans Excel.
Faire clignoter la cellule en rouge avec VBA
Faire clignoter la cellule en rouge avec VBA
Pour faire clignoter les cellules pour attirer l'attention des utilisateurs, voici un code VBA.
1. Activez la feuille dont vous souhaitez faire clignoter les cellules et appuyez sur Alt + F11 clés pour ouvrir Microsoft Visual Basic pour applications fenêtre.
2. Cliquez insérer > Module, puis collez sous le code VBA dans le Module scénario. Voir la capture d'écran:
VBA: faire clignoter la cellule en rouge
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. presse F5 clé, et un Kutools for Excel La boîte de dialogue apparaît pour sélectionner les cellules que vous souhaitez créer en flash, voir capture d'écran:
4. Cliquez OK. Maintenant, la cellule sélectionnée a été flash avec un fond rouge.
Conseils:
(1) Dans le code VBA, vous pouvez changer la couleur de fond (xCouleur = 3), vitesse de clignotement (xSpeed = 0.6) et les temps de clignotement (À faire jusqu'à ce que xCount = 20) comme tu veux.
(2) Ce code VBA n'ajoutera pas d'arrière-plan flash à la sélection vide.
(3) Cet arrière-plan flash sera automatiquement supprimé une fois les temps vides terminés.
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
