Comment colorer des lignes alternées pour les cellules fusionnées dans Excel ?
Il est très utile de formater des lignes alternées avec une couleur différente dans une grande quantité de données pour que nous analysions les données, mais, parfois, il peut y avoir des cellules fusionnées dans vos données. Pour mettre en surbrillance les lignes en alternance avec une couleur différente pour les cellules fusionnées, comme illustré ci-dessous, comment pourriez-vous résoudre ce problème dans Excel ?
Couleur des lignes alternatives pour les cellules fusionnées avec le formatage conditionnel
Couleur des lignes alternatives pour les cellules fusionnées avec le code VBA
Couleur des lignes alternatives pour les cellules fusionnées avec le formatage conditionnel
Dans Excel, la puissante fonctionnalité-Mise en forme conditionnelle peut vous aider à accomplir cette tâche le plus rapidement possible, veuillez suivre les étapes suivantes :
1. Sélectionnez la plage de données qui contient les cellules fusionnées que vous souhaitez colorer alternativement, puis cliquez sur Accueil > Mise en forme conditionnelle > Nouvelle règle, voir capture d'écran:
2. Dans le sauté Nouvelle règle de formatage boîte de dialogue, effectuez les opérations suivantes:
- Sélectionnez Utilisez une formule pour déterminer les cellules à formater Option de Sélectionnez un type de règle zone de liste;
- Et puis entrez cette formule: =MOD(COUNTA($A$2:$A2),2)=0 into the Formater les valeurs où cette formule est vraie zone de texte.
- Notes: A2 est la première cellule de votre plage de données.
3. Puis clique Format bouton pour aller à la Format de cellule boite de dialogue. Sous le Niveau de remplissage onglet, choisissez une couleur avec laquelle vous souhaitez mettre en surbrillance les lignes, voir capture d'écran :
4Cliquez sur OK > OK pour fermer les boîtes de dialogue, et les lignes avec les cellules fusionnées sont remplies avec la couleur que vous avez spécifiée, voir capture d'écran :
5. Continuez à cliquer Accueil > Mise en forme conditionnelle > Nouvelle règle ouvrir le Nouvelle règle de formatage boîte de dialogue, effectuez les opérations suivantes:
- Sélectionnez Utilisez une formule pour déterminer les cellules à formater Option de Sélectionnez un type de règle zone de liste;
- Et puis entrez cette formule: =MOD(COUNTA($A$2:$A2),2)=1 into the Formater les valeurs où cette formule est vraie zone de texte.
- Puis clique Format pour choisir une autre couleur que vous souhaitez mettre en surbrillance les lignes.
- Notes: A2 est la première cellule de votre plage de données.
6. Et puis, cliquez OK > OK pour fermer les boîtes de dialogue, et maintenant, vous pouvez voir que la plage de données sélectionnée a été ombrée avec deux couleurs différentes alternativement en fonction des cellules fusionnées comme illustré ci-dessous :
Couleur des lignes alternatives pour les cellules fusionnées avec le code VBA
À l'exception de la mise en forme conditionnelle normale, vous pouvez également utiliser un code VBA pour appliquer facilement des couleurs de ligne alternatives pour les cellules fusionnées.
1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. Puis clique insérer > Moduleet collez le code suivant dans le Module fenêtre.
Code VBA : couleur des lignes alternatives pour les cellules fusionnées
Sub Kutools_AlternateColor()
'Update by ExtendOffice
Dim xRg As Range
Dim xCRg As Range
Dim xIRg As Range
Dim xC1, xC2 As Integer
Dim xR1 As Integer
Dim xCnt As Long
Dim xLColor, xDCR1, xDCR2 As Long
Set xRg = Application.InputBox("Please select the data range:", "KutoolsforExcel", "", Type:=8)
If TypeName(xRg) = "Nothing" Then Exit Sub
Set xCRg = Application.InputBox("Please select the column with the merged cells:", "KutoolsforExcel", "", Type:=8)
If TypeName(xCRg) = "Nothing" Then Exit Sub
Set xIRg = Intersect(xRg, xCRg)
If xIRg Is Nothing Then
MsgBox "the data range doesn't contain merged cells"
Exit Sub
End If
xC1 = xRg.Column
xC2 = xIRg.Column
xR1 = xRg.Row
xLColor = RGB(221, 235, 247)
xDCR1 = RGB(221, 235, 247)
xDCR2 = RGB(250, 232, 222)
xRw = 0
Do
xLColor = xDCR1 + xDCR2 - xLColor
xCnt = Cells(xRw + xR1, xC2).MergeArea.Rows.Count
Cells(xRw + xR1, xC1).Resize(xCnt, xRg.Columns.Count).Interior.Color = xLColor
xRw = xRw + xCnt
Loop While xRw < xRg.Rows.Count - 1
End Sub
3. Puis appuyez F5 clé pour exécuter ce code. Dans la première case qui apparaît, sélectionnez la plage de données que vous souhaitez utiliser, voir capture d'écran :
4. Dans la deuxième boîte de dialogue, sélectionnez la colonne avec les cellules fusionnées, voir capture d'écran :
5. Et puis, cliquez OK bouton, les lignes sont ombrées en alternance en fonction des cellules fusionnées comme illustré ci-dessous :
Articles plus relatifs:
- Filtrer toutes les données associées des cellules fusionnées
- Supposons qu'il existe une colonne de cellules fusionnées dans votre plage de données et que vous devez maintenant filtrer cette colonne avec des cellules fusionnées pour afficher toutes les lignes liées à chaque cellule fusionnée, comme illustré ci-dessous. Dans Excel, la fonctionnalité de filtrage vous permet de filtrer uniquement le premier élément associé aux cellules fusionnées.Dans cet article, je vais parler de la façon de filtrer toutes les données associées à partir des cellules fusionnées dans Excel?
- Copier et coller des cellules fusionnées dans des cellules individuelles
- Normalement, lorsque vous copiez les cellules fusionnées et les collez dans d'autres cellules, les cellules fusionnées sont collées directement. Mais, vous voulez coller ces cellules fusionnées dans des cellules uniques comme illustré ci-dessous, afin de pouvoir traiter les données selon vos besoins. Cet article, je vais parler de la façon de copier et coller des cellules fusionnées dans des cellules uniques.
- Effacer le contenu de plusieurs cellules fusionnées
- Si vous avez une grande feuille de calcul qui contient plusieurs cellules fusionnées et que vous souhaitez maintenant effacer tout le contenu des cellules fusionnées, mais conserver les cellules fusionnées. Normalement, vous pouvez essayer d'appliquer la fonction Rechercher et remplacer pour sélectionner d'abord toutes les cellules fusionnées, puis appuyez sur la touche Suppr pour supprimer la valeur, mais vous obtiendrez un message d'avertissement "Nous ne pouvons pas faire cela à une cellule fusionnée". Dans ce cas, comment effacer les valeurs dans les cellules fusionnées tout en laissant les cellules fusionnées rapidement dans Excel?
- Numérotation automatique des cellules fusionnées
- Comment pourrions-nous remplir les numéros de série dans une liste de cellules fusionnées de différentes tailles dans Excel? Tout d'abord dans notre esprit, il faut faire glisser la poignée de saisie automatique pour remplir les cellules fusionnées, mais, dans ce cas, nous obtiendrons le message d'avertissement suivant et ne pouvons pas remplir les cellules fusionnées.
Les meilleurs outils de productivité de bureau
Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%
- Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
- Fusionner les cellules / lignes / colonnes et conservation des données; Contenu des cellules divisées; Combiner les lignes en double et la somme / moyenne... Empêcher les cellules en double; Comparer les gammesplus
- Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
- Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
- Formules favorites et insérer rapidement, Plages, graphiques et images; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
- Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
- Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
- Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
- Regroupement du tableau croisé dynamique par numéro de semaine, jour de la semaine et plus encore ... Afficher les cellules déverrouillées et verrouillées par différentes couleurs; Mettre en évidence les cellules qui ont une formule / un nomplus
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
