Macro erstellen zum suchen Arbeitsblatt für eine Liste von strings an und markieren Sie die Zeile

Kann mir jemand helfen ein makro erstellen, die Suche nach einem Excel-Arbeitsblatt eine Liste mit 30 Saiten (z.B. SV-32488r1, SV-33485r1) und markieren Sie die Row wenn gefunden?

  • Ich bin mit Office 2010.
  • Ich bin kein Excel-oder VBA-wiz also ich habe keine Ahnung, wo zu beginnen.
  • Der Suche habe ich gefunden, nur erlauben Sie mir die Suche nach einer Zeichenfolge.

Vielen Dank im Voraus.

Sind Sie auf der Suche nach markieren einer Zeile in die einer Ihrer Liste von strings gefunden wird, oder alle Zeilen, in denen eine dieser Zeichenfolgen gefunden wird? Zusätzlich durch 'markieren' zu tun, zu der Sie navigieren möchten, dass die Zeile oder möchten Sie die Hintergrundfarbe ändern?
Ich möchte hervorheben, dass in jeder Zeile, in der einer der strings zu finden sind. Und von highlight, ich meine, ändern Sie die Hintergrundfarbe der Zeile, so kann ich mich leicht identifizieren die Zeilen. Ich danke Ihnen so sehr.
Sie können bedingte Formatierung verwenden, und COUNTIF. Ist kein VBA erforderlich.

InformationsquelleAutor user2985424 | 2014-06-26

  1. 1
    Public Sub HighlightListedValues()
    Dim strConcatList As String
    Dim cell As Range

    'Creates a string concatenating your list of strings, separated by |s
    'e.g. "item1|item2|item3|item4|"
    For Each cell In Sheets("List").Range("A1:A30")
        strConcatList = strConcatList & cell.Value & "|"
    Next cell

    'For each used cell in Column A of sheet1, check whether the value in that cell
    'is contained within the concatenated string
    For Each cell In Intersect(Sheets("Sheet1").Range("A:A"), Sheets("Sheet1").UsedRange)
        If InStr(strConcatList, cell.Value) > 0 Then       'InStr returns 0 if the string isn't found
            cell.EntireRow.Interior.Color = RGB(255, 0, 0) 'Highlights the row in red if value found
        End If
    Next cell
End Sub

    Dies wird markieren Sie die relevanten Zeilen in rot, wenn die folgenden Bedingungen erfüllt wird:

    • Die Daten passend zu den Werten, die Sie suchen, ist in Spalte A des Arbeitsblattes mit dem Namen "Tabelle1"
    • Ihre Liste von strings enthalten ist, in den Zellen A1:A30 in einem Arbeitsblatt namens "Liste"

    Änderung der Namen der Tabellenblätter und Bereiche bei Bedarf, z.B. Wenn Sie möchten, suchen Sie in den Spalten A bis C ein worksheet namens "Daten" würden Sie ändern Sheets("Sheet1").Range("A:A") zu Sheets("Data").Range("A:C")

    Hoffe, das hilft!

    Ich habe geändert, die Linien zu: (Sheets("Gap-Analyse").Range("E:E"), Sheets("Gap-Analyse").UsedRange) . . . Für Jede Zelle In Intersect(Sheets("Gap-Analyse").Range("E:E"), Sheets("Gap-Analyse").UsedRange) ich erhalte die Fehlermeldung "Run-time error '9': Subscript out of range"
    Versuchen Sie es mit den Blatt-Schreibweise und nicht den Namen des Blattes.
    Bitte erläutern Sie. Ich dachte, "Tabelle1" in Sheets("Tabelle1").Range("A:A") bezeichnet den Namen des Arbeitsblatts, die ich arbeite, die den Namen "Gap-Analyse".
    Ihre Annahme richtig ist, kann ich nur annehmen, dass es ein Tippfehler irgendwo z.B. Ihr Blatt scheinbar, um den Namen "Gap-Analyse", aber es wäre vielleicht ein Leerzeichen am Ende (so dass der "Gap-Analyse ") vielleicht? Alternativ könnte man das Blatt, index-oder Blatt-codename, im detail erläutert hier
    Umbenannt habe ich das Blatt "Tabelle1" und bekam trotzdem den Fehler. Ich habe auch versucht, verwenden Sie die Blatt-Codenamen, aber es macht nicht so mit .Bereich angehängt. Sind Sie sicher, dass es nicht etwas anderes falsch mit dieser Zeile: For Each Zelle In Sheets("SV-32248r1|SV-32336r1").Range("E1:E100")

    InformationsquelleAutor Aiken

  2. 1

    Habe ich erstellt-makro finden Sie die Liste der Wörter und markieren Sie die Zelle.
    wenn ich den code ist auch die Hervorhebung der leeren Zellen zwischen den Werten. auch ich erforderlich, den code zu finden, sofern der Zelle enthalten, das Wort zwischen den Worten.

    Beispiel:
    Ich erstellte zu finden, und markieren Sie das Wort "RWA" in den Zellen. sollte es zu finden und markieren, wenn es in der Mitte der Zelle mag " RWA ".

    Grüße,

    Parthi

    Folgenden Code:

    Public Sub HighlightListedValues()

