Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Помогите начинающему! Добавлено: 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 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам