UnderSearchAllSheets ()
Dunkel ws som arbetssedeln
Dunkel rg som spänner
Dunkla FindText som stränger
FindText = Application.InputBox (”behaga skriver in tilltala, eller namngett spänna dig önskar att finna”),
För varje ws i ActiveWorkbook.Worksheets
Fastställd rg = ingenting
Fastställd rg = Find_Range (FindText, ws. Celler, xlFormulas, xlPart som, är falska)
Om inte rg är ingenting därefter
ws. Aktivera
rg. Valt
Avsluta om
Därefter
Avsluta suben
'Find_Range som är skriftlig vid Aaron Ge första erfarenh
Fungera Find_Range (Find_Item som varianten, _,
Search_Range som spänner, _,
Valfria LookIn som XlFindLookIn = xlValues, _,
Valfria LookAt som XlLookAt = xlPart, _,
Valfria MatchCase som Boolean = falsk) som spänner
Dunkelt c som spänner, FirstAddress som stränger
Med Search_Range
Uppsättning c =. Fynd (_,
Vad: =Find_Item _,
LookIn: =LookIn _,
LookAt: =LookAt _,
SearchOrder: =xlByRows _,
SearchDirection: =xlNext _,
MatchCase: =MatchCase _,
SearchFormat: borttagnings för =False) 'som detta benämner för XL2000 och tidigare
Om inte c är ingenting därefter
Fastställda Find_Range = c
FirstAddress = c.Address
Gör
Fastställda Find_Range = union (Find_Range, c)
Uppsättning c = .FindNext (c)
Kretsa stunder inte c är ingenting och c.Address <> FirstAddress
Avsluta om
Avsluta med
Avsluta fungerar
|