Gå til hovedindhold

Hvordan farves alternative rækker til flettede celler i Excel?

Det er meget nyttigt at formatere alternative rækker med en anden farve i store data, så vi kan scanne dataene, men nogle gange kan der være nogle flettede celler i dine data. For at fremhæve rækkerne skiftevis med en anden farve for de flettede celler som vist nedenfor skærmbillede, hvordan kunne du løse dette problem i Excel?

Farve alternative rækker for flettede celler med betinget formatering

Farve alternative rækker for flettede celler med VBA-kode


Farve alternative rækker for flettede celler med betinget formatering

I Excel er den kraftfulde funktion-Betinget formatering kan hjælpe dig med at udføre denne opgave så hurtigt som muligt, bedes du udføre følgende trin:

1. Vælg det dataområde, der indeholder de flettede celler, du vil farve skiftevis, og klik derefter Home > Betinget formatering > Ny regel, se skærmbillede:

2. I poppet ud Ny formateringsregel i dialogboksen, skal du udføre følgende handlinger:

  • Type Brug en formel til at bestemme, hvilke celler der skal formateres mulighed fra Vælg en regeltype listefelt;
  • Og indtast derefter denne formel: =MOD(COUNTA($A$2:$A2),2)=0 ind i Formater værdier, hvor denne formel er sand tekstboks.
  • Bemærk: A2 er den første celle i dit dataområde.

3. Klik derefter på dannet knappen for at gå til formater celler dialog boks. Under Fyld fanen, vælg en farve, du vil fremhæve rækkerne med, se skærmbillede:

4. Klik OK > OK for at lukke dialogerne, og rækkerne med de flettede celler er fyldt med den farve, du har angivet, se skærmbillede:

5. Fortsæt med at klikke Home > Betinget formatering > Ny regel at åbne Ny formateringsregel i dialogboksen, skal du udføre følgende handlinger:

  • Type Brug en formel til at bestemme, hvilke celler der skal formateres mulighed fra Vælg en regeltype listefelt;
  • Og indtast derefter denne formel: =MOD(COUNTA($A$2:$A2),2)=1 ind i Formater værdier, hvor denne formel er sand tekstboks.
  • Klik derefter på dannet knappen for at vælge en anden farve, du vil fremhæve rækkerne.
  • Bemærk: A2 er den første celle i dit dataområde.

6. Klik derefter på OK > OK for at lukke dialogerne, og nu kan du se, at det valgte dataområde er blevet skygget med to forskellige farver skiftevis baseret på de flettede celler som vist nedenfor skærmbillede:


Farve alternative rækker for flettede celler med VBA-kode

Bortset fra den normale betingede formatering kan du også bruge en VBA-kode til nemt at anvende alternative rækkefarver til flettede celler.

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik derefter på indsatte > Moduler, og indsæt følgende kode i Moduler vindue.

VBA-kode: Farve alternative rækker for flettede celler

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. Tryk derefter på F5 nøglen til at køre denne kode. Vælg det dataområde, du vil bruge i den første boks, der åbnes, se skærmbillede:

4. I den anden promptboks skal du vælge kolonnen med flettede celler, se skærmbillede:

5. Klik derefter på OK knappen, er rækkerne skraveret skiftevis baseret på de flettede celler som vist nedenfor skærmbillede:


Video: Farver alternative rækker til flettede celler


Flere relative artikler:

  • Filtrer alle relaterede data fra flettede celler
  • Antag, at der er en kolonne med flettede celler i dit dataområde, og nu skal du filtrere denne kolonne med flettede celler for at vise alle de rækker, der er relateret til hver flettet celle som følgende skærmbilleder vist. I Excel giver filterfunktionen dig kun mulighed for at filtrere det første element, der er knyttet til de flettede celler. I denne artikel vil jeg tale om, hvordan man filtrerer alle relaterede data fra flettede celler i Excel?
  • Kopier og indsæt flettede celler til enkelte celler
  • Normalt, når du kopierer de flettede celler og indsætter dem i andre celler, indsættes de flettede celler direkte. Men du vil indsætte disse flettede celler i enkeltceller som vist på skærmbilledet, så du kan håndtere de data, som du har brug for. Denne artikel vil jeg tale om, hvordan man kopierer og indsætter flettede celler til enkeltceller.
  • Ryd indholdet af flere flettede celler
  • Hvis du har et stort regneark, der indeholder flere flettede celler, og nu vil du rydde alt indholdet af de flettede celler, men beholde de flettede celler. Normalt kan du prøve at anvende funktionen Find og erstat for at vælge alle flettede celler først, og tryk derefter på Slet-tasten for at slette værdien, men du får dog en advarselsmeddelelse "Vi kan ikke gøre det til en flettet celle". I dette tilfælde, hvordan rydder du værdierne i flettede celler, men efterlader de flettede celler hurtigt i Excel?
  • Autonummerer flettede celler
  • Hvordan kunne vi udfylde serienumre i en liste over flettede celler i forskellige størrelser i Excel? Først i vores sind er at trække Autofyld-håndtaget for at udfylde de flettede celler, men i dette tilfælde får vi følgende advarselsmeddelelse og kan ikke udfylde de flettede celler.

  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner og opbevaring af data; Split celler indhold; Kombiner duplikatrækker og sum / gennemsnit... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Foretrukne og hurtigt indsætte formler, Områder, diagrammer og billeder; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Pivottabelgruppering efter ugenummer, ugedag og mere ... Vis ulåste, låste celler ved forskellige farver; Fremhæv celler, der har formel / navn...
kte-fane 201905
  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
А еще у вас неверная формула:)
Ну нет такой формулы - СЧЕТЧИК
Правильнее СЧЕТЗ =)
This comment was minimized by the moderator on the site
Hello, Влад
The formulas in this article have been translated, so you can try the below formulas in English:
=MOD(COUNTA($A$2:$A2),2)=0
=MOD(COUNTA($A$2:$A2),2)=1
Please try, hope it can help you!
This comment was minimized by the moderator on the site
Здравствуйте!
Спасибо за статью

У меня есть некоторое замечание
= ОСТАТ (СЧЕТЧИК ($ A $ 2: $ A 2), 2) = 0
правильно , сменить на ;
= ОСТАТ (СЧЕТЧИК ($ A $ 2: $ A 2); 2) = 0

но даже после этого не работает
This comment was minimized by the moderator on the site
Hello, Vlad
The formulas in this article have been translated, so you can try the below formulas in English:
=MOD(COUNTA($A$2:$A2),2)=0
=MOD(COUNTA($A$2:$A2),2)=1

Please try, hope it can help you!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations