|
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 ()
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.
|
