Fråga : Anknöt celler för Excel VBA fynd

Hi den pröva förmiddagen för

I att skriva en skriva, att ska kretsa till och med alla arbetssedlar i mitt arbetsbok och sökande för anknöt celler till en detalj, tilltalar skulle hjälp för

Any ”för frrr/isis " är great

Thanks

Mark " klar "

Svar : Anknöt celler för Excel VBA fynd

Aaron blod skrev en utmärkt general ämnar fyndet som var rutinmässigt (”det Kickbutt fyndet”) på http://www.xl-logic.com/modules.php?name=Downloads&d_op=getit&lid=228 som du kan måste för att registrera för att denna plats ska få till det anknyter.

Jag tillfogade en makro till appellen alla som finner rutinmässigt för att söka täcker för text, som du specificerar i formler. Den ska därefter valt alla sådan celler. Som du går från arbetssedeln till arbetssedeln, du kan därefter granska de val.

Om du sökte efter, formler, som hänvisar till namngiven, spänner lik frrr_isis, skriver in precis att text som svar på mata in boxas.

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:

UnderSearchAllSheets ()
Dunkel ws som arbetssedeln
Dunkel rg som spänner
Dunkla FindText som stränger
FindText = Application.InputBox (”behaga skriver in tilltala, eller namngett spänna dig önskar att finna”),
För varje ws i ActiveWorkbook.Worksheets
    Fastställd rg = ingenting
    Fastställd rg = Find_Range (FindText, ws. Celler, xlFormulas, xlPart som, är falska)
    Om inte rg är ingenting därefter
        ws. Aktivera
        rg. Valt
    Avsluta om
Därefter
Avsluta suben

'Find_Range som är skriftlig vid Aaron Ge  första erfarenh 
Fungera Find_Range (Find_Item som varianten, _,
    Search_Range som spänner, _,
    Valfria LookIn som XlFindLookIn = xlValues, _,
    Valfria LookAt som XlLookAt = xlPart, _,
    Valfria MatchCase som Boolean = falsk) som spänner
     
    Dunkelt c som spänner, FirstAddress som stränger
     
    Med Search_Range
        Uppsättning c =. Fynd (_,
            Vad: =Find_Item _,
            LookIn: =LookIn _,
            LookAt: =LookAt _,
            SearchOrder: =xlByRows _,
            SearchDirection: =xlNext _,
            MatchCase: =MatchCase _,
            SearchFormat: borttagnings för =False) 'som detta benämner för XL2000 och tidigare
        Om inte c är ingenting därefter
            Fastställda Find_Range = c
            FirstAddress = c.Address
            Gör
                Fastställda Find_Range = union (Find_Range, c)
                Uppsättning c = .FindNext (c)
            Kretsa stunder inte c är ingenting och c.Address <> FirstAddress
        Avsluta om
    Avsluta med
     
Avsluta fungerar
Andra lösningar  
 
programming4us programming4us