Przejdź do głównej zawartości

Excel: Jeśli kolor czcionki jest czerwony, zwróć określony tekst lub wykonaj inne operacje

Jak możesz zwrócić określony tekst, jeśli kolor czcionki jest czerwony w innej komórce, jak pokazano na zrzucie ekranu? W tym artykule przedstawię kilka sztuczek do wykonywania niektórych operacji w oparciu o tekst czerwonej czcionki w programie Excel.


Jeśli kolor czcionki jest czerwony, zwróć określony tekst w innej komórce

Aby zwrócić określony tekst, jeśli kolor czcionki jest czerwony w innej komórce, wykonaj następujące czynności:

1. naciśnij Alt + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.

2. Następnie kliknij wstawka > Moduł, skopiuj i wklej poniższy kod VBA do okna.

Kod VBA: Jeśli kolor czcionki jest czerwony, zwróć określony tekst

Function FontColorisRed(Rng As Range)
'Updateby ExtendOffice
    Application.Volatile
    If Rng.Font.ColorIndex = 3 Then
    FontColorisRed = "Fail"
    Else
    FontColorisRed = "Pass"
    End If
End Function
Note: W powyższym kodzie, jeśli kolor czcionki jest czerwony, zwróć tekst „Fail”, jeśli nie czerwony, zwróć tekst „Przechodzić”. Możesz zmienić dwa teksty według swoich potrzeb.

3. Następnie zamknij okno kodu i wprowadź tę formułę: =Kolor CzcionkiICzerwony(B2), a następnie przeciągnij uchwyt wypełniania w dół, aby uzyskać inne wyniki, zobacz zrzut ekranu:


Jeśli kolor czcionki jest czerwony, zaznacz komórkę

Jeśli chcesz podświetlić komórki na podstawie czerwonej czcionki, wykonaj następujące czynności:

1. naciśnij Alt + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.

2. Następnie kliknij wstawka > Moduł, skopiuj i wklej poniższy kod VBA do okna.

Kod VBA: Jeśli kolor czcionki jest czerwony, zaznacz komórkę

Function HighlightRedFont(pRg As Range) As Boolean
'Updateby ExtendOffice
Dim xRg As Range
Dim xBol As Boolean
xBol = False
    For Each xRg In pRg
        If xRg.Font.Color = vbRed Then
            xBol = True
        End If
    Next
  HighlightRedFont = xBol
End Function

3. A następnie zamknij okno kodu, przejdź do kliknięcia Strona główna > Formatowanie warunkowe > Nowa zasadazobacz zrzut ekranu:

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

  • Kliknij Użyj formuły, aby określić, które komórki należy sformatować Wybierz typ reguły skrzynka na listy;
  • Wprowadź tę formułę =wyróżnienieczerwonaczcionka(B2) do Formatuj wartości tam, gdzie ta formuła jest prawdziwa pole tekstowe;
  • Następnie kliknij utworzony przycisk.

5, w Formatowanie komórek okno dialogowe w obszarze Wypełniać zakładka, wybierz jeden kolor, który chcesz podświetlić komórkę, zobacz zrzut ekranu:

6. A następnie kliknij OK > OK aby zamknąć okna dialogowe. A teraz komórki z czerwoną czcionką są podświetlone od razu, patrz zrzut ekranu:


Jeśli kolor czcionki jest czerwony, zmień kolor czcionki

Czasami możesz chcieć zmienić czerwoną czcionkę na inny kolor czcionki, tutaj omówię dwie metody osiągnięcia tego.

 Jeśli kolor czcionki jest czerwony, zmień kolor czcionki za pomocą funkcji Znajdź i zamień

Aby zmienić czerwony kolor czcionki na inny, funkcja Znajdź i zamień w programie Excel może wyświadczyć ci przysługę, wykonaj następujące czynności:

1. Wybierz zakres danych, w którym chcesz zmienić kolor czcionki, a następnie naciśnij Ctrl + H klawisze, aby otworzyć Znajdowanie i zamienianie Okno dialogowe. W otwartym oknie dialogowym kliknij Opcje>> przycisk, zobacz zrzut ekranu:

2. W rozwiniętym oknie dialogowym wykonaj następujące operacje:

  • Zostawić Znajdź co i Zastąp pudełka puste;
  • Po prawej stronie Znajdź co pole, wybierz utworzony > Wybierz Format z komórkii kliknij komórkę z czerwoną czcionką;
  • Następnie po prawej stronie Zastąp pole, wybierz utworzony > utworzony , aby przejść do Zastąp format dialog.

3, w Zastąp format okno dialogowe w obszarze chrzcielnica wybierz jeden kolor, który chcesz zmienić z Kolor lista rozwijana, zobacz zrzuty ekranu:

4. Następnie kliknij OK zamknąć Zastąp format okno dialogowe, a teraz kliknij Zamień wszystko przycisk w Znajdowanie i zamienianie okno dialogowe, wszystkie komórki z czerwoną czcionką zostaną zastąpione określonym kolorem czcionki, patrz zrzut ekranu:

Note: Kiedy wybierzesz format z istniejącej komórki, wszystkie formaty komórek zostaną pobrane. W takim przypadku podczas wykonywania operacji Zamień, jeśli format nie pasuje dokładnie, komórka nie zostanie zastąpiona.

 Jeśli kolor czcionki jest czerwony, zmień kolor czcionki za pomocą przydatnej funkcji

Jeśli Kutools dla programu Excel, Z siedzibą w Wybierz komórki z formatem funkcji, możesz wybrać komórki z czerwoną czcionką, a następnie jak najszybciej zmienić kolor czcionki do swoich potrzeb.

Po zainstalowaniu Kutools dla programu Excel, zrób tak:

1. Wybierz zakres danych, którego chcesz użyć, a następnie kliknij Kutools > Wybierz > Wybierz komórki z formatemzobacz zrzut ekranu:

2, w Wybierz komórki z formatem okno dialogowe, kliknij Wybierz Format z komórki przycisk. A następnie wybierz komórkę z czerwoną czcionką, wszystkie atrybuty tej komórki zostaną wyświetlone w poniższym polu listy. Jeśli chcesz wybrać wszystkie komórki z dokładnie tym samym formatowaniem komórki bazowej, zaznacz wszystkie opcje atrybutów; Jeśli chcesz tylko zaznaczyć komórki tylko czerwoną czcionką, odznacz wszystkie inne atrybuty z wyjątkiem Kolor czcionki pole wyboru. Zobacz zrzut ekranu:

3. Następnie kliknij OK i w następującym okienku kliknij Takzobacz zrzut ekranu:

4. Wszystkie komórki z czerwoną czcionką są wybierane jednocześnie, a następnie możesz określić kolor czcionki, aby zmienić czerwoną czcionkę według potrzeb. Zobacz zrzut ekranu:


  • 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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations