Excel ne propose pas de texte clignotant ou clignotant comme option de police. Cependant, à l'aide de Visual Basic pour applications intégré à Excel, vous pouvez utiliser du code pour que le texte change de couleur à chaque section, créant ainsi un effet clignotant.
Étape 1
Ouvrez le fichier Microsoft Excel 2010 dans lequel vous souhaitez faire clignoter le texte. Appuyez sur "Alt" et "F11" pour ouvrir la console VBA.
Vidéo du jour
Étape 2
Cliquez avec le bouton droit sur l'entrée "ThisWorkbook" sur le côté gauche de la console VBA. Déplacez votre souris sur "Insérer" et choisissez "Module".
Étape 3
Double-cliquez sur l'option "Ce classeur". Copiez le code suivant et collez-le dans l'espace blanc à droite de l'écran :
Sous-titre privé Workbook_Open() Clignotant Fin Sous
Private Sub Workbook_BeforeClose (Annuler en tant que booléen) NoBlink End Sub
Ce code démarrera et le texte clignotant lorsque vous ouvrirez ce classeur et arrêtera le texte clignotant lorsque vous fermez le classeur, une fois que vous avez inséré le code pour indiquer à Excel ce que Blink et NoBlink réellement moyenne.
Étape 4
Double-cliquez sur "Module 1" dans la liste sur le côté gauche de l'écran. Placez votre curseur sur le côté droit de l'écran et entrez la ligne suivante :
Compte de temps public en tant que double
Cela crée une variable appelée "Timecount" que vous pouvez utiliser dans chaque sous-programme.
Étape 5
Appuyez sur Entrée pour déplacer le curseur sur la ligne suivante et entrez le code suivant :
Sub blink() avec ThisWorkbook. Worksheets("Sheet1").Range("A1:A10").Font If .ColorIndex = 3 Then .ColorIndex = 2 Else .ColorIndex = 3 End If End With Timecount = Now + TimeSerial (0, 0, 1) Application. OnTime Timecount, "Blink",, True End Sub
Cela crée un sous-programme appelé "Blink" qui fera clignoter tout le texte dans la plage définie. Vous pouvez modifier la plage de "A1:A10" à la plage de votre choix, y compris une cellule individuelle.
Étape 6
Appuyez sur "Entrée" pour accéder à la ligne suivante et entrez le code suivant :
Sous noblink() ThisWorkbook. Feuilles de calcul("Feuille1").Plage("A1:A10").Font. ColorIndex = _ xlColorIndexApplication automatique. OnTime Timecount, "Blink",, False End Sub
Cela créera un sous-programme qui s'exécutera lorsque vous fermerez le classeur. Tout le texte redevient noir, de sorte que quelqu'un qui ouvre le classeur sans macros activées ne voit rien accidentellement dans les zones de texte.
Étape 7
Fermez la console VBA en cliquant sur le "X" dans le coin supérieur droit. Cliquez sur l'onglet "Fichier" en haut de l'écran et choisissez "Enregistrer sous". Sélectionnez « Classeur Excel prenant en charge les macros » dans le champ déroulant et saisissez un nom pour le classeur. Cliquez sur "Enregistrer".
Étape 8
Fermez le fichier Excel puis rouvrez-le. Votre texte, dans la plage définie dans la macro, commencera à clignoter. Selon vos paramètres de sécurité, vous devrez peut-être cliquer sur le bouton "Activer les macros" en haut de l'écran pour voir le texte clignotant.
