Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/18: Рейтинг темы: голосов - 18, средняя оценка - 4.56
0 / 0 / 0
Регистрация: 30.08.2011
Сообщений: 3
1

Макрос выдает compile error: Sub, Function, or Property not defined (Error 35)

31.08.2011, 12:28. Показов 3626. Ответов 1
Метки нет (Все метки)

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

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

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
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
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
31.08.2011, 12:28
Ответы с готовыми решениями:

Отчего может возникать ошибка Compile error: sub or function not defined
Private Sub Данные_Click() Dim i As Integer Dim j As Integer Dim поле As String n =...

Compile error: User-defined type not defined помогите разобраться
Есть код: Private Sub Поле1_GotFocus() Dim dbs As Database Dim rst As Recordset Dim...

Compile error: Sub or Functon not defined
Private Sub CommandButton1_Click() Dim a, b, x, y As Double a = CDb1(TextBox1.Text) b =...

Исправить Compile error: Label not defined в коде
Здравствуйте, помогите, пожалуйста, урок из книжки. Пишу код, а он мне выдает Compile error: Label...

1
1 / 1 / 0
Регистрация: 09.05.2011
Сообщений: 20
31.08.2011, 13:20 2
Попробуй Find заменить на InStr
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.08.2011, 13:20

Объект My.Computer - Compile error: Variable not defined
Compile error: Variable not defined Помогите разобраться начинающему. Что где надо включить,...

Проблема с формулами в VBA Excel: Run-time error 1004. Application defined or object-defined error
Здравствуйте. Я столкнулся с такой проблемой: я пишу вот такой код ...

Ошибка в коде: 'Run-time error '1004': Application-defined or object-defined error'
Помогите разобраться что здесь не так: Sub ProtectWorksheet() Worksheets(1).Protect...

Решение с ошибкой Run time error:'1004' Application-defined or object-defined error
Есть такой код, который применяет условное форматирование , а именно закрашивает все ячейки,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru