Vraag : Excel VBA vindt Verbonden Cellen

Hallo,

I am een manuscript zou proberen te schrijven dat door alle aantekenvellen in mijn werkboek en onderzoek naar verbonden cellen aan een bepaald adres „frrr/ISIS "

Any great

Thanks

Mark zijn

Antwoord : Excel VBA vindt Verbonden Cellen

Bloed van Aaron schreef een uitstekend algemeen doel routine („Vondst Kickbutt“) in http://www.xl-logic.com/modules.php?name=Downloads&d_op=getit&lid=228 vindt u voor deze plaats kunt moeten registreren om aan die verbinding te krijgen.

Ik voegde een macro aan vraag toe dat routine vindt om alle bladen naar tekst te zoeken die u in formules specificeert. Het zal dan al dergelijke cellen selecteren. Aangezien u van aantekenvel aan aantekenvel gaat, kunt u die selecties dan herzien.

Als u formules zocht die een genoemde waaier zoals frrr_isis van verwijzingen voorzien, ga enkel die tekst in antwoord op het inputvakje in.

Spijker zonder kop
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:

Sub SearchAllSheets ()
Schemerige ws als Aantekenvel
Schemerige rg als Waaier
Schemerige FindText als Koord
FindText = Application.InputBox („te gaan gelieve het adres of de genoemde waaier in u wilt vinden“)
Voor Elke ws in ActiveWorkbook.Worksheets
    Reeks rg = niets
    Reeks rg = Find_Range (FindText, ws. Valse cellen, xlFormulas, xlPart,)
    Als niet rg dan niets is
        ws. Activeer
        rg. Selecteer
    Beëindig als
Daarna
Sub van het eind

'Find_Range door het Bloed dat van Aaron wordt geschreven
Functie Find_Range (Find_Item als Variant, _
    Search_Range als Waaier, _
    Facultatieve LookIn als XlFindLookIn = xlValues, _
    Facultatieve LookAt als XlLookAt = xlPart, _
    Facultatieve MatchCase zoals Van Boole = Vals) als Waaier
     
    Schemerig c als Waaier, FirstAddress als Koord
     
    Met Search_Range
        Vastgesteld c =. Vind (_
            Wat: =Find_Item, _
            LookIn: =LookIn, _
            LookAt: =LookAt, _
            SearchOrder: =xlByRows, _
            SearchDirection: =xlNext, _
            MatchCase: =MatchCase, _
            SearchFormat: =False) 'Schrapping deze termijn voor XL2000 en vroeger
        Als niet c dan niets is
            Vastgestelde Find_Range = c
            FirstAddress = c.Address
            
                Plaats Find_Range = Unie (Find_Range, c)
                Plaats c = .FindNext (c)
            Lijn terwijl niet c niets en c.Address FirstAddress <> is
        Eind als
    Eind met
     
De Functie van het eind
Andere oplossingen  
 
programming4us programming4us