Créer la macro à la recherche de Feuille de calcul pour la liste de chaînes et de mettre en évidence la ligne

Quelqu'un peut-il m'aider à créer une macro qui va chercher une feuille de calcul Excel pour une liste de 30 chaînes de caractères (par exemple, SV-32488r1, SV-33485r1) et de mettre en évidence la Row quand on les trouve?

J'utilise Office 2010.
Je ne suis pas un Excel ou VBA wiz donc je n'ai aucune idée de par où commencer.
Les recherches je n'ai trouvé qu'permettez-moi de rechercher une chaîne de caractères.

Je vous remercie beaucoup à l'avance.

Vous êtes à la recherche pour mettre en surbrillance une ligne dans laquelle l'un de votre liste de chaînes de caractères est trouvé, ou toutes les lignes où l'une de ces chaînes est trouvé? En outre, par 'évidence' voulez-vous accédez à la ligne ou voulez-vous changer la couleur d'arrière-plan de celui-ci?
Je tiens à souligner à chaque ligne, dans lequel l'une des chaînes trouvées. Et par évidence, je veux dire changer la couleur d'arrière-plan de la ligne, donc je peux facilement identifier les lignes. Je vous remercie beaucoup.
Vous pouvez utiliser la mise en forme conditionnelle et COUNTIF pour cela. Pas de VBA nécessaire.

InformationsquelleAutor user2985424 | 2014-06-26

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
```
Il mettra en évidence les lignes pertinentes en rouge si la condition suivante est remplie:
- La comparaison des données les valeurs que vous recherchez est dans la colonne A de la feuille de calcul nommée "Feuil1"
- Votre liste de chaînes de caractères contenues dans les cellules A1:A30 d'une feuille de calcul nommée "Liste"
Modifier les noms des feuilles de calcul et des plages, comme p. ex. Si vous souhaitez rechercher dans les Colonnes A à C de la feuille de calcul nommée "Données", vous devez modifier Sheets("Sheet1").Range("A:A") à Sheets("Data").Range("A:C")

Espérons que cette aide!
- J'ai changé les lignes de: (Sheets("Gap Analysis").Range("E:E"), Sheets("Gap Analysis").UsedRange) . . . Pour Chaque cellule se Croisent(Sheets("Gap Analysis").Range("E:E"), Sheets("Gap Analysis").UsedRange) je reçois le message d'erreur "erreur d'Exécution '9': Indice en dehors de la plage"
- Essayez d'utiliser la feuille de notation et pas le nom de la feuille.
- Veuillez fournir des précisions. J'ai pensé "Sheet1" dans Sheets("Feuil1").Range("A:A") visé le nom de la feuille de calcul, je suis en train de travailler, ce qui est nommé "Analyse des écarts".
- Votre hypothèse est correcte, je ne peux que supposer qu'il y a une faute de frappe quelque part, par exemple, votre feuille de semble pour être nommé "Analyse des écarts" mais il pourrait avoir un espace à la fin (ce qui les rend "Analyse des écarts ") peut-être? Sinon, vous pouvez utiliser la feuille d'index ou de la feuille de nom de code, il est expliqué plus en détails ici
- J'ai renommé la feuille "Sheet1" et encore obtenu l'erreur. J'ai aussi essayé d'utiliser la feuille de nom de code, mais il n'aime pas que avec .Gamme ajouté à la fin. Êtes-vous sûr qu'il n'est pas quelque chose de mal avec cette ligne: Pour Chaque cellule Dans Sheets("SV-32248r1|SV-32336r1").Range("E1:E100")
- Public Sub HighlightListedValues() Dim strConcatList as String Dim cellule Que Pour Chaque cellule Dans Sheets("SV-32248r1|SV-32336r1").Range("E1:E100") strConcatList = strConcatList & de la cellule.Valeur & "|" cellule Suivante Pour Chaque cellule se Croisent(Sheets("Gap Analysis").Range("E:E"), Sheets("Gap Analysis").UsedRange) If InStr(strConcatList, la cellule.Valeur) > 0, Alors la cellule.EntireRow.L'intérieur.Color = RGB(255, 0, 0) Fin Si la cellule Suivante End Sub
- J'ai testé cela sur ma propre machine à l'aide des données de test et il a bien fonctionné, pourriez-vous modifier votre macro dans votre question, comme il est presque impossible de lire juste collé dans un commentaire?
- J'ai tenté d'afficher proprement dans une autre réponse post, mais je n'arrive pas à obtenir de présenter le code correctement.
- Pour une raison quelconque, cela ne fonctionne que si je copie la chaîne de caractères à partir de la feuille d'origine, il ne fonctionne pas si je le taper ou coller dans d'ailleurs. Et il ne fera que prendre exactement le cas de la chaîne. De toute façon pour changer de look pour une partie de la chaîne?
- Si vous avez une nouvelle question, veuillez demander à l'aide de l'Poser la Question de bouton.
InformationsquelleAutor Aiken
1

J'ai créé une macro pour trouver la liste de mots et de mettre en surbrillance la cellule.
lorsque j'utilise le code c'est aussi de mettre en évidence des cellules vides entre les valeurs. aussi, j'ai tenu le code pour trouver des cas où la cellule contenant le mot entre les mots.

Exemple:
J'ai créé pour trouver et mettre en surbrillance le mot "Désenfumage" dans les cellules. il doit trouver et de mettre en évidence si il est dans le milieu de la cellule comme " a désenfumage dans ".

Ce qui concerne,

Parthi

Code ci-dessous:
```
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
0

