Можно ли обратиться к объекту, запустившему событие?

[ekesar]

Объект на лист excel добавлен из панели "Элементы управления".

Например процедура обработки соб такая:

Sub CommandButton1_Click()
 ...
End Sub

Можно ли обратиться к CommandButton1 не указывая CommandButton1, а какой-нибудь объект, характеризующий текущ объект (что-то вроде this)?

Если объект на форме, то можно обратиться к ActiveControl, а на worksheet такого свойства нет.

Спасибо.

[slan]

а зачем ?

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

[ekesar]

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

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

именно это я и хочу

[EducatedFool]

Option Compare Text

Sub test()
    Dim sh As Worksheet
    For Each sh In ThisWorkbook.Worksheets
        For Each button In sh.OLEObjects
            If button.Name Like "commandbutton*" Then
                Debug.Print "На листе " & sh.Name & " найдена кнопка " & button.Name
            End If
        Next
    Next
End Sub

А изменять кнопки можно так:

Sub test()
    Dim sh As Worksheet, ole As OLEObject, button As CommandButton
    For Each sh In ThisWorkbook.Worksheets
        For Each ole In sh.OLEObjects
            Set button = ole.Object
            If TypeName(button) = "commandbutton" Then
                button.Caption = "кнопка"
                button.BackColor = vbGreen
            End If
        Next
    Next
End Sub

А как получить из какой-либо процедуры объект, представляющий нажатую (выделенную в данный момент) кнопку, я так и не придумал...

[ekesar]

как сделать программу обработки, общую для всех кнопок..

нашел в книге Уокенбаха "Профессиональное программирование на VBA в Excel 2002"

Вставьте в проект модуль класса (для этого необходимо выбрать команду Inserts Class Module), назовите его BtnClass и введите следующий код. Вам следует модифицировать процедуру But tonGroup_Click.

Public WithEvents ButtonGroup As MsForms.CommandButton
Private Sub ButtonGroup_Click()
...
end sub

Данная процедура будет запускаться при возникновении события Initialize для диалогового окна UserForm. Обратите внимание, что в коде исключается "реакция" на кнопку с названием OKButton. Таким образом, щелчок на кнопке OKButton не приведет к вызову процедуры ButtonGroup_Click.

Dim Buttons() As New BtnClass
Private Sub UserForm_Initialize{J
Dim ButtonCount As Integer
Dim ctl As Control
' Создание объектов Button
ButtonCount - 0
For Each ctl In UserForml.Controls
If TypeName(ctl) = "CommandButton" Then
If ctl.Name <> "OKButton" Then 'Пропуск OKButton
ButtonCount = ButtonCount + 1
ReDim Preserve Buttons{1 To ButtonCount)
Set Buttons(ButtonCount).ButtonGroup = ctl
End If
End If
Next ctl
End Sub

данный способ не действует для кнопок на листе

[slan]

извиняйте, отвлекся..

кратко так:
в модуле класса - переменная withevents и соответствующая ей обработка события..

в основном модуле - создается коллекция из экземпляров созданного ранее класса, каждый из которых и содержит кнопку..

подробнее - см файл

[slan]

sorry one more time..

wrong name..

it's correct:

[ekesar]

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