สอบถามการทำ Form Combobox แบบมีเงื่อนไข

[primeval]

ใน File แนบผมได้ทำ Form การเลือกห้องเอาไว้ โดยแบ่งออก
Combobox1 เป็นชื่อจังหวัด
combobox2 ชื่อสถานที่
combobox3 ชื่อห้อง

ผมอยากได้วิธีการการเขียนเงื่อนไข combobox3 ชื่อห้อง๕ณํฐ
Combobox1 เลือกชื่อจังหวัด กรุงเทพ
combobox2 เลือกสถานที่ อาร์เอส หาก
หากพบว่าเลือก"อาร์เอส"จาก combobox2 ให้แสดง combobox3 แสดงตัวเลือกชื่อห้อง อาร์เอส1 อาร์เอส2 อาร์เอส3
หรือ
หากพบว่าเลือก"ลุมพินี"จาก combobox2 ให้แสดง combobox3 แสดงตัวเลือกชื่อห้อง ลุมพินี1 ลุมพินี2 ลุมพินี3

เลือกจังหวัด.xlsm

[DhitiBank]

ลองแบบนี้ครับ

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

แล้วก็ อย่าลืมใส่ End Select ในโพรซีเยอร์ Combobox1_Change ด้วยนะครับ

[primeval]

สอบถามเพิ่มเติมครับ ถ้าหากพบว่าเลือก"อาร์เอส"จาก combobox2 ให้แสดง combobox3 แสดงตัวเลือกชื่อห้อง ห้องดาว ห้องเอก ห้องท็อป จะต้องเขียนยังไงครับ
อันนี้ผมเคยลองครับ

Code: Select all

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

[DhitiBank]

ลองปรับเป็นแบบนี้ครับ

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

[primeval]

ได้แล้วครับขอบคุณมากๆนะครับ