Non testé la partie que les couleurs dans, mais ce devrait vous donner un bon départ
```
'====================================================================================
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
'=====================================================================================
```
Voici ce que j'ai utilisé dans le passé pour supprimer les lignes qui contiennent des textes spécifiques
```
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
```
ainsi, au lieu de c.entirerow.supprimer il suffit de changer à la ligne que les couleurs de la ligne

dans le passé, j'ai utilisé ces 2 lignes à la couleur d'une ligne
```
iWarnColor = xlThemeColorAccent2
ws.rows(k).Interior.ColorIndex = iWarnColor
```
qui rend l'ensemble de la ligne jaune.
- Sont eh valeurs de "CHANGER CE QUE VOUS VOULEZ TROUVER" séparées par des virgules, comme les suivantes: c = SrchRng.find("chaîne1","chaîne2", LookIn:=xlValues)
- pas de ce que j'ai fait si vous essayez de trouver plusieurs valeurs je viens de le copier à nouveau je peux jeter ce que j'ai utilisé dans le passé
- avez-vous tester? la boucle s'arrête quand c est rien aussi, si vous définissez la AsrchRng à quelque chose comme Jeu AsrchRng = ActiveSheet.Range("A4:E" & les lignes.Le comte), il se termine à la fin de la plage
- Ouais je l'ai testé dans Excel 2002 et le tout accroché. Même si vous avez utilisé FindNext il serait enrouler autour et de trouver la première occurrence de nouveau, de sorte que c ne sera jamais rien à moins qu'il n'existe pas de cellules correspondant à vos critères. La raison que votre exemple d'effacement d'ouvrages est parce qu'il supprime une cellule après qu'il trouve, donc finalement il n'y a pas plus de cellules qui correspondent aux critères.
InformationsquelleAutor user3271518
0

C'est ce que j'ai actuellement dans la macro.
```
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
```
- J'ai obtenu le code de travail par subsituting Sheets("32281r3|32342r1") avec des Feuilles("Liste") et la création d'une nouvelle feuille nommée Liste avec tous mes éléments de recherche dans la colonne E1:E178. Maintenant, c'est un travail, mais les lignes qui correspondent aux critères de recherche ne sont pas mis en surbrillance rouge. Seulement les 4 premières lignes de l'Analyse de l'Écart de la feuille.
- Une autre chose à mentionner est que la cellule contient d'autres données autres informations. Par exemple, la cellule peut contenir des "La nouvelle ligne de voitures ont été libérés et une Ford a le code 32281r3". Si InStr(strConcatList, la cellule.Valeur) > 0 then travail?
- Malheureusement, cette vérification ne fonctionne pas à moins que le code que vous cherchez est le seul contenu de la cellule.
InformationsquelleAutor user2985424

Vous devez vous connecter pour publier un commentaire.