Jak wyróżnić określony tekst w komórce na podstawie innego tekstu?
W programie Excel może być nam łatwo wyróżnić komórki na podstawie określonego tekstu, ale tutaj chcę podświetlić określony tekst w komórce, aby był wyjątkowy, ale nie całą komórkę. Może to być kłopotliwe dla większości z nas. W tym artykule omówię kilka sztuczek do rozwiązania tego zadania w programie Excel.
Podświetl jeden lub więcej określonego tekstu w wielu komórkach za pomocą kodu VBA
Na przykład mam zakres ciągów tekstowych, a teraz chcę podświetlić konkretny tekst „Niebo”W tych komórkach, aby uzyskać wynik w postaci poniższych zrzutów ekranu:
Aby wyróżnić tylko część tekstu w komórce, może Ci pomóc poniższy kod VBA.
1. Wybierz komórki, które chcesz podświetlić określony tekst, a następnie przytrzymaj klawisz ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: Podświetl część tekstu w komórce:
Sub HighlightStrings()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x As Long
Dim m As Long
Dim y As Long
cFnd = InputBox("Enter the text string to highlight")
y = Len(cFnd)
For Each Rng In Selection
With Rng
m = UBound(Split(Rng.Value, cFnd))
If m > 0 Then
xTmp = ""
For x = 0 To m - 1
xTmp = xTmp & Split(Rng.Value, cFnd)(x)
.Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
xTmp = xTmp & cFnd
Next
End If
End With
Next Rng
Application.ScreenUpdating = True
End Sub
3. Następnie naciśnij F5 klawisz, aby uruchomić ten kod, a pojawi się okno zachęty przypominające o wprowadzeniu tekstu, który chcesz tylko podświetlić, patrz zrzut ekranu:
4. A następnie kliknij OK przycisk, cały określony tekst został podświetlony tylko w komórkach, patrz zrzut ekranu:
Kod VBA: Podświetl wiele słów kluczowych z ciągów tekstowych:
Sub HighlightStrings()
'Updateby Extendoffice
Application.ScreenUpdating = False
Dim Rng As Range
Dim cFnd As String
Dim xTmp As String
Dim x As Long
Dim m As Long
Dim y As Long
Dim xFNum As Integer
Dim xArrFnd As Variant
Dim xStr As String
cFnd = InputBox("Please enter the text, separate them by comma:")
If Len(cFnd) < 1 Then Exit Sub
xArrFnd = Split(cFnd, ",")
For Each Rng In Selection
With Rng
For xFNum = 0 To UBound(xArrFnd)
xStr = xArrFnd(xFNum)
y = Len(xStr)
m = UBound(Split(Rng.Value, xStr))
If m > 0 Then
xTmp = ""
For x = 0 To m - 1
xTmp = xTmp & Split(Rng.Value, xStr)(x)
.Characters(Start:=Len(xTmp) + 1, Length:=y).Font.ColorIndex = 3
xTmp = xTmp & xStr
Next
End If
Next xFNum
End With
Next Rng
Application.ScreenUpdating = True
End Sub
Następnie w wyskakującym okienku wprowadź słowa kluczowe, które chcesz wyróżnić (oddziel słowa przecinkiem), patrz zrzut ekranu:
A następnie kliknij OK przycisk, określone słowa zostały od razu zaznaczone, zobacz zrzuty ekranu:
Note: W powyższych kodach rozróżniana jest wielkość liter.
Podświetl jeden lub więcej określonego tekstu w wielu komórkach za pomocą niesamowitej funkcji
Jeśli nie znasz kodu w Excelu, przedstawię tutaj proste narzędzie - Kutools dla programu Excel, Z siedzibą w Zaznacz słowo kluczowe możesz zaznaczyć jedno lub więcej słów kluczowych jednocześnie w komórkach.
Po zainstalowaniu Kutools dla programu Excelwykonaj następujące czynności:
1. Kliknij Kutools > Tekst > Zaznacz słowo kluczowezobacz zrzut ekranu:
2, w Zaznacz słowo kluczowe w oknie dialogowym, wykonaj następujące operacje:
- Wybierz zakres danych, którego chcesz użyć z łodzie pole tekstowe;
- Wybierz komórki zawierające słowa kluczowe, które chcesz podświetlić, możesz również wprowadzić słowa kluczowe ręcznie (oddzielone przecinkami) do pliku słowo kluczowe pole tekstowe
- Na koniec powinieneś określić kolor czcionki do podświetlania tekstów przez czek Oznacz kolory słów kluczowych opcja. (Aby pokolorować całe komórki zawierające słowa kluczowe, zaznacz Zaznacz kolory zawartości komórki opcjonalnie)
3. Następnie kliknij Ok przycisk, wszystkie określone teksty zostały podświetlone, jak na poniższym zrzucie ekranu:
Note: Ta funkcja nie rozróżnia wielkości liter, jeśli chcesz wyróżnić tekst z uwzględnieniem wielkości liter, sprawdź Mecz Case Zaznacz słowo kluczowe okno dialogowe.
Podświetl określony tekst w komórce na podstawie innego tekstu z kodem VBA
Oto inna sytuacja, mam dwie kolumny, w których pierwsza kolumna zawiera ciągi tekstowe, a druga kolumna to określony tekst, teraz muszę podświetlić względny tekst w pierwszej kolumnie na podstawie określonego tekstu w drugiej kolumnie dla każdego rząd.
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: Podświetl część tekstu w komórce na podstawie innego tekstu:
Sub highlight()
'Updateby Extendoffice
Dim xStr As String
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xChar As String
Dim I As Long
Dim J As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "not support multiple columns"
GoTo LInput
End If
If xRg.Columns.Count <> 2 Then
MsgBox "the selected range can only contain two columns "
GoTo LInput
End If
For I = 0 To xRg.Rows.Count - 1
xStr = xRg.Range("B1").Offset(I, 0).Value
With xRg.Range("A1").Offset(I, 0)
.Font.ColorIndex = 1
For J = 1 To Len(.Text)
If Mid(.Text, J, Len(xStr)) = xStr Then .Characters(J, Len(xStr)).Font.ColorIndex = 3
Next
End With
Next I
End Sub
3. Po wklejeniu kodu i naciśnij F5 Aby go uruchomić, pojawi się okienko zachęty przypominające o wyborze zakresu danych, który zawiera zarówno ciąg tekstowy, jak i określony tekst, który chcesz wyróżnić i na podstawie którego chcesz go wyróżnić, patrz zrzut ekranu:
4. A następnie kliknij OK przycisk, cały odpowiedni tekst w pierwszej kolumnie w oparciu o konkretny tekst w drugiej kolumnie został pokolorowany na czerwono, jak na poniższym zrzucie ekranu:
Więcej artykułów względnych:
- Pogrubiony tekst części po połączeniu dwóch kolumn w programie Excel
- W arkuszu programu Excel po połączeniu dwóch wartości komórek z formułami może się okazać, że część tekstu w połączonej komórce formuły nie zostanie pogrubiona. Czasami może to być denerwujące, w jaki sposób można pogrubić tekst części podczas łączenia dwóch kolumn w programie Excel?
- Połącz kolumny komórek i zachowaj kolor tekstu w programie Excel
- Jak wszyscy wiemy, podczas konkatenacji lub łączenia kolumn komórek w jedną kolumnę, formatowanie komórki (takie jak kolor czcionki tekstu, formatowanie liczb itp.) Zostanie utracone. W tym artykule przedstawię kilka sztuczek, aby połączyć kolumny komórek w jedną i jak najłatwiej zachować kolor tekstu w programie Excel.
- Wyświetl określony tekst na podstawie wartości w innej kolumnie
- Przypuśćmy, że mam listę liczb, teraz chcę wyświetlić określony tekst w innej kolumnie na podstawie numerów tych kolumn. Na przykład, jeśli numer komórki zawiera się w przedziale 1-100, chcę, aby w sąsiedniej komórce był wyświetlany tekst „Zmniejsz”, jeśli liczba zawiera się w przedziale 101–200, wyświetlany jest tekst „Stabilny”, a jeśli liczba jest większa niż 200 , zostanie wyświetlony tekst „Zwiększ”, jak pokazano na poniższym zrzucie ekranu. Aby rozwiązać to zadanie w programie Excel, mogą Ci pomóc następujące formuły w tym artykule.
- Sumuj komórki z tekstem i liczbami w programie Excel
- Na przykład mam listę wartości zawierającą ciągi liczbowe i tekstowe, teraz chcę zsumować tylko liczby oparte na tym samym tekście, spójrz na poniższy zrzut ekranu. Zwykle nie można bezpośrednio zsumować wartości z listy za pomocą ciągu tekstowego, tutaj przedstawię kilka formuł, które pozwolą sobie z tym zadaniem.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- 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!