Sub SearchAllSheets ()
Тусклый ws как рабочий лист
Тусклое rg как ряд
Тусклое FindText как шнур
FindText = Application.InputBox («пожалуйста впишите адрес или названный ряд, котор вы хотите найти»)
Для каждого ws в ActiveWorkbook.Worksheets
Установите rg = ничего
Установите rg = Find_Range (FindText, ws. Клетки, xlFormulas, xlPart, ложные)
Если не rg ничего после этого
ws. Активируйте
rg. Отборно
Закончитесь если
Затем
Подводная лодка конца
'Find_Range написанное Аарон Кровью
Функция Find_Range (Find_Item как вариант, _
Search_Range как ряд, _
Опционное LookIn как XlFindLookIn = xlValues, _
Опционное LookAt как XlLookAt = xlPart, _
Опционное MatchCase как булевско = ложно) как ряд
Тусклый c как ряд, FirstAddress как шнур
С Search_Range
Установите c =. Находите (_
: =Find_Item, _
LookIn: =LookIn, _
LookAt: =LookAt, _
SearchOrder: =xlByRows, _
SearchDirection: =xlNext, _
MatchCase: =MatchCase, _
SearchFormat: Delete =False) 'эта термина для XL2000 и более раньше
Если не c ничего после этого
Установите Find_Range = c
FirstAddress = c.Address
Сделайте
Установите Find_Range = соединение (Find_Range, c)
Установите c = .FindNext (c)
Закрепите петлеть пока не c будет ничего и c.Address <> FirstAddress
Закончитесь если
Закончитесь с
Закончите функцию
|