|
Excel ne dispose pas de clignotant ou clignotant texte comme une option de police . Utilisation d'Excel intégré dans Visual Basic pour applications, cependant, vous pouvez utiliser le code pour rendre le texte change de couleur à chaque section , créant un effet de clignotement . Instructions
1 Ouvrez le fichier Microsoft Excel 2010 dans laquelle vous voulez faire le flash de texte. Appuyez sur " Alt" et " F11 " pour ouvrir la console VBA.
2 un clic 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 ".
3 Double -cliquez sur l' option " ThisWorkbook " . Copiez le code suivant et collez-le dans l'espace blanc sur le côté droit de l'écran :
Private Sub Workbook_Open ()
Blink
End Sub
Private Sub Workbook_BeforeClose ( Cancel As Boolean)
noblink
End Sub
ce code va commencer et le texte clignote lorsque vous ouvrez ce classeur, et arrêter le texte clignote lorsque vous fermez le classeur , une fois que vous insérez le code pour indiquer à Excel ce qui clignotent et noblink signifie réellement .
4 Double -cliquez sur " Module 1 " de 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: .
Timecount publique en tant que double
Cela crée une variable appelée « Timecount " que vous pouvez utiliser dans chaque sous-programme < br >
5 enter pour déplacer le curseur à la ligne suivante et entrez le code suivant :
Sous blink ()
ThisWorkbook.Worksheets ( "Sheet1" ) . Range (" A1: A10" ) . Font
Si ColorIndex = 3 = 3 ColorIndex Puis
ColorIndex = 2
Else
< . . . br> End If End With
Timecount = Now + TimeSerial ( 0, 0, 1)
Timecount de Application.OnTime , " Blink ", vrai Photos End Sub
Cela crée un sous-programme appelé «Blink» qui fera tout le texte dans la plage définie à clignoter. Vous pouvez modifier l'ordre de . " A1: A10" à tout ce que vous désirez gamme , y compris une cellule individuelle
6 Appuyez sur " Entrée" pour accéder à la ligne suivante et entrez le code suivant :
Sous noblink ()
ThisWorkbook.Worksheets ( "Sheet1" ) Range ("A1 : A10" ) . Font.ColorIndex = _
xlColorIndexAutomatic
application . . OnTime Timecount , " Blink ", False
End Sub
Cela va créer un sous-programme qui sera exécuté lorsque vous fermez le classeur . Il s'avère tout le texte Back to Black , de sorte que quelqu'un qui ouvre le classeur sans macros activées ne sera pas accidentellement voir rien dans les zones de texte.
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 Macro - Enabled" dans le champ déroulant et tapez un nom pour le classeur. Cliquez sur " Enregistrer".
8 fermez le fichier Excel, puis rouvrez-le . Votre texte , dans l'intervalle défini dans la macro , se met à clignoter . Selon vos paramètres de sécurité, vous devrez cliquer sur le bouton « Activer les macros » en haut de l'écran pour voir le texte clignotant .
|
