Сообщество Чайников

Вопрос

Как в Visual Basic'е для Excel'а найти и выделить ячейку, содержимое которой ищется в диапазоне ячеек? Т.е. заполнены ячеки с А1 по А50 некоторыми числами, надо в этом диапазоне найти и выделить ячейкус конкретным значением (например «456»).

Ответ

Если диапазон ячеек неизвестен, то нужная ячейка ищется так:

I = 1

While (Worksheets(«Лист1»).Cells(I, 1).Value <> 10)

I = I + 1

Wend

'после отработки цикла переменная I будет равна

'номеру строки, столбца A (в данном примере)

'т.е. та ячейка в которой значение 10



Если диапазон известен, то цикл другой:

For I = 1 To 50

IF Worksheets(«Лист1»).Cells(I, 1).Value = 10 THEN J=I

Next J

Здесь цикл выполнится все 50 раз и в переменной J будет содержаться номер последней строки, где содержалось значение 10. Возможно как-то можно прерывать цикл. В классическом Бейсике это делалось оператором GOTO номер строки.

Из конференции Expert_FAQ