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
|