Ошибка при закрытии макроса с диаграммой "Object variable or With block variable not set"

@Титёф · Регистрация: 18.12.2012

Здравствуйте. Я только начал изучать VBA поэтому не закидывайте помидорами :black_eye.:
В общем, делал простенький макрос: с помощью кнопок ActiveX смена исходных данных диаграммы и изменения цвета заголовка. При закрытии MS Excel выдаёт ошибку: "run-time error '91': Object variable or With block variable not set."
Код выглядит так:

Visual Basic

Sub Диаграмма()
 
entrprze = Cells(18, "G").Value
qrow = Cells(17, "G").Value + entrprze
  With ActiveSheet.ChartObjects("Диаграмма 1").Chart
    .SetSourceData Source:=Range("C3:N3,C" & qrow & ":N" & qrow)
    .ChartTitle.Text = "Отчёт за " & Cells(qrow, "B").Value & " квартал " & Cells(2 + entrprze, "B").Value
    .ChartStyle = entrprze + 16
    .ChartTitle.Font.ColorIndex = Cells(entrprze + 2, "B").Font.ColorIndex
               
  End With
End Sub

При запуске debug отсылает на строку With ActiveSheet.ChartObjects("Диаграмма 1").Chart. Имя диаграммы проверил и менял. Оно верное. Ошибка возникает только при закрытии программы. Сам макрос работает. Все функции выполняются. В чём может быть проблема?
Заранее спс.

@Maxsss · 18.12.2012, 02:27

Если сначала закрывать книгу - то ошибки не возникнет.

Если же сразу закрывать приложение , то срабатывают обработчики для ComboBox1 и ComboBox2, запускается процедура Диаграмма, но ActiveSheet уже не привязан к листу книги:ActiveSheet= Nothing, что приводит к ошибке.

Решить проблему можно, обработав событие закрытия книги на уровне объекта Application (не на уровне Workbook).

Создать объект Application, который будет реагировать на события можно через пользовательские классы (что сложновато).

Хотя, наверное все можно сделать гораздо проще,например, для данного конкретного случая можно ограничиться перехватом и обработкой ошибки.

Управление ошибками в VBA. Операторы On Error, Resume, объект Err

@Титёф · 18.12.2012, 02:35 **[ТС]**

Сообщение от Maxsss

Хотя, наверное все можно сделать гораздо проще,например, для данного конкретного случая можно ограничиться перехватом и обработкой ошибки.

Благодарю за развёрнутое пояснение. Не подскажете ли, как сделать перехват обработанной ошибки? Ссылка, которую Вы скинули, информативная и весьма полезная, но на данный момент моя база знаний по VBA недостаточна, чтобы разобраться в этом. Освою это на более позднем этапе обучения.
Попробовал ещё вместо ActiveSheet обратиться к объекту sheets("Лист1"), но на этот раз также сработала ошибка, но другая: Run-time error '1004': Method 'Sheets' of object '_Global' failed

Скрипт · 18.12.2012, 08:54

Титёф, вы какое-то свойство задали ComboBoxу, что у него событие срабатывет при закрытии книги. Что это за свойство - я не знаю - нужно время потратить, чтобы изучить все свойства ComboBox.

Удалите ваши ComboBoxы и сделайте их заново. Только задайте одно свойство: ListFillRange, а остальные свойства не трогайте.

@Maxsss · 18.12.2012, 10:08

Титёф, если хотите воспользоваться обработкой ошибок, вставьте перед строчкой

Visual Basic

1	With ActiveSheet.ChartObjects("Диаграмма 1").Chart

строчку

Visual Basic

1	On Error Resume Next

- эта конструкция игнорирует все ошибки в процедуре.

А для выяснения, какое свойство меняется (если есть желание), в позновательных целях можно перед строчкой With ActiveSheet.ChartObjects("Диаграмма 1").Chart вставить Debug.Print ComboBox1.Visible, сделать активным Immediate Window в редакторе VBA и, меняя свойства ComboBox, выяснить, что же меняентся перед закрытием.

@Титёф · 18.12.2012, 16:28 **[ТС]**

Сообщение от Скрипт

Титёф, вы какое-то свойство задали ComboBoxу, что у него событие срабатывет при закрытии книги. Что это за свойство - я не знаю - нужно время потратить, чтобы изучить все свойства ComboBox.
Удалите ваши ComboBoxы и сделайте их заново. Только задайте одно свойство: ListFillRange, а остальные свойства не трогайте.

Хммм...это идея. Возможно. Спасибо большое. Попробую.

Сообщение от Maxsss

Титёф, если хотите воспользоваться обработкой ошибок, вставьте перед строчкой

Благодарю! Буду пробовать.

@Maxsss 16 / 16 / 0 Регистрация: 10.09.2012 Сообщений: 113
	18.12.2012, 02:27	2
	Если сначала закрывать книгу - то ошибки не возникнет. Если же сразу закрывать приложение , то срабатывают обработчики для ComboBox1 и ComboBox2, запускается процедура Диаграмма, но ActiveSheet уже не привязан к листу книги:ActiveSheet= Nothing, что приводит к ошибке. Решить проблему можно, обработав событие закрытия книги на уровне объекта Application (не на уровне Workbook). Создать объект Application, который будет реагировать на события можно через пользовательские классы (что сложновато). Хотя, наверное все можно сделать гораздо проще,например, для данного конкретного случая можно ограничиться перехватом и обработкой ошибки. Управление ошибками в VBA. Операторы On Error, Resume, объект Err 1

@Титёф 0 / 0 / 0 Регистрация: 18.12.2012 Сообщений: 3
	18.12.2012, 02:35 [ТС]	3
	Сообщение от Maxsss Хотя, наверное все можно сделать гораздо проще,например, для данного конкретного случая можно ограничиться перехватом и обработкой ошибки. Благодарю за развёрнутое пояснение. Не подскажете ли, как сделать перехват обработанной ошибки? Ссылка, которую Вы скинули, информативная и весьма полезная, но на данный момент моя база знаний по VBA недостаточна, чтобы разобраться в этом. Освою это на более позднем этапе обучения. Попробовал ещё вместо ActiveSheet обратиться к объекту sheets("Лист1"), но на этот раз также сработала ошибка, но другая: Run-time error '1004': Method 'Sheets' of object '_Global' failed 0

Скрипт 5467 / 1147 / 50 Регистрация: 15.09.2012 Сообщений: 3,512
	18.12.2012, 08:54	4
	Титёф, вы какое-то свойство задали ComboBoxу, что у него событие срабатывет при закрытии книги. Что это за свойство - я не знаю - нужно время потратить, чтобы изучить все свойства ComboBox. Удалите ваши ComboBoxы и сделайте их заново. Только задайте одно свойство: ListFillRange, а остальные свойства не трогайте. 1

@Титёф 0 / 0 / 0 Регистрация: 18.12.2012 Сообщений: 3
	18.12.2012, 16:28 [ТС]	6
	Сообщение от Скрипт Титёф, вы какое-то свойство задали ComboBoxу, что у него событие срабатывет при закрытии книги. Что это за свойство - я не знаю - нужно время потратить, чтобы изучить все свойства ComboBox. Удалите ваши ComboBoxы и сделайте их заново. Только задайте одно свойство: ListFillRange, а остальные свойства не трогайте. Хммм...это идея. Возможно. Спасибо большое. Попробую. Сообщение от Maxsss Титёф, если хотите воспользоваться обработкой ошибок, вставьте перед строчкой Благодарю! Буду пробовать. 0

Опции темы