ต้องการดึงข้อมูลจาก Combobox ที่สองมาแสดงโดยมีเงื่อนไขทีสัมพันธ์กับอีก Combobox หนึ่ง

[kittiwatw]

สวัสดีค่ะ

ตอนนี้กำลังทำเอกสารการ Audit ที่สามารถเลือก Checklist ที่ต้องการจะ Audit ได้ แต่ก็มี comment จาก อาจารย์มานิดหน่อยว่าอยากให้เพิ่มตัวเลือก "All" ในช่องของ "Phase" แล้วให้โชว์ Checklist ทุก Phase ที่ใน Process ที่เลือก

การทำงานคือ
1. เลือก Process ในช่อง "Process"
2. เลือก Phase ในช่อง "Phase" เป็น "All"
3. จากนั้นในช่องซ้ายมือจะต้องแสดง Checklist ของทุก Phase ใน Process ที่เราเลือก

ปัญหาที่พบคือ ตอนนี้ให้ช่อง "Phase" ขึ้น ตัวเลือก "All" ได้แล้วค่ะ แต่ยังไปต่อไม่ถูกว่าจะแสดงข้อมูล Checklist ทั้งหมดใน Process นั้นๆยังไง

ทั้งนี้แนบไฟล์การทำงานมาให้ด้วยค่ะ

ขอบคุณสำหรับความช่วยเหลือล่วงหน้านะคะ

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Private Sub cbPhase_Change()
    Dim myList As String
    Dim myCell As Object
    Dim ChkList As Object
    Set ChkList = Sheet6.ListObjects("tbAllChecklist").ListColumns(4).DataBodyRange
    Me.lbInitializeLeft.Clear
    Me.lbInitializeRight.Clear
    For Each myCell In ChkList.Cells
        myList = Application.WorksheetFunction.VLookup(cbProcess.Value, Sheet7.ListObjects("tbProcessName").Range, 2, False)
        If Me.cbPhase = "All" And myCell.Offset(0, -3).Value = myList Then
            Me.lbInitializeLeft.AddItem myCell.row & " : " & myCell.Value
        End If
        If myCell.Offset(0, -3).Value = myList And myCell.Offset(0, -1).Text = Me.cbPhase.Text Then
            Me.lbInitializeLeft.AddItem myCell.row & " : " & myCell.Value
            '  Me.lbInitializeLeft.AddItem myCell.Value
        End If
    Next myCell
End Sub

[kittiwatw]

ทำได้แล้วนะคะ ขอบคุณมากๆเลยค่ะ _/\_