Не работает макрос

Stander Гость	#1 01.11.2011 12:15:07 Добрый день. Вот макрос Private Sub Worksheet_Change(ByVal Target As Range) [B1] = [A1] - [A2] End Sub Почему то считает правильно, но вылетает ошибка екселя. Что тут может быть?

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	#2 01.11.2011 12:17:41 Код должен быть размещен в модуле листа. У меня работает без ошибки.

Stander Гость	#3 01.11.2011 12:31:43 {quote}{login=vikttur}{date=01.11.2011 12:17}{thema=}{post}Код должен быть размещен в модуле листа. У меня работает без ошибки.{/post}{/quote} А как ее на "Лист1" завязать? With не работает...

Stander

Гость

01.11.2011 12:33:04

{quote}{login=The_Prist}{date=01.11.2011 12:31}{thema=}{post}Предположу, что ошибка переполнения. А вообще Вы должны указать что за ошибка появляется - их больше 3000 тысяч в VBA, гадать не хочется....

Private Sub Worksheet_Change(ByVal Target As Range)
Application.Enableevents = 0
[B1] = [A1] - [A2]
Application.Enableevents = 1
End Sub{/post}{/quote}

Спасибо :)
А номера ошибки нет. Просто crash. С возможностью восстановления файла.

EducatedFool Пользователь Сообщений: 3695 Регистрация: 23.12.2012	#5 01.11.2011 12:56:21 > Просто crash. С возможностью восстановления файла Значит, проблема не в макросе, а в самом Excel (либо Excel криво установлен, либо разработчики из Microsoft чего-то перемудрили) Если ошибка проявляется часто - скачайте другой дистрибутив Office, и переустановите его. http://excelvba.ru/download/Excel/2003 Надстройки для Excel Парсинг сайтов Мониторинг цен конкурентов

Читают тему