|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
18.11.2009, 12:26 | #1 |
Форумчанин
Регистрация: 30.10.2009
Сообщений: 138
|
ошибка - Run-time error '91' Object variable or With block variable not set
Здравствуйте всем!
у меня имеется эксель файл(книга), там масса форм и эффектов сделанные на вба! всё работало нормально и в один момент стало выдавать такую ошибку в одном месте: Run-time error '91' Object variable or With block variable not set указывает на это место: Private Sub ComboBox1_Change() Set cell = [c:c].Find(Me.ComboBox1) Set ra = cell.EntireRow СЮДА-> Set ro = LastRow(cell).EntireRow Dim li As Long, le As Long ListBox2.Clear For li = ra.Row To ro.Row If cells(li, 1) <> "" And Not cells(li, 2) Like "*№ ИП*" Then ListBox2.AddItem "" ListBox2.List(le, 1) = CStr(cells(li, 3)) ListBox2.List(le, 0) = CStr(cells(li, 2)) ListBox2.List(le, 2) = li le = le + 1 End If Next li End Sub раньше этой ошибки не было! откудо появилась - ума не приложу((( хотя при этом функция нормально работает, всё выполняет но в последний момент выдаёт такую ошибку! В чём дело? |
18.11.2009, 12:32 | #2 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
1. Если Set cell = [c:c].Find(Me.ComboBox1) Is Nothing, то будет ошибка.
Т.е. на активном листе значение Me.ComboBox1 не найдено. Вообще-то, такую проверку делать никогда не помешает. 2. Попробуйте в этой строке заменить Me.ComboBox1 на Me.ComboBox1.Text
Чем шире угол зрения, тем он тупее.
|
18.11.2009, 12:39 | #3 |
Форумчанин
Регистрация: 30.10.2009
Сообщений: 138
|
Me.ComboBox1.Text
не помогает а если is Nothing поставить - выводит ошибку! |
18.11.2009, 12:43 | #4 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Правильно будет так:
Код:
Чем шире угол зрения, тем он тупее.
|
18.11.2009, 12:56 | #5 |
Форумчанин
Регистрация: 30.10.2009
Сообщений: 138
|
не получается((
может неправильно втыкаю(( хотя подчёркиваю, что прога нормально работала, потом чёт вот такая ошибка выдаваться стала... |
18.11.2009, 13:11 | #6 |
Форумчанин
Регистрация: 30.10.2009
Сообщений: 138
|
нашёл в чём ошибка!
ваще нереально!!!!))))) |
18.11.2009, 13:22 | #7 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
И в чем же?
Чем шире угол зрения, тем он тупее.
|
18.11.2009, 13:29 | #8 |
Форумчанин
Регистрация: 30.10.2009
Сообщений: 138
|
[c:c]
то есть в моей работе [3:3] в 3ей строке был цвет номером 36(жёлтый) я изменил цвет и вышла такая ошибка! |
18.11.2009, 13:38 | #9 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
Т.е. Вы ищете даннные из Me.ComboBox1 в 3-ей строке листа и это каким-то образом зависит от цвета заливки ячейки (цвета шрифта)?
Чем шире угол зрения, тем он тупее.
|
18.11.2009, 13:46 | #10 |
Форумчанин
Регистрация: 30.10.2009
Сообщений: 138
|
типо того))
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Pivot Run-time Error 1004 | stream71 | Microsoft Office Excel | 0 | 07.09.2009 15:41 |
Undefined variable | SPY-FeinD | PHP | 5 | 27.05.2009 19:41 |
Run-time error '1004'. Недопустимый параметр! | nikolai_P | Microsoft Office Excel | 2 | 20.04.2009 18:06 |
Ошибка Run-Time error 13 | DEZuv | Microsoft Office Access | 0 | 03.04.2009 12:25 |
Подскажите! Run-time error '7' Out of memory | evgenjp | Свободное общение | 3 | 01.10.2008 09:16 |