aliyevak
1

Вылетает ошибка "Object variable or With block variable not set"

14.12.2010, 19:04. Показов 5365. Ответов 2
Метки нет (Все метки)

Всем привет!
Вот такой код. Вылетает ошибка "Object variable or With block variable not set" - помогите разобраться в чем дело. Я новичок в VBA ).
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
For i = 1 To 10
 If Target.Column = i Then
     If (Cells(Target.Row, i).comment.Visible = False) Then
     Cells(Target.Row, i).AddComment
     Cells(Target.Row, i).comment.Visible = False
     Cells(Target.Row, i).comment.Text Text:="Yusif:" & Now
     End If
 End If
Next i
End Sub
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.12.2010, 19:04
Ответы с готовыми решениями:

Ошибка "object variable or With block variable not set" при попытке обращения к форме. VBA Access 7.0.
Добрый день. Данный код Dim frm As Form Set frm = Form_frmAdd_EditWareList ...

Ошибка при закрытии макроса с диаграммой "Object variable or With block variable not set"
Здравствуйте. Я только начал изучать VBA поэтому не закидывайте помидорами :black_eye.: В общем,...

ошибка "Run-time error '91': Object variable or With block variable not set"
приветствую! имеется документ на нескольких листах, заполняется по дням соответственно на многих...

Работа с БД MS Access и ошибка "object variable or with block variable not set"
В источниках данных ODBC есть такая штука "База данных MS Access", и назначена ей база "D:\БД...

2
Tolya
15.12.2010, 13:23 2
Скорее всего не инициализирована переменная типа Range передаваемая в подпрограмму
89 / 36 / 14
Регистрация: 03.11.2010
Сообщений: 429
16.12.2010, 07:59 3
Очевидно ошибка в строке -
Код
If (Cells(Target.Row, i).comment.Visible = False) Then
обращаетесь к несуществующему объекту (комментарий в ячейке не создан)
перед обращением проверьте -
Код
If Not (Cells(Target.Row, i).Comment) Is Nothing Then
Непонятно зачем строка -
Код
Cells(Target.Row, i).comment.Visible = False
после проверки -
Код
If (Cells(Target.Row, i).comment.Visible = False) Then
доработайте логику.

В цикле не вижу необходимости, не проще -
Код
If Target.Column < 11 Then
И последнее, Вы хотите датировать изменения ячеек? Комментарий не совсем подходящее место для этого, может быть лучше скрытый лист?
И не забудьте, что изменяться может не только 1 ячейка, но и диапазон. Этот вариант у Вас не рассмотрен.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.12.2010, 07:59
Помогаю со студенческими работами здесь

"Object variable or With block variable not set "
Всем доброго дня !! Sub oop() Dim ra As Range ra = Range(&quot;A239:A255&quot;) For Each Cell In ra...

Создание класса и ошибка 'object variable or with block variable not set'
Всем привет! Почему когда описываешь класс вот так: Dim a, b, c As Integer Private Sub...

Что за ошибка object variable or with block variable not set
У меня оффис 2010. Подскажите почему выдает ошибку object variable or with block variable not set и...

Ошибка: Object variable or With block variable not set
необходимо создать форму авторизации к access подключила SQL Server(БД находится на нем), в...


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

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

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