Hoe geef je afwisselende rijen een kleur in Samengevoegd voor Excel?

Het is erg handig om afwisselende rijen in een grote dataset een andere kleur te geven, zodat u de gegevens gemakkelijker kunt scannen. Soms staan er echter samengevoegde cellen in uw gegevens. Hoe lost u dit probleem op in Excel als u de rijen met samengevoegde cellen toch afwisselend met een andere kleur wilt markeren, zoals op de onderstaande schermafbeelding is weergegeven?

Geef afwisselende rijen een kleur voor Samengevoegd met Voorwaardelijke opmaak gebruiken

Geef afwisselende rijen een kleur voor Samengevoegd met VBA-code

---

Geef afwisselende rijen een kleur voor Samengevoegd met Voorwaardelijke opmaak gebruiken

In Excel helpt de krachtige functie Voorwaardelijke opmaak gebruiken u deze taak zo snel mogelijk uit te voeren. Volg de volgende stappen:

1. Selecteer het gegevensbereik met de samengevoegde cellen dat u afwisselend van kleur wilt voorzien en klik vervolgens op Start > Voorwaardelijke opmaak gebruiken > Nieuwe regel, zie schermafbeelding:

2. Voer in het venster Nieuwe opmaakregel de volgende handelingen uit:

• Selecteer Gebruik een formule om te bepalen welke cellen moeten worden opgemaaktoptie in het vak Selecteer een regeltypeRegeltype
• Voer vervolgens deze formule in het tekstvak Opmaakwaarden waarvoor deze formule WAAR is in:=MOD(COUNTA($A$2:$A2),2)=0.
• Opmerking: A2 is de eerste cel van uw gegevensbereik.

3. Klik vervolgens op Opmaak om naar het venster Celopmaak instellen te gaan. Kies onder het tabblad Opvulling een kleur waarmee u de rijen wilt markeren, zie schermafbeelding:

4. Klik op OK > OK om de dialoogvensters te sluiten. De rijen met samengevoegde cellen zijn nu gevuld met de door u opgegeven kleur, zie schermafbeelding:

5. Klik nogmaals op Start > Voorwaardelijke opmaak gebruiken > Nieuwe regel om het venster Nieuwe opmaakregel te openen en voer de volgende handelingen uit:

• Selecteer Gebruik een formule om te bepalen welke cellen moeten worden opgemaaktoptie in het vak Selecteer een regeltypeRegeltype
• Voer vervolgens deze formule in:=MOD(COUNTA($A$2:$A2),2)=1in het tekstvak Opmaakwaarden waarvoor deze formule WAAR is.
• Klik vervolgens op Opmaak om een andere kleur te kiezen waarmee u de rijen wilt markeren.
• Opmerking: A2 is de eerste cel van uw gegevensbereik.

6. Klik vervolgens op OK>OK om de dialoogvensters te sluiten. U ziet nu dat het bereik met Gegevens selecteren is voorzien van twee afwisselende kleuren, gebaseerd op de samenvoeging, zoals in de onderstaande schermafbeelding wordt weergegeven:

---

Geef afwisselende rijen een kleur voor Samengevoegd met VBA-code

Naast de standaardmethode met Voorwaardelijke opmaak kunt u ook eenvoudig VBA-code gebruiken om afwisselende rijkleuren toe te passen op samengevoegde cellen.

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Klik vervolgens op Invoegen > Module en plak de volgende code in het venster Module.

VBA-code: Geef afwisselende rijen een kleur voor Samengevoegd

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. Druk vervolgens op F5 om deze code uit te voeren. Selecteer in het eerste venster dat verschijnt het gegevensbereik dat u wilt gebruiken, zie schermafbeelding:

4. Selecteer in het tweede venster de kolom met samengevoegde cellen, zie de schermafbeelding:

5. Klik daarna op OK en de rijen worden afwisselend ingekleurd op basis van de samenvoeging, zoals op de onderstaande schermafbeelding is weergegeven:

---

Video: Geef afwisselende rijen een kleur voor Samengevoegd

---

Meer gerelateerde artikelen: