Question : Cellules liées par trouvaille d'Excel VBA

Bonjour, le

I AM essayant d'écrire un manuscrit qui fera une boucle par toutes les feuilles de travail dans mon cahier de travail et recherche des cellules liées à une aide particulière du

Any du « frrr d'adresse/ISIS " serait le great

Thanks

Mark class= de

Réponse : Cellules liées par trouvaille d'Excel VBA

Le sang d'Aaron a écrit une excellente routine d'usage universel de trouvaille (« trouvaille de Kickbutt ») chez http://www.xl-logic.com/modules.php?name=Downloads&d_op=getit&lid=228 que vous pouvez devoir s'inscrire à cet emplacement pour obtenir à ce lien.

J'ai ajouté un macro pour appeler que routine de trouvaille pour rechercher toutes les feuilles le texte que vous spécifiez dans les formules. Il choisira alors toutes telles cellules. Pendant que vous allez de la feuille de travail à la feuille de travail, vous pouvez alors passer en revue ces choix.

Si vous recherchiez les formules qui mettent en référence une gamme appelée comme le frrr_isis, entrent dans juste ce texte en réponse à la boîte d'entrée.

Brad
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
42 :
43 :
44 :

SearchAllSheets secondaire ()
Le faible WS comme feuille de travail
Faible rg comme gamme
Faible FindText comme corde
FindText = Application.InputBox (« écrire svp l'adresse ou la gamme appelée que vous voulez trouver »)
Pour le chaque WS dans ActiveWorkbook.Worksheets
    Placer le rg = rien
    Placer le rg = le Find_Range (FindText, WS. Cellules, xlFormulas, xlPart, faux)
    Sinon le rg n'est rien alors
        le WS. Activer
        rg. Choisi
    Finir si
Après
Sous-marin d'extrémité

'Find_Range écrit par Aaron Blood
Fonction Find_Range (Find_Item comme variante, _
    Search_Range comme gamme, _
    LookIn facultatif comme XlFindLookIn = xlValues, _
    LookAt facultatif comme XlLookAt = xlPart, _
    MatchCase facultatif comme booléen = faux) comme gamme
     
    Faible c comme gamme, FirstAddress comme corde
     
    Avec Search_Range
        Placer c =. Trouver (_
            Ce qui : =Find_Item, _
            LookIn : =LookIn, _
            LookAt : =LookAt, _
            SearchOrder : =xlByRows, _
            SearchDirection : =xlNext, _
            MatchCase : =MatchCase, _
            SearchFormat : suppression de =False) 'cette limite pour XL2000 et plus tôt
        Sinon c n'est rien alors
            Placer Find_Range = c
            FirstAddress = c.Address
            Faire
                Placer Find_Range = union (Find_Range, c)
                Placer c = .FindNext (c)
            Faire une boucle tandis que pas c n'est rien et c.Address <> FirstAddress
        Finir si
    Finir avec
     
Finir la fonction
Autres solutions  
  •  MS Excel 2007 et pdf - l'exportation vers le pdf prend de longues heures !
    •
  •  Dans le Perl, comment j'ajoute une valeur à la liste, puis le contrôle pour voir si la valeur existent avant d'ajouter une nouvelle valeur
    •
  •  Comment fais j'initialiser de la HP BL460c G6 de san et de la HP XP 240000
    •
  •  Comment fais j'employer une clef de permis de volume sur un ordinateur de HP avec du CD de restauration
    •
  •  Emplacement primaire de deux SCCM dans l'annuaire actif
    •
  •  L'initiateur et la HP D2D de l'iSCSI R2 du serveur 2008 de Windows GERCENT l'issue
    •
  •  Stocker le dossier dans le mysql using connector.net et le champ de goutte
    •
  •  Carte vidéo d'USB - bit 32 sur le matériel travaillant au niveau du bit 64 ?
    •
  •  asp.net que j'essaye de convertir une forme de HTML en forme d'aspx ou ? ce qui jamais. Aide du besoin sur la façon dont à à elle.
    •
  •  Winzip 12 issues de secours du travail ?
    •
     
    programming4us programming4us