ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   change the appearnce of a userform (https://www.excelbanter.com/excel-programming/411504-re-change-appearnce-userform.html)

Norman Jones[_2_]

change the appearnce of a userform
 
Hi Tungana,

Create a Userform with a Label, a ComboBox
3 CommandButtons and 3 OptionButtons.

Add 10 TextBoxes whe

TextBoxes 1 - 4 are the TextBoxes from the
Page3 option;

TextBox5 and TextBox6 are the additional 2
TextBoxes from the Page2 option;

TextBox7 - TextBox10 are the remaining 4
TextBoxes.

In the Userform's code module, paste the
following code:

'===========
Option Explicit

'-------------
Private Sub OptionButton1_Click()
Dim i As Long

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

End Sub

'-------------
Private Sub OptionButton2_Click()
Dim i As Long

For i = 1 To 10
Me.Controls("Textbox" & i).Visible = i < 7
Next i

End Sub

'-------------
Private Sub OptionButton3_Click()
Dim i As Long

For i = 1 To 10
Me.Controls("Textbox" & i).Visible = i < 5
Next i

End Sub

'-------------
Private Sub UserForm_Initialize()
Dim i As Long

For i = 1 To 10
Me.Controls("Textbox" & i).Visible = False
Next i

End Sub
'<<===========



---
Regards.
Norman


"TUNGANA KURMA RAJU" wrote in
message ...
Is it possible design a user form with cusomised controls ?
I built a userform with multipage control.
Page 1 Page2 Page3
1 label 1 label 1 label
1 combobox 1 combobox 1 combobox
3 commandbuttons 3 commandbuttons 3 commandbuttons
10 textboxes 6textboxes 4 textboxes
is it possible redesign this userform into a compact one page form?
By putting 3 optionbuttons at top of the userform,if optionbutton1 is
selected userform with 10 textboxes be displayed,if optionbutton2 is
selected
userform appearance be changed with 6 textboxes.




All times are GMT +1. The time now is 02:28 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com