Jak zvýraznit konkrétní text v buňce na základě jiného textu?
V aplikaci Excel může být pro nás snadné zvýraznit buňky na základě konkrétního textu, ale zde chci zvýraznit konkrétní text v buňce, aby byl vynikající, ale ne celá buňka. To může být pro většinu z nás nepříjemné. V tomto článku budu hovořit o některých tricích pro řešení této úlohy v aplikaci Excel.
Zvýrazněte jeden nebo více konkrétních textů ve více buňkách pomocí kódu VBA
Například mám řadu textových řetězců a teď chci zvýraznit konkrétní text “Nebe”V těchto buňkách získáte výsledek jako následující snímky obrazovky:
Chcete-li zvýraznit pouze část textu v buňce, může vám pomoci následující kód VBA.
1. Vyberte buňky, u kterých chcete zvýraznit konkrétní text, a poté podržte klávesu ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Zvýrazněte část textu v buňce:
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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se okno s výzvou, které vám připomene zadání textu, který chcete pouze zvýraznit, viz screenshot:
4. A pak klikněte na tlačítko OK tlačítko, veškerý zadaný text byl zvýrazněn pouze v buňkách, viz screenshot:
Kód VBA: Zvýrazněte více klíčových slov z textových řetězců:
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
Potom do rozbalovacího pole zadejte klíčová slova, která chcete zvýraznit (oddělte slova čárkou), viz screenshot:
A pak klikněte OK tlačítko, zadaná slova byla zvýrazněna najednou, viz screenshoty:
Poznámka: Výše uvedené kódy rozlišují velká a malá písmena.
Zvýrazněte jeden nebo více konkrétních textů ve více buňkách pomocí úžasné funkce
Pokud nejste obeznámeni s kódem v aplikaci Excel, představím zde jednoduchý nástroj - Kutools pro Excel, S jeho Označit klíčové slovo můžete v buňkách zvýraznit konkrétní jedno nebo více klíčových slov najednou.
Po instalaci Kutools pro Excel, postupujte následovně:
1, klikněte Kutools > Text > Označit klíčové slovo, viz screenshot:
2. V Označit klíčové slovo V dialogovém okně proveďte následující operace:
- V části vyberte rozsah dat, který chcete použít Rozsah Textové pole;
- Vyberte buňky obsahující klíčová slova, která chcete zvýraznit, klíčová slova můžete také zadat ručně (oddělená čárkou) do Klíčové slovo Textové pole
- Nakonec byste měli určit barvu písma pro zvýraznění textů zaškrtnutím Označte barvy klíčových slov volba. (Chcete-li vybarvit celé buňky obsahující klíčová slova, vyberte Označte barvy obsahu buňky volitelný)
3. Potom klepněte na tlačítko Ok tlačítko, všechny zadané texty byly zvýrazněny, jak je uvedeno níže:
Poznámka: Tato funkce nerozlišuje velká a malá písmena, pokud chcete zvýraznit text s malými a velkými písmeny, zkontrolujte Zápas Case v Označit klíčové slovo dialogové okno.
Zvýrazněte konkrétní text v buňce na základě jiného textu pomocí kódu VBA
Tady je další situace, mám dva sloupce, jejichž první sloupec obsahuje textové řetězce a druhý sloupec je specifický text, nyní musím zvýraznit relativní text v prvním sloupci na základě konkrétního textu ve druhém sloupci pro každý řádek.
1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Zvýrazněte část textu v buňce na základě jiného textu:
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 vložení kódu stiskněte a stiskněte F5 po jeho spuštění se zobrazí okno s výzvou, které vám připomene výběr rozsahu dat, který obsahuje textový řetězec a konkrétní text, který chcete zvýraznit, a na základě, viz screenshot:
4. A pak klikněte na tlačítko OK Tlačítko, veškerý odpovídající text v prvním sloupci na základě konkrétního textu ve druhém sloupci byl zbarven červeně jako následující snímek obrazovky:
Více relativních článků:
- Tučný text části při zřetězení dvou sloupců v aplikaci Excel
- V listu aplikace Excel po zřetězení dvou hodnot buněk pomocí vzorců zjistíte, že nebude tučnou částí textu v buňce kombinovaného vzorce. To může být někdy nepříjemné, jak byste mohli tučným textem části při zřetězení dvou sloupců v aplikaci Excel?
- Zřetězte sloupce buněk a udržujte barvu textu v aplikaci Excel
- Jak všichni víme, při zřetězení nebo kombinování sloupců buněk do jednoho sloupce dojde ke ztrátě formátování buňky (jako je barva písma textu, formátování čísel atd.). V tomto článku představím několik triků, jak kombinovat sloupce buněk do jednoho a co nejsnadněji zachovat barvu textu v aplikaci Excel.
- Zobrazit konkrétní text na základě hodnot v jiném sloupci
- Předpokládám, že mám seznam čísel, nyní chci zobrazit nějaký konkrétní text v jiném sloupci na základě čísel tohoto sloupce. Například pokud je číslo buňky mezi 1–100, chci, aby se v sousední buňce zobrazil text „Zmenšit“, pokud je číslo mezi 101-200, zobrazí se text „Stabilní“ a pokud je číslo větší než 200 , zobrazí se text „Zvětšit“ jako následující snímek obrazovky. Při řešení tohoto úkolu v aplikaci Excel vám mohou pomoci následující vzorce v tomto článku.
- Součet buněk s textem a čísly v aplikaci Excel
- Například mám seznam hodnot obsahujících číselné a textové řetězce, nyní chci sčítat pouze čísla založená na stejném textu, podívejte se na následující snímek obrazovky. Za normálních okolností nemůžete hodnoty v seznamu sečíst přímo textovým řetězcem, zde vám představím několik vzorců pro řešení tohoto úkolu.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!