| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Option group controlling objects
Hello All,
Is there a faster way of doing the following. It's kind of choppy when the objects disappear then reappear. I'm sure it's pretty obvious what I'm trying to do. Private Sub OptionButton1_Click() If OptionButton1.Value = True Then Label3.Visible = False Label4.Visible = False Label5.Visible = False Label6.Visible = True ComboBox1.Visible = False ComboBox2.Visible = False ComboBox3.Visible = False ComboBox4.Visible = True Label7.Visible = True Label8.Visible = True ComboBox5.Visible = True ComboBox6.Visible = True End If End Sub Private Sub OptionButton2_Click() If OptionButton2.Value = True Then Label3.Visible = True Label4.Visible = True Label5.Visible = True Label6.Visible = True ComboBox1.Visible = True ComboBox2.Visible = True ComboBox3.Visible = True ComboBox4.Visible = True Label7.Visible = False Label8.Visible = False ComboBox5.Visible = False ComboBox6.Visible = False End If Thanks in advance -- Brian |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Option group controlling objects
(Untested) You could try putting this line at the beginning of **each** of
your Click events... Application.ScreenUpdating = False and putting this line at the end of **each** of your Click events... Application.ScreenUpdating = True -- Rick (MVP - Excel) "Brian" wrote in message ... Hello All, Is there a faster way of doing the following. It's kind of choppy when the objects disappear then reappear. I'm sure it's pretty obvious what I'm trying to do. Private Sub OptionButton1_Click() If OptionButton1.Value = True Then Label3.Visible = False Label4.Visible = False Label5.Visible = False Label6.Visible = True ComboBox1.Visible = False ComboBox2.Visible = False ComboBox3.Visible = False ComboBox4.Visible = True Label7.Visible = True Label8.Visible = True ComboBox5.Visible = True ComboBox6.Visible = True End If End Sub Private Sub OptionButton2_Click() If OptionButton2.Value = True Then Label3.Visible = True Label4.Visible = True Label5.Visible = True Label6.Visible = True ComboBox1.Visible = True ComboBox2.Visible = True ComboBox3.Visible = True ComboBox4.Visible = True Label7.Visible = False Label8.Visible = False ComboBox5.Visible = False ComboBox6.Visible = False End If Thanks in advance -- Brian |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Controlling numerical values of option buttons in a group? | Excel Discussion (Misc queries) | |||
| need help on how to grey out one option button in one group box based on the selection of another option button in another group box | Excel Programming | |||
| Controlling an Option Group in a User Form | Excel Discussion (Misc queries) | |||
| Creating and controlling objects in a UserForm | Excel Programming | |||
| Option button controlling text box | Excel Programming | |||
Hybrid Mode
