Вопрос : Эксел Macro/VB для того чтобы искать множественные рабочий лист

Привет всем, потребностью

I некоторая помощь на script

Following Эксел Macro/VB будет мое

I требования имеет workbook первенствовать с 7 рабочий лист, рабочий лист 1-6 для того чтобы иметь некоторое numbers.

Worksheet 7 имеют список номеров которые могут или не могут находиться в рабочий лист, котор 1-6.

I хотят написать Кодего VB/macro, куда в ем принимает вверх определенную колонку в листе 7 как входной сигнал для того чтобы искать и искать для того номера в листе 1-6

If результат поиска поистине после этого уточняет лист 7 с положением результата поиска и если после того как я после этого выделяет клетку в листе 7 с помощью некоторого colour.

Any на этом appreciated. class=

Ответ : Эксел Macro/VB для того чтобы искать множественные рабочий лист

Hi, пытаются этот макрос.

Это предполагает «лист 7» будет последним листом в вашем workbook, и вы хочет искать все другие рабочий лист.

Измените strColumn к colum в листе 7 имеет номера, котор нужно искать для.
Измените intStartRow к номеру рядка на листе 7 где номера начинают.
Сделайте конечно вас иметь пустую колонку для результатов на righthand стороне колонки с номерами.

Отношения,

Rob.

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21: 22: 23:

Sub FindNumbers () strColumn = «a» intStartRow = 1 Установите objLastSheet = листы (Sheets.Count) Для intRow = intStartRow к objLastSheet.Cells (65536, strColumn). Конец (xlUp). Рядок strValue = objLastSheet.Cells (intRow, strColumn). Значение strFoundSheet = "" Для intSheet = 1 к Sheets.Count - 1 Листы (intSheet). Активируйте Установите objCell = Cells.Find (: =strValue, поже: =Sheets (intSheet). Клетки (1, 1), LookIn: =xlValues, LookAt: =xlWhole, SearchOrder: =xlByRows, SearchDirection: =xlNext, MatchCase: =False, SearchFormat: =False) Если не objCell ничего после этого strFoundSheet = листы (intSheet). Имя Выходите для Закончитесь если Затем Если "" <> strFoundSheet после этого objLastSheet.Cells (intRow, strColumn). Смещение (0, 1).Value = strFoundSheet Еще objLastSheet.Cells (intRow, strColumn). Смещение (0, 1).Interior.Color = 255 Закончитесь если Затем objLastSheet.Activate Подводная лодка конца