почему Worksheet_Change вызывается 217 раз?

[saint_shade]

подскажите пожалуйста как бороться с сабжем.
создаю новую книгу в экселе.
ячейка (1,1) изначально пуста.
на чистую страницу цепляю ивент:

Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Cells(1, 1).Value2 = ActiveSheet.Cells(1, 1).Value2 + 1
End Sub


при изменении значения любой ячейки в (1,1) прибавляется 217.

з.ы. сорри, если вопрос был уже, но в поиске не нашел.

[Twister]

Код: Выделить всё

ActiveSheet.Cells(1, 1).Value2 = ActiveSheet.Cells(1, 1).Value2 + 1

Провоцирует возникновение события Worksheet_Change. Получается зацикливание.

[saint_shade]

а как его избежать, если в обработке нужно обращаться к каким-то заданным ячейкам?

[Viper]

а как его избежать, если в обработке нужно обращаться к каким-то заданным ячейкам?

Зачем в событии изменения ячейки менять ее еще раз? Вот тебе и зацикливание. Что-то с логикой работы программы не то.
З.Ы. Теме самое место в VBA, перенес бы кто... а то правов нет.

[saint_shade]

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

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

(вб первый раз увидел три дня назад, многого еще попросту не знаю, если есть проще метод - буду благодарен за подсказку)

[Twister]

Решается элементарно, нужно включать "серые клеточки":

Код: Выделить всё

Dim bNoChange as Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
if bNoChange then exit sub
bNoChange = true
ActiveSheet.Cells(1, 1).Value2 = ActiveSheet.Cells(1, 1).Value2 + 1
bNoChange = false
End Sub

[saint_shade]

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