Элемент управления Excel vba -get ActiveX при запуске обработчика событий

Question

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

Есть ли способ доступа к объекту флажка, который вызывает обработчик событий?

Это работает:

Sub chkDogsInContest_Click() 

    ActiveSheet.Names("DogsInContest").RefersToRange.EntireRow.Hidden = Not chkMemberData.Value 

End Sub 

Но это то, что я хотел бы сделать:

Sub chkDogsInContest_Click() 

    Module1.Show_Hide_Section (<calling checkbox>) 

End Sub 

Эти функции определены в другом модуле:

'The format for the the names of the checkbox controls is 
'CHECKBOX_NAME_PREFIX + <name> 
'where "name" is also the name of the associated Named Range 

Public Const CHECKBOX_NAME_PREFIX As String = "chk" 


Public Function CheckName_To_SectionName(ByRef strCheckName As String) 

    CheckName_To_SectionName = Mid(strCheckName, CHECKBOX_NAME_PREFIX.Length() + 1) 

End Function 


Public Sub Show_Hide_Section(ByRef chkBox As CheckBox) 

    ActiveSheet.Names(CheckName_To_SectionName(chkBox.Name())).RefersTo.EntireRow.Hidden = True 

End Sub 

Answer 1

Поскольку вы» повторно используя стандартные (Active-X) флажки на обычном листе, тогда лучше всего создать событие Click для каждого суб, тогда c все одна рутины для Скрывать с параметром имени CheckBox, как:

Private Sub chkCheckBox1_Click() 

    If chkCheckBox1.Value = True Then 
     Call RangeHide("CheckBox1") 
    End If 

End Sub 

Private Sub RangeHide(rangetohide As String) 

    Range(rangetohide).EntireRow.Hidden = True 

End Sub 

Answer 2

Я думаю, что ответ заключается в создании другого класса, который имеет объект флажка в качестве части его и объявить, что объект «WithEvents» Тогда Я могу создать метод chkBox_clicked(), который будет вызываться всякий раз, когда будет щелкнуть любой флажок, являющийся членом этого класса. Я также могу сохранить диапазон внутри объекта.

http://www.cpearson.com/excel/Events.aspx

имеет больше информации ... Большой сайт BTW для Excel VBA.

EDIT: Это не работает. См. Мой комментарий ниже.