Questione : Cellule collegate ritrovamento di Excel VBA

Ciao, il

I che prova a scrivere uno scritto che collegherà attraverso tutti i manuali nel miei libro di esercizi e ricerca delle cellule collegate “ad un aiuto particolare del

Any del frrr/ISIS " di indirizzo sarebbe great

Thanks

Mark class= del

Risposta : Cellule collegate ritrovamento di Excel VBA

L'anima dell'Aaron ha scritto una procedura per tutti gli usi eccellente del ritrovamento (“ritrovamento di Kickbutt„) a http://www.xl-logic.com/modules.php?name=Downloads&d_op=getit&lid=228 che potete dovere per registrare affinchè questo luogo otteneste a quel collegamento.

Ho aggiunto una macro per denominare che procedura del ritrovamento per cercare tutti gli strati testo che specificate nelle formule. Allora selezionerà tutte le tali cellule. Mentre andate dal manuale al manuale, potete allora esaminare quelle selezioni.

Se steste cercando le formule che riferiscono una gamma chiamata come il frrr_isis, digita appena quel testo in risposta alla scatola dell'input.

Chiodino a testa laterale
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 secondario ()
La WS fioca come manuale
Rg fioco come gamma
FindText fioco come stringa
FindText = Application.InputBox (“entrare prego nell'indirizzo o nella gamma che chiamata volete trovare„)
Per l'ogni WS in ActiveWorkbook.Worksheets
    Regolare il rg = niente
    Regolare il rg = Find_Range (FindText, WS. Cellule, xlFormulas, xlPart, falsi)
    Se non il rg allora è niente
        la WS. Attivare
        rg. Prescelto
    Concluder se
Dopo
Sommergibile dell'estremità

'Find_Range scritto da Aaron Blood
Funzione Find_Range (Find_Item come variante, _
    Search_Range come gamma, _
    LookIn facoltativo come XlFindLookIn = xlValues, _
    LookAt facoltativo come XlLookAt = xlPart, _
    MatchCase facoltativo come booleano = falso) come gamma
     
    C fioca come gamma, FirstAddress come stringa
     
    Con Search_Range
        Regolar c =. Trovare (_
            Che cosa: =Find_Item, _
            LookIn: =LookIn, _
            LookAt: =LookAt, _
            SearchOrder: =xlByRows, _
            SearchDirection: =xlNext, _
            MatchCase: =MatchCase, _
            SearchFormat: cancellazione del =False) 'questo termine per XL2000 e più presto
        Se non la c allora è niente
            Regolare Find_Range = la c
            FirstAddress = c.Address
            Fare
                Regolare Find_Range = l'unione (Find_Range, c)
                Regolar c = .FindNext (c)
            Collegare mentre non la c è niente e c.Address <> FirstAddress
        Concluder se
    Concluder con
     
Concludere la funzione
Altre soluzioni  
 
programming4us programming4us