Ugrás a tartalomra

Hogyan lehet kiszínezni az egyesített cellák alternatív sorait az Excelben?

Nagyon hasznos, ha egy nagy adatban eltérő színű sorokat formáz, hogy átvizsgálhassuk az adatokat, de néha előfordulhat, hogy egyesített cellák találhatók az adatokban. Hogyan tudná megoldani ezt a problémát az Excelben, ha az egyesített cellák sorait felváltva más színnel szeretné kiemelni az alábbi képernyőképen látható módon?

Színezze a feltételes formázással egyesített cellák alternatív sorait

Színezze a VBA-kóddal egyesített cellák alternatív sorait


Színezze a feltételes formázással egyesített cellák alternatív sorait

Az Excelben az a hatékony funkció,Feltételes formázás segíthet ennek a feladatnak a lehető leggyorsabb elérésében, kérjük, kövesse az alábbi lépéseket:

1. Válassza ki azt az adattartományt, amely a felváltva színezni kívánt egyesített cellákat tartalmazza, majd kattintson a gombra Kezdőlap > Feltételes formázás > Új szabály, lásd a képernyőképet:

2. A kiugrott Új formázási szabály párbeszédpanelen hajtsa végre a következő műveleteket:

  • választ Képlet segítségével határozza meg, hogy mely cellákat formázza lehetőség a Válasszon egy szabálytípust lista mező;
  • És akkor írja be ezt a képletet: =MOD(COUNTA($A$2:$A2),2)=0 be a Formázza az értékeket, ahol ez a képlet igaz szövegdoboz.
  • Megjegyzések: A2 az adattartomány első cellája.

3. Ezután kattints a gombra kialakított gomb megnyomásával Cellák formázása párbeszédablak. Alatt Tölt lapon válasszon ki egy színt, amellyel ki szeretné jelölni a sorokat, lásd a képernyőképet:

4. Kattints OK > OK A párbeszédpanelek bezárásához, és az egyesített cellákat tartalmazó sorok a megadott színnel megtelnek, lásd a képernyőképet:

5. Kattintson a gombra Kezdőlap > Feltételes formázás > Új szabály megnyitni Új formázási szabály párbeszédpanelen hajtsa végre a következő műveleteket:

  • választ Képlet segítségével határozza meg, hogy mely cellákat formázza lehetőség a Válasszon egy szabálytípust lista mező;
  • És akkor írja be ezt a képletet: =MOD(COUNTA($A$2:$A2),2)=1 be a Formázza az értékeket, ahol ez a képlet igaz szövegdoboz.
  • Ezután kattintson a gombra kialakított gombot, hogy válasszon egy másik színt a sorok kiemeléséhez.
  • Megjegyzések: A2 az adattartomány első cellája.

6. Ezután kattintson OK > OK a párbeszédpanelek bezárásához, és most láthatja, hogy a kiválasztott adattartományt felváltva két különböző színnel árnyékolták az egyesített cellák alapján, ahogy az alábbi képernyőképen látható:


Színezze a VBA-kóddal egyesített cellák alternatív sorait

A normál feltételes formázás kivételével VBA-kóddal is könnyedén alkalmazhat alternatív sorszíneket az egyesített cellákhoz.

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ezután kattints a gombra betétlap > Modulok, és illessze be a következő kódot a Modulok ablak.

VBA-kód: Színezze az egyesített cellák alternatív sorait

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához. Az első kiugró mezőben válassza ki a használni kívánt adattartományt, lásd a képernyőképet:

4. A második prompt mezőben válassza ki az egyesített cellákat tartalmazó oszlopot, lásd a képernyőképet:

5. Ezután kattintson OK gombot, a sorok felváltva árnyékolódnak az egyesített cellák alapján, ahogy az alábbi képernyőképen látható:


Videó: Színezd ki az egyesített cellák alternatív sorait


Relatívabb cikkek:

  • Az összes kapcsolódó adat szűrése az egyesített cellákból
  • Tegyük fel, hogy az adattartományban van egy egyesített cellák oszlopa, és most szűrnie kell ezt az oszlopot egyesített cellákkal, hogy az egyesített cellákkal kapcsolatos összes sor megjelenjen a következő képernyőképek szerint. Az Excel programban a Szűrés funkció lehetővé teszi, hogy csak az egyesített cellákhoz társított első elemet szűrje, ebben a cikkben arról fogok beszélni, hogy miként szűrhető az összes kapcsolódó adat az egyesített cellákból az Excelben?
  • Másolja és illessze be az egyesített cellákat egyes cellákba
  • Normális esetben, amikor az összevont cellákat átmásolja és más cellákba illeszti, az egyesített cellákat közvetlenül beilleszti. De be akarja illeszteni az egyesített cellákat az egyes cellákba az alábbi képernyőképen, hogy az adatokat a szükség szerint kezelje. Ebben a cikkben arról fogok beszélni, hogy az egyesített cellákat hogyan lehet másolni és beilleszteni egyetlen cellába.
  • Több egyesített cella tartalmának törlése
  • Ha van egy nagy munkalapja, amely több egyesített cellát tartalmaz, és most törölni kívánja az egyesített cellák összes tartalmát, de megtartja az egyesített cellákat. Normál esetben megpróbálhatja először megtalálni az összes egyesített cellát a Keresés és csere funkcióval, majd az érték törléséhez nyomja meg a Törlés gombot, azonban figyelmeztető üzenetet kap: "Ezt nem tudjuk megtenni egy egyesített cellánál". Ebben az esetben hogyan törölheti az egyesített cellák értékeit, de gyorsan hagyhatja az egyesített cellákat az Excelben?
  • Az egyesített cellák automatikus számozása
  • Hogyan tölthetnénk be a sorozatszámokat az Excel különböző méretű egyesített celláinak listájába? Először az a gondolatunk, hogy az automatikus kitöltési fogantyút húzzuk az egyesített cellák kitöltéséhez, de ebben az esetben a következő figyelmeztető üzenetet kapjuk, és nem tudjuk kitölteni az egyesített cellákat.

  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése és az adatok megőrzése; Osztott cellák tartalma; Kombinálja az ismétlődő sorokat és az Összeg / Átlagot... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kedvenc és gyorsan beszúrható képletek, Tartományok, diagramok és képek; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Pivot tábla csoportosítás hét száma, a hét napja és egyebek ... Mutassa a Feloldott, Zárt cellákat különböző színekkel; Jelölje ki azokat a cellákat, amelyeknek képlete / neve van...
kte lap 201905
  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
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