Snasui Excel Forum

Code: Select all

Private Sub ComboBox2_Change()
Dim i As Integer
    With ComboBox3
        .Clear
        For i = 1 To 3
            .AddItem ComboBox2.Value & i
        Next i
    End With
End Sub

Code: Select all

Select Case index
    Case Is = 0
        With ComboBox2
            .AddItem "อาร์เอส"
            .AddItem "ลุมพินี"
            .AddItem "โรงแรมเทพ"
        End With
        With ComboBox3
        .AddItem "ห้องดาว"
        .AddItem "ห้องเอก"
        .AddItem "ห้องท็อป"
          End With
        

Code: Select all

Private Sub ComboBox2_Change()
    Dim i As Integer
    With ComboBox3
        .Clear
        Select Case ComboBox2.Value
            Case Is = "อาร์เอส"
                .AddItem "ห้องดาว"
                .AddItem "ห้องเอก"
                .AddItem "ห้องท็อป"
            Case Else
                For i = 1 To 3
                    .AddItem ComboBox2.Value & i
                Next i
        End Select
    End With
End Sub