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