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
|