Texte clignotant peut attirer le regard sur une cellule de feuille de calcul particulière , ou une plage de cellules , et avertir l'utilisateur des informations importantes. Bien que vous pouvez changer le texte en plusieurs couleurs et polices dans Microsoft Excel , le programme n'a pas une fonction intégrée qui fait clignoter le texte. Avec Visual Basic pour Applications ( VBA) , cependant, vous pouvez adapter Excel pour répondre à vos besoins - et cela inclut la création d'un module de programmation qui fera clignoter le texte. Instructions
1

Ouvrez Visual Basic Editor en appuyant sur "Alt" et "F11" ensemble.
2

Cliquez sur " Insérer" puis cliquez sur " Nouveau module. "

3

Copiez et collez le code suivant dans la fenêtre de module vide :

RunWhen publique en tant que double

Sous StartBlink ()

avec ThisWorkbook.Worksheets ( "Sheet1" ) . Range (" A1") . Font

. ColorIndex = 3 Then ' Red texte Clip

. ColorIndex = 2' Blanc Banque du texte < p> Else

. ColorIndex = 3 'Red texte Clip

End If End With

RunWhen = Now + TimeSerial ( 0,0,1) Photos

RunWhen de Application.OnTime , " '" & ThisWorkbook.Name & "' ! StartBlink ", vrai

End Sub Sub

StopBlink ()
< p > ThisWorkbook.Worksheets ( "Sheet1" ) . Range (" A1") . Font.ColorIndex = _

xlColorIndexAutomatic

Application.OnTime RunWhen , " '" & ThisWorkbook.Name & "' ! StartBlink ", False

End Sub
4

Changer le troisième ligne du code pour le numéro de feuille réelle et le numéro de cellule que vous voulez à clignoter. L' adresse de la cellule peut être une gamme . Par exemple, pour fabriquer des cellules B1 à B10 blink , remplacer "A1" à " B1: . B10 "
5

Cliquez sur " Ce classeur " de la liste dans la barre latérale gauche
< br . > 6

couper et coller le code suivant dans la fenêtre de module vide :

Private Sub Workbook_Open ()

StartBlink

End Sub

privé sous Workbook_BeforeClose ( Cancel As Boolean)

StopBlink

End Sub
7

Appuyez sur " F5 " pour exécuter la routine.