Здравствуйте уважаемые форумчане.
Прошу помощи в создании модуля класса.
Суть задачки : есть экселевский лист с 12-ю кнопками (ActivX Controls). Выполняемый код по нажатию этих кнопок однотипный. Чтобы не писать 12-ть идентичных vba-процедур, используя методику () попробовал создать новый модуль класса, в котором уже описан отклик на нажатие кнопок. Однако, не могу разобраться в синтаксисе инициализации кнопок с рабочего листа и привязки их к созданному классу, см. лист "Sheet1" 5-ая строка :
Set amyButton(i).myButton = Sheets("Sheet1").OLEObjects(ClassType:="Forms.CommandButton.1", Name:="CommandButton" & i)
Строка сейчас закоментирована, т.к. при переходе на лист сразу выдаётся ошибка : "Run-time error 1004. Application-definedor object-defined error"
Файлик аттачу.
Пож-та, подскажите, как правильно написать?
Буду признателен за помощь
С уважением.
Прошу помощи в создании модуля класса.
Суть задачки : есть экселевский лист с 12-ю кнопками (ActivX Controls). Выполняемый код по нажатию этих кнопок однотипный. Чтобы не писать 12-ть идентичных vba-процедур, используя методику () попробовал создать новый модуль класса, в котором уже описан отклик на нажатие кнопок. Однако, не могу разобраться в синтаксисе инициализации кнопок с рабочего листа и привязки их к созданному классу, см. лист "Sheet1" 5-ая строка :
Set amyButton(i).myButton = Sheets("Sheet1").OLEObjects(ClassType:="Forms.CommandButton.1", Name:="CommandButton" & i)
Строка сейчас закоментирована, т.к. при переходе на лист сразу выдаётся ошибка : "Run-time error 1004. Application-definedor object-defined error"
Файлик аттачу.
Пож-та, подскажите, как правильно написать?
Буду признателен за помощь
С уважением.
