Нужна помощь.

[Rik3D]

На форме несколько OptionButton-с и один ComboBox (название time) как сделать так чтобы, если нажимаешь на первые два OptionButton, то на форме показывалось в ComboBox (time) с 14:00 c 16:00, а на следующие два OptionButton3 и OptionButton4 на ComboBox показывалось с 09:00 c 11:00 c 14:00 c 16:00 в общем остальное вот код формы:

Код: Выделить всё

Private Sub OptionButton1_Click()
Worksheets("a").Activate
End Sub
Private Sub OptionButton2_Click()
Worksheets("b").Activate
End Sub
Private Sub OptionButton3_Click()
Worksheets("c").Activate
End Sub
Private Sub OptionButton4_Click()
Worksheets("d").Activate
End Sub
Public Sub cbtime()
Dim s(4)
    s(0) = "c 9:00"
    s(1) = "c 11:00"
    s(2) = "c 14:00"
    s(3) = "c 16:00"
    s(4) = "c 18:00"
With UserForm1
For i = 0 To 4
            Me.time.AddItem s(i)
Next
End With
End Sub
Private Sub UserForm_Initialize()
Call cbtime
End Sub

[Rik3D]

Всё разобрался...