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 ajouter des symboles tick et croisés dans la liste déroulante dans Excel?

Normalement, après avoir inséré des symboles de croix et de croix dans les cellules avec la fonction de symbole, puis créé des listes déroulantes avec eux comme source de données, les résultats seront affichés sous la forme ü ou û dans les cellules déroulantes. Comment afficher le ✓ réel et des symboles dans les cellules après avoir sélectionné des éléments dans la liste déroulante? La méthode VBA ci-dessous aidera à créer une liste déroulante de tick et de croix dans Excel.

Ajouter une croix et des symboles croisés dans la liste déroulante avec le code VBA


Ajouter une croix et des symboles croisés dans la liste déroulante avec le code VBA


Avec le code VBA ci-dessous, vous pouvez insérer des listes déroulantes et des listes déroulantes dans des cellules spécifiées dans Excel. S'il vous plaît faire comme suit.

1. Dans la feuille de calcul, vous allez créer des listes déroulantes de symboles de tiques et de croix, faites un clic droit sur l'onglet de la feuille et sélectionnez Voir le code dans le menu contextuel.

2. Puis le Microsoft Visual Basic pour applications la fenêtre s'ouvre, veuillez copier le code VBA ci-dessous dans la fenêtre de code.

Code VBA 1: Ajouter une croix et des symboles croisés dans la liste déroulante

Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180703
    If Intersect(Target, Range("B1:B10")) Is Nothing Then Exit Sub
    If Target.Value = "Tick" Then
        Target.Value = "P"
    ElseIf Target.Value = "Cross" Then
        Target.Value = "S"
    End If
End Sub

3. Aller en cliquant insérer > Module, puis copiez le code 2 suivant dans la fenêtre Module.

Code VBA 2: Ajouter une croix et des symboles croisés dans la liste déroulante

Sub usingSymbols()
'Update by Extendoffice 20180703
    Dim xRg As Range
    Set xRg = Range("B1:B10")
    xRg.Font.Name = "Wingdings 2"
    xRg.Validation.Add xlValidateList, , , "Tick,Cross"
End Sub

Note: Dans le code ci-dessus, B1: B10 est la plage de cellules que vous allez créer une liste déroulante de tick et de croix. Veuillez changer la gamme selon vos besoins.

4. appuie sur le F5 clé pour exécuter le code.

Les listes déroulantes des symboles de graduation et de croix sont maintenant insérées dans la plage B1: B10. Sélectionnez Cochez dans la liste déroulante pour insérer ✓ dans la cellule et sélectionnez Croix pour afficher symbole. Voir la capture d'écran:


Articles Liés:



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.