Przejdź do głównej zawartości

Jak pokolorować alternatywne wiersze dla scalonych komórek w programie Excel?

Bardzo pomocne jest formatowanie alternatywnych wierszy w innym kolorze w dużych danych, abyśmy mogli je zeskanować, ale czasami w danych mogą znajdować się scalone komórki. Aby podświetlić wiersze naprzemiennie innym kolorem dla scalonych komórek, jak pokazano na poniższym zrzucie ekranu, jak rozwiązać ten problem w programie Excel?

Koloruj alternatywne wiersze dla scalonych komórek z formatowaniem warunkowym

Koloruj alternatywne wiersze dla scalonych komórek z kodem VBA


Koloruj alternatywne wiersze dla scalonych komórek z formatowaniem warunkowym

W programie Excel potężna funkcja:Formatowanie warunkowe może pomóc w jak najszybszym wykonaniu tego zadania, wykonaj następujące czynności:

1. Wybierz zakres danych, który zawiera scalone komórki, które chcesz na przemian kolorować, a następnie kliknij Strona główna > Formatowanie warunkowe > Nowa zasadazobacz zrzut ekranu:

2. W wyskoczył Nowa reguła formatowania w oknie dialogowym wykonaj następujące operacje:

  • Wybierz Użyj formuły, aby określić, które komórki należy sformatować opcja z Wybierz typ reguły skrzynka na listy;
  • A następnie wprowadź tę formułę: =MOD(COUNTA($A$2:$A2),2)=0 do Formatuj wartości tam, gdzie ta formuła jest prawdziwa pole tekstowe.
  • Note: A2 to pierwsza komórka z zakresu danych.

3. Następnie kliknij utworzony przycisk, aby przejść do Formatowanie komórek Okno dialogowe. Pod Wypełniać wybierz jeden kolor, którym chcesz podświetlić wiersze, patrz zrzut ekranu:

4. Kliknij OK > OK aby zamknąć okna dialogowe, a wiersze ze scalonymi komórkami są wypełnione określonym kolorem, patrz zrzut ekranu:

5. Kliknij dalej Strona główna > Formatowanie warunkowe > Nowa zasada otworzyć Nowa reguła formatowania w oknie dialogowym wykonaj następujące operacje:

  • Wybierz Użyj formuły, aby określić, które komórki należy sformatować opcja z Wybierz typ reguły skrzynka na listy;
  • A następnie wprowadź tę formułę: =MOD(COUNTA($A$2:$A2),2)=1 do Formatuj wartości tam, gdzie ta formuła jest prawdziwa pole tekstowe.
  • Następnie kliknij utworzony przycisk, aby wybrać inny kolor, który chcesz podświetlić wiersze.
  • Note: A2 to pierwsza komórka z zakresu danych.

6. A następnie kliknij OK > OK aby zamknąć okna dialogowe, a teraz widać, że wybrany zakres danych został zacieniony dwoma różnymi kolorami naprzemiennie w oparciu o scalone komórki, jak pokazano na poniższym zrzucie ekranu:


Koloruj alternatywne wiersze dla scalonych komórek z kodem VBA

Oprócz normalnego formatowania warunkowego możesz również użyć kodu VBA, aby z łatwością zastosować alternatywne kolory wierszy dla scalonych komórek.

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. Następnie kliknij wstawka > Modułi wklej następujący kod w Moduł okno.

Kod VBA: Kolor alternatywnych wierszy dla scalonych komórek

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. Następnie naciśnij F5 klucz, aby uruchomić ten kod. W pierwszym wyskakującym oknie wybierz zakres danych, którego chcesz użyć, zobacz zrzut ekranu:

4. W drugim polu monitu wybierz kolumnę ze scalonymi komórkami, zobacz zrzut ekranu:

5. A następnie kliknij OK przycisk, wiersze są cieniowane naprzemiennie na podstawie scalonych komórek, jak pokazano na poniższym zrzucie ekranu:


Wideo: pokoloruj naprzemienne wiersze dla scalonych komórek


Więcej artykułów względnych:

  • Filtruj wszystkie powiązane dane ze scalonych komórek
  • Przypuśćmy, że w twoim zakresie danych znajduje się kolumna scalonych komórek, a teraz musisz przefiltrować tę kolumnę połączonymi komórkami, aby wyświetlić wszystkie wiersze powiązane z każdą scaloną komórką, jak pokazano na poniższych zrzutach ekranu. W programie Excel funkcja Filtruj umożliwia filtrowanie tylko pierwszego elementu, który jest powiązany ze scalonymi komórkami, w tym artykule omówię, jak filtrować wszystkie powiązane dane ze scalonych komórek w programie Excel?
  • Kopiuj i wklej scalone komórki do pojedynczych komórek
  • Zwykle po skopiowaniu scalonych komórek i wklejeniu ich do innych komórek scalone komórki zostaną wklejone bezpośrednio. Ale chcesz wkleić te połączone komórki do pojedynczych komórek, jak pokazano na poniższym zrzucie ekranu, abyś mógł poradzić sobie z danymi według potrzeb. W tym artykule omówię, jak skopiować i wkleić scalone komórki do pojedynczych komórek.
  • Wyczyść zawartość wielu scalonych komórek
  • Jeśli masz duży arkusz roboczy, który zawiera wiele scalonych komórek, a teraz chcesz wyczyścić całą zawartość scalonych komórek, ale zachować scalone komórki. Zwykle możesz spróbować zastosować funkcję Znajdź i zamień, aby najpierw zaznaczyć wszystkie scalone komórki, a następnie nacisnąć klawisz Delete, aby usunąć wartość, jednak zostanie wyświetlony komunikat ostrzegawczy „Nie możemy tego zrobić dla scalonej komórki”. W takim przypadku, jak wyczyścić wartości w scalonych komórkach, ale szybko opuścić scalone komórki w programie Excel?
  • Automatyczne numerowanie komórek scalonych
  • Jak możemy wypełnić numery seryjne na liście scalonych komórek o różnym rozmiarze w programie Excel? Najpierw musimy przeciągnąć uchwyt autouzupełniania, aby wypełnić scalone komórki, ale w tym przypadku otrzymamy następujący komunikat ostrzegawczy i nie możemy wypełnić scalonych komórek.

  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny i przechowywanie danych; Podziel zawartość komórek; Połącz zduplikowane wiersze i sumę / średnią... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Ulubione i szybkie wstawianie formuł, Zakresy, wykresy i obrazy; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Grupowanie tabel przestawnych według numer tygodnia, dzień tygodnia i więcej ... Pokaż odblokowane, zablokowane komórki w różnych kolorach; Podświetl komórki, które mają formułę / nazwę...
karta kte 201905
  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
officetab dół
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