Глобальная переменная = 0 в Worksheet_SelectionChange

[smbd]

Excel 2003. в Модуле1 объявлена глобальная переменная
Public qqq As Byte
и в дальнейшем ей присвоено значение(например 7).

В модуле Листа1 следующий код:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
MsgBox (qqq)
End Sub

При переводе курсора на другую ячейку появляется сообщение "7", т.е.
всё работает. Но как только я вставляю на лист activeX-кнопку

Set cb = Worksheets(1).OLEObjects.Add(ClassT ype:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=500, Top:=400, Width:=110, Height:=40),

при выборе другой ячейки появляется сообщение "0". Где теряется значение глобальной переменной qqq? Помогите плиз )

[EducatedFool]

Где теряется значение глобальной переменной qqq?

При некоторых событиях (типа вашего OLEObjects.Add) Excel может заново инициализировать все глобальные переменные ("обнуляя" их, если выражаться проще)
Подробностей не знаю - просто читал об это где-то на форумах.

Короче, считайте это глюком (или особенностью) Excel.
Как побороть - придумайте сами.
Или откажитесь от добавления кнопок, или избавляйтесь от глобальных переменных (они редко нужны, я их в коде почти никогда не использую)

[IgorGO]

а когда (и где) qqq получает значение 7?
вы добавили код в проект. переменные обнулились.
обьявите
Public Const qqq as byte = 7

[smbd]

Значение qqq присваивается в модуле формы(при запуске, в самом начале) в зависимости от того, что выбрал пользователь. Что интересно, до первого ручного изменения положения курсора qqq везде = 7, но стоит раз вручную нажать на любую ячейку на листе, и qqq = 0. Судя по всему это действительно глюк Excel, будем избавляться от глобальных переменных, спасибо !

[vikttur]

Я когда-то так и не добился, почему Игорь (EducatedFool) не любит глобальных переменных
Сейчас вижу одну из причин. Есть еще?

[doober]

Виктор,не угадал.
Обнуляются все переменные,массивы,Static и ...........

[vikttur]

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

Обнуляются все переменные,массивы,Static и ...

Как при сбое или ошибке в коде...
Значит, не угадал

[EducatedFool]

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

Сейчас вижу одну из причин. Есть еще?

Больше, наверное, нет. Всё остальное - ИМХО, дело вкуса.

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

Да и в основном я собираю программу как конструктор - из отдельных блоков-функций (свой сайт я создал как раз для хранения этих функций - как в записной книжке).
Сейчас я просто закидываю кучу функций в отдельный модуль, и вызываю функции по необходимости, получая от них результат их работы.
А если бы это были процедуры, записывающие результаты в глобальные переменные, - мне бы ещё пришлось добавлять кучу строк кода (с этими переменными), и в ходе работы над проектом помнить, в какой переменной что хранится.
Да ещё и область видимости переменных учитывать...

[vikttur]

Понял, спасибо.

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

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

Мне это ближайшее время не грозит