VBA Function to Hide Userform Controls

Question

I have 10 UserForm Controls with Names Account1 to Account10 that are defaulted as Visible = False. I am trying to create a Function to unhide the Controls in ascending numeric order.

Private Sub AddButton_Click()
Select Case CountTextBox.Value
Case 1
    Account1.Visible = True
Case 2
    Account2.Visible = True
Case 3
    Account3.Visible = True
Case 4
    Account4.Visible = True
Case 5
    Account5.Visible = True
Case 6
    Account6.Visible = True
Case 7
    Account7.Visible = True
Case 8
    Account8.Visible = True
Case 9
    Account9.Visible = True
Case 10
    Account10.Visible = True
End Select
End Sub

How can I simplify this VBA code?

Consider creating textboxes at run-time instead of hiding/unhiding them. — Mathieu Guindon
– Mathieu Guindon, Commented Mar 22, 2017 at 14:54

Jon Chan · Accepted Answer · 2017-11-07 06:01:14Z

1

Adding to @Comintern's answer, solution is:

For i = 1 To 10
    Me.Controls("Account" & i).Visible = True
Next i

answered Nov 7, 2017 at 6:01

Jon Chan

532 silver badges14 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

VBA Function to Hide Userform Controls

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related