Question : Excel Macro/VB pour rechercher les feuilles de travail multiples

Bonjour tout le monde, le besoin du

I de l'aide sur le script

Following d'Excel Macro/VB est mon

I de condition ont un cahier de travail d'exceler avec 7 feuilles de travail, les feuilles de travail 1-6 pour avoir un certain numbers.

Worksheet 7 a la liste de nombres que les mai ou mai ne pas être en feuilles de travail 1-6.

I veulent pour écrire un code de VB/macro, où dans lui prend une colonne particulière en feuille 7 comme entrée pour rechercher et à rechercher cela numérote en feuille 1-6

If que le résultat de recherche est vrai mettent à jour alors la feuille 7 avec l'endroit du résultat de recherche et sinon trouvé alors accentuer la cellule en feuille 7 avec l'aide d'un certain colour.

Any sur cet appreciated. class= de

Réponse : Excel Macro/VB pour rechercher les feuilles de travail multiples

Salut là, essayent ce macro.

Ceci suppose que la « feuille 7 » est la dernière feuille en votre cahier de travail, et vous veulent rechercher toutes autres feuilles de travail.

Changer le strColumn en colum en feuille 7 pour laquelle a les nombres à rechercher.
Changer l'intStartRow en nombre de rangée sur la feuille 7 où les nombres commencent.
Vous veiller pour avoir une colonne vierge pour les résultats du côté droit de la colonne avec les nombres.

Respect,

Rob.

1 : 2 : 3 : 4 : 5 : 6 : 7 : 8 : 9 : 10 : 11 : 12 : 13 : 14 : 15 : 16 : 17 : 18 : 19 : 20 : 21 : 22 : 23 :

FindNumbers secondaire () strColumn = « A » intStartRow = 1 Placer l'objLastSheet = les feuilles (Sheets.Count) Pour l'intRow = l'intStartRow à objLastSheet.Cells (65536, strColumn). Extrémité (xlUp). Rangée strValue = objLastSheet.Cells (intRow, strColumn). Valeur strFoundSheet = "" Pour l'intSheet = 1 à Sheets.Count - 1 Feuilles (intSheet). Activer Placer l'objCell = le Cells.Find (ce qui : =strValue, ensuite : =Sheets (intSheet). Cellules (1, 1), LookIn : =xlValues, LookAt : =xlWhole, SearchOrder : =xlByRows, SearchDirection : =xlNext, MatchCase : =False, SearchFormat : =False) Sinon l'objCell n'est rien alors strFoundSheet = feuilles (intSheet). Nom Sortir pour Finir si Après Si "" <> de strFoundSheet alors objLastSheet.Cells (intRow, strColumn). Excentrage (0, 1).Value = strFoundSheet Autrement objLastSheet.Cells (intRow, strColumn). Excentrage (0, 1).Interior.Color = 255 Finir si Après objLastSheet.Activate Sous-marin d'extrémité