Check Box Control

The CheckBox control returns a True value when checked, or a False value if it is unchecked. The Click event procedure that follows uses an If structure to set the value in cell B16:

Private Sub CheckBox1_Click()

If CheckBox1.Value Then

'If check box ticked, tax Range("B16").Value = 0.33

rate is 33%

Else

'If check box not ticked, Range("B16").Value = 0.3

tax rate is 30%

End If

End Sub

0 0

Post a comment