Dim strConcatList As String
Dim cell As Range


For Each cell In Sheets("Bad Words").Range("A1:A30")
    strConcatList = strConcatList & cell.Value & "|"
Next cell

    For Each cell In Intersect(Sheets("Data").Range("A:Z"), Sheets("data").UsedRange)
    If InStr(strConcatList, cell.Value) > 0 Then
        cell.Interior.Color = 63125789
    End If
Next cell

    End Sub

    InformationsquelleAutor Parthiban C

  3. 0

    Ungetestet das Teil, die Farben, die er in aber dies sollte Ihnen einen guten start

    '====================================================================================
iWarnColor = xlThemeColorAccent2
' This Group is what I use to delte a row.
' If you want to delete another row just change the term your searching for
    Do
       Set c = SrchRng.find("CHANGE THIS TO WHAT YOU WANT TO FIND", LookIn:=xlValues)
       If Not c Is Nothing Then c.EntireRow.ColorIndex = iWarnColor
   Loop While Not c Is Nothing
'=====================================================================================

    Hier ist, was ich in der Vergangenheit verwendet zum löschen von Zeilen, die bestimmte Texte

    Do
       Set c = AsrchRng.find("Date", LookIn:=xlValues)
       If Not c Is Nothing Then c.EntireRow.Delete
   Loop While Not c Is Nothing
    Do
       Set c = AsrchRng.find("Note", LookIn:=xlValues)
       If Not c Is Nothing Then c.EntireRow.Delete
   Loop While Not c Is Nothing
    Do
       Set c = AsrchRng.find("Time", LookIn:=xlValues)
       If Not c Is Nothing Then c.EntireRow.Delete
   Loop While Not c Is Nothing

    also anstelle des-c.entirerow.löschen Sie einfach ändern Sie die Zeile, die Farben der Reihe

    in der Vergangenheit ich habe diese 2 Zeilen um die Farbe einer Zeile

    iWarnColor = xlThemeColorAccent2
ws.rows(k).Interior.ColorIndex = iWarnColor

    macht die gesamte Zeile gelb.

    Sind eh Werte für "DIES ÄNDERN, WAS SIE WOLLEN ZU FINDEN," Komma getrennt wie die folgenden: Set c = SrchRng.finden("string1","string2", LookIn:=xlValues)
    Nein, was ich getan habe, wenn Sie versuchen zu finden mehrere Werte, die ich kopieren Sie es einfach wieder, ich kann werfen, was ich in der Vergangenheit verwendet haben
    hast du es testen? die Schleife wird beendet, wenn c ist nichts, auch wenn Sie die AsrchRng etwas wie AsrchRng = ActiveSheet.Range("A4:E" & Zeilen.Zählen) und es endet am Ende der Reihe
    Ja, getestet habe ich es in Excel 2002 und die ganze Sache aufgehängt. Auch wenn Sie FindNext es wäre wrap-around und finden das erste auftauchen wieder ab, so dass c nie nichts, es sei denn, es gibt keine Zellen, die Ihren Kriterien entsprechen. Der Grund, warum Ihr delete-Beispiel funktioniert, weil es löscht eine Zelle, nachdem er Sie findet, irgendwann gibt es keine mehr Zellen, die den Kriterien entsprechen.

    InformationsquelleAutor user3271518

  4. 0

    Dies ist, was ich derzeit habe in das makro.

    Public Sub HighlightListedValues()
Dim strConcatList As String
Dim cell As Range

'Creates a string concatenating your list of strings, separated by |s
'e.g. "item1|item2|item3|item4|"
For Each cell In Sheets("32281r3|32342r1").Range("E1:E178")
    strConcatList = strConcatList & cell.Value & "|"
Next cell

'For each used cell in Column A of sheet1, check whether the value in that cell
'is contained within the concatenated string
For Each cell In Intersect(Sheets("Gap Analysis").Range("E:E"), Sheets("Gap Analysis").UsedRange)
    If InStr(strConcatList, cell.Value) > 0 Then       'InStr returns 0 if the string isn't found
        cell.EntireRow.Interior.Color = RGB(255, 0, 0) 'Highlights the row in red if value found
    End If
Next cell
End Sub
    Ich habe den code-arbeiten durch subsituting Sheets("32281r3|32342r1") mit Sheets("Liste") und erstellen Sie ein neues Blatt mit dem Namen " Liste mit alle meine Suchbegriffe in Spalte E1:E178. Das ist jetzt arbeiten, aber die Zeilen, die den Suchkriterien entsprechen, nicht hervorgehoben, rot. Nur die ersten 4 Zeilen der Gap-Analyse-Blatt sind.
    Eine andere Sache zu erwähnen ist, dass die Zelle enthält andere Daten andere Informationen. Zum Beispiel, die Zelle enthalten könnte "Die neue Linie der Autos wurden veröffentlicht und ein Ford hat den code 32281r3". Wenn InStr(strConcatList, Zelle.Wert) > 0, Dann arbeiten Sie?
    Leider Sie, dass der check nicht funktionieren, es sei denn, der code, den Sie suchen, ist der einzige Inhalt der Zelle.

    InformationsquelleAutor user2985424

Schreibe einen Kommentar