Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment rendre une forme clignotante ou clignotante encore et encore dans Excel?

Si vous voulez faire clignoter une forme encore et encore dans une feuille de calcul, une méthode de cet article peut vous aider.

Rendre une forme clignotante encore et encore avec le code VBA


Rendre une forme clignotante encore et encore avec le code VBA


Dans la feuille de calcul, pour faire clignoter une forme, veuillez procéder comme suit.

1. appuie sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module. Ensuite, copiez et collez le code VBA dans la fenêtre Code.

Code VBA: Rendre une forme clignotante encore et encore dans la feuille de calcul

Dim NextTime As Date
Dim xColor As Long
Sub Flash()
    NextTime = Now + TimeValue("00:00:01")
    With ActiveSheet.Shapes("new").Fill.ForeColor
        If xColor = 0 Then
            xColor = .SchemeColor
        End If
         .SchemeColor = Int(Rnd() * 55 + 1)
    End With
    Application.OnTime NextTime, "Flash"
End Sub

Sub StopIt()
    Application.OnTime NextTime, "Flash", schedule:=False
    ActiveSheet.Shapes("new").Fill.ForeColor.SchemeColor = xColor
    xColor = 0
End Sub

Remarques:

1). dans le code, Neuf (ve) est le nom de la forme que vous allez faire clignoter. Veuillez le changer pour le vôtre.

2). 00: 00: 01 signifie que la forme va clignoter chaque seconde.

3. appuie sur le autre + Q touches ensemble pour quitter le Microsoft Visual Basic pour applications fenêtre.

4. Insérer un bouton dans la feuille de calcul en cliquant Développeur > insérer > Bouton (contrôle de formulaire) comme ci-dessous capture d'écran montré.

5. Dans le popping up Assigner une macro boîte de dialogue, sélectionnez Flash le Nom de la macro boîte, puis cliquez sur le OK .

6. Changez ensuite le texte d'affichage sur le bouton selon vos besoins. Dans ce cas, je change le texte d'affichage pour commencer à clignoter comme ci-dessous capture d'écran montré.

7. Répétez les étapes 4 et 5 ci-dessus pour insérer un nouveau bouton et affecter le Arrête ça macro à ce bouton.

8. Changez le texte d'affichage de ce nouveau bouton.

Ensuite, vous pouvez voir deux boutons assignant avec différentes macros sont insérés dans la feuille de calcul. Voir la capture d'écran:

À partir de maintenant, lorsque vous cliquez sur le bouton Démarrer clignotant, la forme commence à clignoter avec des couleurs différentes. Si vous souhaitez arrêter le flash, cliquez sur le bouton Arrêter de clignoter.


Article connexe:



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.