Using a checkbox to activate/deactivate input option
I wondered if you would want them to revert <g
--
HTH
Bob Phillips
(replace somewhere in email address with gmail if mailing direct)
"Jacob" wrote in message
oups.com...
Thanks for the help. Chalres, I could not get yours to work. Bob, I
added an "else" to get the cells to revert to the default of gray and
disabled after being checked and unchecked. other than that, it
appears to be working perfectly.
thanks!
Private Sub CheckBoxShearEnv_Click()
With Me
If .CheckBoxShearEnv.Value = True Then
.TextBoxIncrement.Enabled = True
.TextBoxIncrement.BackColor = &HFFFFFF
.TextBoxStepSize.Enabled = True
.TextBoxStepSize.BackColor = &HFFFFFF
Else
.CheckBoxShearEnv.Value = False
.TextBoxIncrement.Enabled = False
.TextBoxIncrement.BackColor = &HC0C0C0
.TextBoxStepSize.Enabled = False
.TextBoxStepSize.BackColor = &HC0C0C0
End If
End With
End Sub
Private Sub UserForm1_Initialize()
With Me
.CheckBoxShearEnv.Value = False
.TextBoxIncrement.Enabled = False
.TextBoxIncrement.BackColor = &HC0C0C0
.TextBoxStepSize.Enabled = False
.TextBoxStepSize.BackColor = &HC0C0C0
End With
End Sub
Bob Phillips wrote:
add code like this to the form
Private Sub CheckBox1_Click()
With Me
If .CheckBox1.Value = True Then
.TextBox1.Enabled = True
.TextBox1.BackColor = &HFFFFFF
.TextBox1.Enabled = True
.TextBox2.BackColor = &HFFFFFF
End If
End With
End Sub
Private Sub UserForm_Initialize()
With Me
.CheckBox1.Value = False
.TextBox1.Enabled = False
.TextBox1.BackColor = &HC0C0C0
.TextBox2.Enabled = False
.TextBox2.BackColor = &HC0C0C0
End With
End Sub
--
HTH
Bob Phillips
(replace somewhere in email address with gmail if mailing direct)
"Jacob" wrote in message
oups.com...
I have created a program using VBA and I am attempting to use a form
for my first time. I want to have a checkbox that when checked allows
users to input additional items into the form. by default I want the
box to be unchecked and those input boxes grayed out and disabled.
what is the best way to do this? thanks.
|