| Вопрос: Помогите начинающему! | Добавлено: 21.12.02 11:58 |
Автор вопроса:  Stanis
|
|
Здравствуйте уважаемые, такая ситуация по VBA: набираю: Sub cel()Dim i As Integer Dim foundCell As Variant Set foundCell = Worksheets(Лист1).Colu_ mns("B"). Find(cells(i, 1))... Выдает:"ошибка приложения 1004. Ошибка определяемая приложением или объектом. Отладка встает на Set... Вообще нужно находить в определенном диапазоне соответствующие значение и если оно есть присваивать значение стоящее рядом определенной ячейке. В чем ошибка, может есть другие методы решить вышеописанную задачу? С уважением. |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа: Paul Вопросов: 19 Ответов: 11 |
Профиль | | #1 | Добавлено: 23.12.02 11:46 |
|
Пробуйте так... (Скорее всего cells(i, 1) - неверно, нужно использовать Worksheets().Cells()) Dim xlRange as Range, cObj as Object, strFT as String strFT = Worksheets("Имя").Cells(i,1) Set xlRange = xlApp.Columns(2) Set cObj = xlRange.Find(What:=strFT, LookAt:=2, SearchOrder:=1) If Not cObj Is Nothing Then MsgbOx "Найдено" else Msgbox "Не найдено" End If |
||
Страница: 1 |