SpecialCells и SheetSelectionChange

[I10]

Возвращение свойства SpecialCells, например,
1. Set myR2 = mySel.SpecialCells(xlCellTypeFormulas)
2. S = mySel.SpecialCells(xlCellTypeFormulas).Address
вызывает обработчик события [Application]_SheetSelectionChange

Подскажите, есть ли возможность избежать вызова этого события?

[GSerg]

Хм... ты тоже баг в экселе нашёл?
А какой excel?

[I10]

2003
баг?
Может быть Excel что-то делает с выделением при вызове SpecialCells?

[GSerg]

Дык не должен, во всяком случае не документировано.

Но багов там правда есть.

[uhm]

Проверять неохота, но если правда, то действительно баг, и это прикольно

По теме - заведи глобальную переменную, перед использованием SpecialCells устанавливай ее значение в False, после использования - True, а в обработчике исполняй команды, только если эта переменная=True.

[I10]

Понимаю,
но это не достаточно прикольно

[Gloom]

Эта фишка по крайней мере с 97 ёкселя тянется. Более того - для разных значений XlCellType работает по разному (например, для xlCellTypeLastCell событие SelectionChange вызывается дважды)
Лечится просто:

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

Application.EnableEvents = False
Set myR2 = mySel.SpecialCells(xlCellTypeFormulas)
Application.EnableEvents = True

[I10]

Спасибо