Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

excel form checkboxes

Posted on 2014-03-23
6
Medium Priority
?
240 Views
Last Modified: 2014-03-24
hello all,

is there a faster way in vba to add multiple check-boxes in a form in excel? the checkbox names could be checkbox1,checkbox2,checkbox3.....etc

i have create 35 checkboxes within a form and then do the same for other forms as well...so this is kind of pain

Thank you
0
Comment
Question by:Rayne
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 2
6 Comments
 
LVL 34

Accepted Solution

by:
Norie earned 2000 total points
ID: 39949656
Do you mean a userform or a form on a worksheet?

For a userform you could use something like this.
Private Sub UserForm_Initialize()
Dim chk As MSForms.Checkbox
Dim lngTop As Long

    lngTop = 5

    For I = 1 To 35
        Set chk = Me.Controls.Add("Forms.CheckBox.1, "CheckBox" & I)
        chk.Top = lngTop
        lngTop = lngTop+chk.Height+5
    Next I

End Sub

Open in new window

That puts all the checkboxes in one column which might not be suitable but the code can be refined to place them in some other configuration.

Similar code can be created if the form is on a sheet.

By the way, you could use a listbox with MultiSelect set to fmMultiSelectMulti and ListStyle set to fmListStyleOption.

That would show a chekcbox next to each item in the listbox.
0
 

Author Comment

by:Rayne
ID: 39949682
Thank you Imnorie, that is awesome
how can use the listbox - how can i populate the list box with data set from one column in worksheet - please assist
0
 

Author Comment

by:Rayne
ID: 39949693
so the question is > how do i add a set of vlaues in a worksheet to that awesome list box you mentioned? I am not able to populate the listbox so far..

Thank you
0
Learn Veeam advantages over legacy backup

Every day, more and more legacy backup customers switch to Veeam. Technologies designed for the client-server era cannot restore any IT service running in the hybrid cloud within seconds. Learn top Veeam advantages over legacy backup and get Veeam for the price of your renewal

 

Author Comment

by:Rayne
ID: 39949699
you are awesome imnorie, you saved me a huge chunk of time - listbox rocks, checkboxes not.....thank you thank you , i got it :)
0
 
LVL 34

Expert Comment

by:Norie
ID: 39950169
I take it you figured out the listbox?

If you didn't here's a simple example that populates a listbox from A2:A35 on Sheet1 and sets it up to display checkboxes.
Private Sub UserForm_Initialize()

    With Me.ListBox1
        .List = Sheets("Sheet1").Range("A2:A35").Value
        .ListStyle = fmListStyleOption
        .MultiSelect = fmMultiSelectMulti
    End With

End Sub

Open in new window

0
 

Author Comment

by:Rayne
ID: 39950669
Thank you Imnorie,

This is Perfection to the ULTIMATE, thank you, thank you :)
0

Featured Post

Efficient way to get backups off site to Azure

This user guide provides instructions on how to deploy and configure both a StoneFly Scale Out NAS Enterprise Cloud Drive virtual machine and Veeam Cloud Connect in the Microsoft Azure Cloud.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

My attempt to use PowerShell and other great resources found online to simplify the deployment of Office 365 ProPlus client components to any workstation that needs it, regardless of existing Office components that may be needing attention.
This article describes a serious pitfall that can happen when deleting shapes using VBA.
This Micro Tutorial demonstrates how to create Excel charts: column, area, line, bar, and scatter charts. Formatting tips are provided as well.
Many functions in Excel can make decisions. The most simple of these is the IF function: it returns a value depending on whether a condition you describe is true or false. Once you get the hang of using the IF function, you will find it easier to us…

715 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