Hoe markeert u specifieke tekst in een cel op basis van andere tekst?
In Excel is het misschien eenvoudig om cellen te markeren op basis van een specifieke tekst, maar wat als je slechts een deel van die tekst binnen een cel wilt laten opvallen — zonder de hele cel te markeren? Voor veel gebruikers is dat een uitdaging. In dit artikel deel ik handige trucs om precies dat voor elkaar te krijgen in Excel.
Markeer een of meer specifieke teksten binnen meerdere cellen met VBA-code
Stel dat ik een reeks tekststrings heb en nu wil ik de specifieke tekst „Sky” in deze cellen markeren om het resultaat te verkrijgen zoals op de volgende schermafbeeldingen te zien is:
 |  |  |
Om slechts een deel van de tekst in een cel te markeren, helpt de volgende VBA-code u daarbij.
1. Selecteer de cellen waarin u de specifieke tekst wilt markeren en druk vervolgens op ALT + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Module-venster.
VBA-code: Een deel van de tekst binnen een cel markeren:
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. Druk vervolgens op F5 om deze code uit te voeren. Er verschijnt een dialoogvenster waarin u wordt gevraagd de tekst in te voeren die u alleen wilt markeren, zie schermafbeelding:
4. Klik daarna op de knop OK. Vervolgens worden alle opgegeven teksten in de cellen gemarkeerd, zie schermafbeelding:
| | |
VBA-code: Meerdere trefwoorden uit tekststrings markeren:
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
Voer in het venster dat verschijnt de trefwoorden in die u wilt markeren (scheid de woorden met een komma), zie schermafbeelding:
Klik vervolgens op de knop OK, waarna de opgegeven woorden direct zijn gemarkeerd, zie schermafbeeldingen:
| |  |
Opmerking: Bovenstaande codes zijn hoofdlettergevoelig.
Markeer een of meer specifieke teksten binnen meerdere cellen met een geweldige functie
Bent u niet vertrouwd met code in Excel? Dan introduceer ik hier een eenvoudige tool: Kutools voor Excel. Met de functie Trefwoordmarkering markeert u meerdere specifieke trefwoorden tegelijk binnen cellen.
Na installatie van Kutools voor Excel, gaat u als volgt te werk:
1. Klik op Kutools > Tekst > Trefwoordmarkering, zie schermafbeelding:
2. Voer in het dialoogvenster Trefwoordmarkering de volgende stappen uit:
- Selecteer het gegevensbereik dat u wilt gebruiken in het vak Bereik.
- Selecteer de cellen met de trefwoorden die u wilt markeren, of typ de trefwoorden handmatig (gescheiden door komma’s) in het Trefwoord-tekstvak.
- Geef ten slotte een letterkleur op voor het markeren van de teksten door de optie Lettertypekleur van trefwoordaan te vinken. (Selecteer de optie)Celinhoudkleur om de volledige cellen met de trefwoorden te markeren.)
3. Klik vervolgens op de knop Ok, waarna alle opgegeven teksten worden gemarkeerd, zoals te zien is in de onderstaande schermafbeelding:
Opmerking: Deze functie is niet hoofdlettergevoelig. Als u de tekst wilt markeren met hoofdlettergevoeligheid, vink dan Hoofdlettergevoelig aan in het dialoogvenster Trefwoordmarkering.
Markeer specifieke tekst binnen een cel op basis van andere tekst met VBA-code
Hier is nog een situatie: ik heb twee kolommen, waarbij de eerste kolom tekststrings bevat en de tweede kolom de specifieke tekst. Nu moet ik de overeenkomstige tekst in de eerste kolom markeren op basis van de specifieke tekst in de tweede kolom voor elke rij.
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen>Moduleen plak de volgende code in het Module-venster.
VBA-code: Een deel van de tekst binnen een cel markeren op basis van andere tekst:
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. Nadat u de code hebt geplakt, drukt u op F5 om deze uit te voeren. Er verschijnt een dialoogvenster waarin u wordt gevraagd het gegevensbereik te selecteren dat zowel de tekststring als de specifieke tekst bevat die u wilt markeren en gebruiken als basis. Zie schermafbeelding:
4. Klik daarna op de knop OK. Vervolgens worden alle overeenkomstige teksten in de eerste kolom – op basis van de specifieke tekst in de tweede kolom – rood gekleurd, zoals te zien is op de volgende schermafbeelding:
Meer gerelateerde artikelen:
- Deel van tekst vet maken bij samenvoegen van twee kolommen in Excel
- In een Excel-werkblad merkt u mogelijk dat, nadat u twee celwaarden hebt samengevoegd met een formule, het niet mogelijk is om slechts een deel van de tekst in die formulecel vet te maken — wat best vervelend kan zijn. Hoe maakt u een deel van de tekst vet bij het samenvoegen van twee kolommen in Excel?
- Celkolommen samenvoegen en tekstkleur behouden in Excel
- Zoals bekend gaat bij het samenvoegen of combineren van meerdere celkolommen tot één kolom de opmaak van de cellen—zoals letterkleur en getalnotatie—verloren. In dit artikel introduceer ik handige trucs om celkolommen eenvoudig te combineren én de tekstkleur zoveel mogelijk te behouden in Excel.
- Specifieke tekst Gebaseerd op waarde weergeven in een andere kolom
- Stel dat u een lijst met getallen heeft en op basis daarvan specifieke tekst wilt weergeven in een andere kolom. Als het getal in de cel bijvoorbeeld tussen 1 en 100 ligt, verschijnt „Decrease” in de aangrenzende cel; ligt het tussen 101 en 200, dan wordt „Stable” weergegeven; en is het groter dan 200, dan verschijnt „Increase” — zoals te zien is in de onderstaande schermafbeelding. De formules in dit artikel helpen u deze taak eenvoudig uit te voeren in Excel.
- Cellen optellen met Splitsen op tekst en nummer in Excel
- Stel dat u een lijst hebt met waarden die zowel getallen als tekststrings bevatten, en u wilt alleen de getallen optellen die horen bij dezelfde tekst. Bekijk de volgende schermafbeelding. Normaal gesproken kunt u de numerieke waarden in een lijst met tekst niet direct optellen — maar in dit artikel introduceer ik enkele handige formules om deze taak eenvoudig aan te pakken.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins