Cuestión : Células ligadas hallazgo de Excel VBA

Hola, el

I que intenta escribir una escritura que colocará a través de todas las hojas de trabajo en mi libro de trabajo y búsqueda para las células ligadas a una ayuda particular del

Any del “frrr/ISIS " de la dirección sería el great

Thanks

Mark class= del

Respuesta : Células ligadas hallazgo de Excel VBA

La sangre de Aaron escribió una rutina de fines generales excelente del hallazgo (“hallazgo de Kickbutt”) en http://www.xl-logic.com/modules.php?name=Downloads&d_op=getit&lid=228 que usted puede tener que para colocarse para que este sitio consiga a ese acoplamiento.

Agregué una macro para llamar que rutina del hallazgo para buscar todas las hojas para el texto que usted especifica en fórmulas. Entonces seleccionará todas tales células. Mientras que usted va de la hoja de trabajo a la hoja de trabajo, usted puede entonces repasar esas selecciones.

Si usted buscaba las fórmulas que se refieren a una gama nombrada como el frrr_isis, apenas incorpora ese texto en respuesta a la caja de la entrada.

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 secundario ()
WS dévil como hoja de trabajo
Rg dévil como gama
FindText dévil como secuencia
FindText = Application.InputBox (“incorporar por favor la dirección o la gama nombrada que usted quiere encontrar”)
Para cada WS en ActiveWorkbook.Worksheets
    Fijar el rg = nada
    Fijar el rg = Find_Range (FindText, WS. Células, xlFormulas, xlPart, falsos)
    Si no el rg entonces no es nada
        WS. Activar
        rg. Selecto
    Terminar si
Después
Submarino del extremo

'Find_Range escrito por Aaron Blood
Función Find_Range (Find_Item como variante, _
    Search_Range como gama, _
    LookIn opcional como XlFindLookIn = xlValues, _
    LookAt opcional como XlLookAt = xlPart, _
    MatchCase opcional como boleano = falso) como gama
     
    C dévil como gama, FirstAddress como secuencia
     
    Con Search_Range
        Fijar c =. Encontrar (_
            Qué: =Find_Item, _
            LookIn: =LookIn, _
            LookAt: =LookAt, _
            SearchOrder: =xlByRows, _
            SearchDirection: =xlNext, _
            MatchCase: =MatchCase, _
            SearchFormat: cancelación del =False) 'este término para XL2000 y anterior
        Si no c entonces no es nada
            Fijar Find_Range = c
            FirstAddress = c.Address
            Hacer
                Fijar Find_Range = la unión (Find_Range, c)
                Fijar c = .FindNext (c)
            Colocar mientras que no c no es nada y c.Address <> FirstAddress
        Terminar si
    Terminar con
     
Terminar la función
Otras soluciones  
 
programming4us programming4us