Pergunta : Pilhas lig achado de Excel VBA

Olá!, o

I am que tenta escrever um certificado que desse laços através de todas as folhas em meus manual de instruções e busca para pilhas lig a uma ajuda particular do

Any frrr do endereço do “/isis " seria o great

Thanks

Mark class= do

Resposta : Pilhas lig achado de Excel VBA

O sangue de Aaron escreveu uma rotina de uso geral excelente do achado (de “achado Kickbutt”) em http://www.xl-logic.com/modules.php?name=Downloads&d_op=getit&lid=228 que você pode ter que registar para que este local começ a essa ligação.

Eu adicionei um macro para chamar que rotina do achado para procurarar todas as folhas pelo texto que você especific nas fórmulas. Selecionará então todas tais pilhas. Enquanto você vai da folha à folha, você pode então rever aquelas seleções.

Se você procurava as fórmulas que provêem uma escala nomeada como o frrr_isis, apenas incorpora esse texto em resposta à caixa da 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 secundário ()
WS não ofuscante como a folha
Rg não ofuscante como a escala
FindText não ofuscante como a corda
FindText = Application.InputBox (“incorporar por favor o endereço ou a escala que nomeada você quer encontrar”)
Para cada WS em ActiveWorkbook.Worksheets
    Ajustar o rg = nada
    Ajustar o rg = o Find_Range (FindText, WS. Pilhas, xlFormulas, xlPart, falsos)
    Se não o rg não é nada então
        WS. Ativar
        rg. Seleto
    Terminar se
Em seguida
Submarino da extremidade

'Find_Range escrito por Aaron Sangue
Função Find_Range (Find_Item como a variação, _
    Search_Range como a escala, _
    LookIn opcional como XlFindLookIn = xlValues, _
    LookAt opcional como XlLookAt = xlPart, _
    MatchCase opcional como bôoleano = falso) como a escala
     
    C não ofuscante como a escala, FirstAddress como a corda
     
    Com Search_Range
        Ajustar c =. Encontrar (_
            Que: =Find_Item, _
            LookIn: =LookIn, _
            LookAt: =LookAt, _
            SearchOrder: =xlByRows, _
            SearchDirection: =xlNext, _
            MatchCase: =MatchCase, _
            SearchFormat: supressão do =False) 'este termo para XL2000 e mais cedo
        Se não c não é nada então
            Ajustar Find_Range = c
            FirstAddress = c.Address
            Fazer
                Ajustar Find_Range = união (Find_Range, c)
                Ajustar c = .FindNext (c)
            Dar laços quando não c não for nada e c.Address <> FirstAddress
        Terminar se
    Terminar com
     
Terminar a função
Outras soluções  
 
programming4us programming4us