2016-06-09 10 views
0

Ich habe Absätze in jeder Zelle, die ich analysieren möchte, um bestimmte Wörter zu finden und markieren Sie sie dann (nicht nur die Zelle). Es kann hart codiert werden. Ich habe online gesucht und nichts gefunden, was das Problem, vor dem ich stehe, gelöst hat. Ich danke dir sehr.Wie suchen und markieren Sie mehrere Wörter in Zellen in Excel mit Makros?

+1

So in einer einzelnen Zelle, Sie Textabsätze haben - und in diesem Absatz, möchten Sie ein bestimmtes Wort, wenn gefunden hervorgehoben? Dies wird sicherlich VBA benötigen, was hast du bisher versucht, das funktioniert nicht? Anstatt das Wort hervorzuheben, was ist, wenn Sie nur erfahren haben, ob das Wort gefunden wurde oder nicht? – BruceWayne

+0

'teilen 'Sie die Zelle nach dem Raum, durchlaufen Sie das Array und überprüfen Sie Ihre Schlüsselwörter, wenn Sie beide zurück in die Zelle fallen lassen. Wenn Übereinstimmungen vorhanden sind, färben Sie sie vor dem Löschen. – findwindow

+1

Zeig uns, was du versucht hast. Ich würde reguläre Ausdrücke und die Eigenschaft characters des Bereichsobjekts verwenden. Übrigens ist dies kein kostenloser Code-Schreibdienst, aber wir können Ihnen bei Code helfen, den Sie entwickeln möchten. Bitte lesen Sie die HILFE Themen für [Wie stelle ich eine gute Frage] (http://stackoverflow.com/help/how-to-ask), und auch [Wie man ein minimales, komplettes und überprüfbares Beispiel erstellt] (http: // stackoverflow.com/help/how-to-ask) : //stackoverflow.com/help/mcve) –

Antwort

-1

Sie können einzelne Wörter nicht manuell markieren. Sie könnten jedoch die Schriftfarbe eines einzelnen Wortes ändern.

Nach diesem link, können Sie dies versuchen:

Option Explicit 

Sub Highlight() 

    Dim rCell As Range 
    Dim zFind As String 
    Dim lFindLen As Long 

    zFind = "test" 
    lFindLen = Len(zFind) 

    For Each rCell In Selection 

     With rCell 
      .Characters(Start:=InStr(.Value, zFind), Length:=lFindLen) _ 
      .Font.ColorIndex = 3 'Red -- Yellow too hard to read! 
     End With 

    Next rCell 

End Sub 
+0

Das ist fair. Wird in einer Sekunde bearbeitet. –

Verwandte Themen