VBNet - Форум - Sub, Function, or Property not defined (Error 35)?

Вопрос: Sub, Function, or Property not defined (Error 35)? Добавлено: 23.06.05 11:44

Автор вопроса: sergcher

Написал макрос на VBA в Excel.
На функции Find (см. текст ниже) макрос выдает compile error: Sub, Function, or Property not defined (Error 35)

Коллеги, в чем засада и как из нее выйти?

Задача- написать макрос, аналогичный функции VLOOKUP, с той разницей, что проверка должна проводиться не на равенство двух ячеек, а на вхождение текста из одной ячейки в текст из другой ячейки.

Sub Ratings()

'определение первой строки
With Selection()
    RBegin = .Row
End With

'определение высоты новой (необработанной) таблицы, значение кол-ва проданных книг > 0
REndNew = RBegin
Do While Cells(REndNew, 1).Value > 0
    REndNew = REndNew + 1
Loop

'определение высоты старой (обработанной) таблицы,
REndOld = RBegin
Do While Cells(REndOld, 11).Value > 0
    REndOld = REndOld + 1
Loop

For i = RBegin To REndNew
  For j = RBegin To REndOld
   If Find(Cells(i, 1).Value, Cells(j, 11).Value, 1) > 0 Then
     ' перенос параметров из обработанных таблиц
     Cells(i, 23).Value = Cells(j, 13).Value
     Cells(i, 24).Value = Cells(j, 14).Value
     Cells(i, 25).Value = Cells(j, 15).Value
     Cells(i, 26).Value = Cells(j, 16).Value
     Cells(i, 27).Value = Cells(j, 17).Value
     Cells(i, 28).Value = Cells(j, 18).Value
     End If
  Next
Next

End Sub
Ответить

Ответы Всего ответов: 1

Номер ответа: 1 Автор ответа: sne Разработчик Offline Client ICQ: 233286456 Вопросов: 34 Ответов: 5445	Web-сайт: hw.t-k.ru Профиль \| \| #1	Добавлено: 23.06.05 12:56
	Дык и нет такой функции... Метод, у какого-то объекта, может и есть, а вот функции нет... попробуй InStr... Ответить

Страница: 1 |