Solved

Excel VBA - UserForm control click

Posted on 2016-11-13
12
35 Views
Last Modified: 2016-11-17
I have 14 CheckBoxes on a UserForm. 'chk1AM', chk1PM .... to ckh7AM, chk7PM.

I want to avoid having 14 _Click events. Would it be possible to have an 'event' that will be triggered if any of these are clicked? (So then I determine which one was clicked as per the other question I asked here earlier)

Thanks
0
Comment
Question by:hindersaliva
  • 6
  • 4
  • 2
12 Comments
 
LVL 45

Expert Comment

by:Martin Liss
ID: 41885537
That's not possible with VBA, but why not put all those values in one control like a combobox and have them pick from there? Can you attach your workbook?
0
 
LVL 45

Expert Comment

by:Martin Liss
ID: 41885538
Other than that I think the only thing you can do is to create a Sub that does what you want, and add one line of code to each checkbox that calls that sub passing the name of the control.
0
 
LVL 48

Accepted Solution

by:
Rgonzo1971 earned 500 total points
ID: 41885580
Hi,

It is possible with Class Module
in a class module named clsCheckBoxEvent use this code
Option Explicit
 
Public WithEvents CheckGroup As MSForms.CheckBox

Private Sub CheckGroup_Click()
 
MsgBox CheckGroup.Caption
 
End Sub

Open in new window

then in the userform module
Dim CheckBoxesColl As Collection

Private Sub UserForm_Initialize()
Dim CheckBoxHandler As ClsCheckBoxEvent

Set CheckBoxesColl = New Collection

For Each ctitem In Me.Controls
    If ctitem.DisplayStyle = fmDisplayStyleCheckBox Then
        Set CheckBoxHandler = New ClsCheckBoxEvent
        Set CheckBoxHandler.CheckGroup = ctitem
        CheckBoxesColl.Add CheckBoxHandler
    End If
Next
End Sub

Open in new window

Regards
EE20161113.xlsm
1
 

Author Comment

by:hindersaliva
ID: 41886112
Rgonzo, on my workbook I get this error. (however, your example works)
Error message
This is what's causing it, but I don't see why. I'm using Excel 2016, and I can see there is a reference to Microsoft Forms 2.0 Object Library.
Code where the error occurs
What could it be? Thanks
0
 
LVL 48

Expert Comment

by:Rgonzo1971
ID: 41886116
Could you send a dummy?
0
 
LVL 48

Expert Comment

by:Rgonzo1971
ID: 41886119
then try
Dim CheckBoxesColl As Collection
Private Sub UserForm_Initialize()
Dim CheckBoxHandler As ClsCheckBoxEvent

Set CheckBoxesColl = New Collection

For Each ctitem In Me.Controls
    If TypeName(ctitem) = "CheckBox" Then
        Set CheckBoxHandler = New ClsCheckBoxEvent
        Set CheckBoxHandler.CheckGroup = ctitem
        CheckBoxesColl.Add CheckBoxHandler
    End If
Next
End Sub

Open in new window

0
What Should I Do With This Threat Intelligence?

Are you wondering if you actually need threat intelligence? The answer is yes. We explain the basics for creating useful threat intelligence.

 

Author Comment

by:hindersaliva
ID: 41886122
Rgonzo, now I don't get the error but the Checkbox click doesn't produce the message box.
0
 
LVL 48

Expert Comment

by:Rgonzo1971
ID: 41886125
a dummy would be helpful
0
 

Author Comment

by:hindersaliva
ID: 41886136
See attached. Ignore the sheet, go to UserForm.
EE-troubleshoot-controls-click-clas.xlsm
0
 
LVL 48

Expert Comment

by:Rgonzo1971
ID: 41886140
see remark
'Dim CheckBoxesColl As Collection 'should be and is already defined as global
    Dim CheckBoxHandler As clsCheckboxEvent
    
    Set CheckBoxesColl = New Collection
    
    For Each ctitem In Me.Controls
        If TypeName(ctitem) = "CheckBox" Then
            Set CheckBoxHandler = New clsCheckboxEvent
            Set CheckBoxHandler.CheckGroup = ctitem
            CheckBoxesColl.Add CheckBoxHandler
        End If
    Next

Open in new window

0
 
LVL 48

Expert Comment

by:Rgonzo1971
ID: 41886143
your captions are all the same then use name

Option Explicit
 
Public WithEvents CheckGroup As MSForms.CheckBox

Private Sub CheckGroup_Click()
 
    MsgBox CheckGroup.Name
 
End Sub

Open in new window

0
 

Author Closing Comment

by:hindersaliva
ID: 41892374
Thanks Rgonzo. That worked beautifully!
0

Featured Post

Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

Join & Write a Comment

Introduction While answering a recent question (http:/Q_27311462.html), I created an alternative function to the Excel Concatenate() function that you might find useful.  I tested several solutions and share the results in this article as well as t…
Modern/Metro styled message box and input box that directly can replace MsgBox() and InputBox()in Microsoft Access 2013 and later. Also included is a preconfigured error box to be used in error handling.
This Micro Tutorial will demonstrate how to use longer labels with horizontal bar charts instead of the vertical column chart.
This Micro Tutorial will demonstrate in Google Sheets how to use the HYPERLINK function to create live links inside your spreadsheet.

758 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now