ต้องการโชว์ข้อมูลใน listbox ตามเงื่อนไขที่เลือก

[kittiwatw]

สวัสดีค่ะ

เงื่อนไขที่ต้องการแสดงข้อมูลก็คือ ถ้า Combobox1 (Process) และ Combobox2 (Phase) มีค่าที่เหมือนกันในตารางที่อยู่ใน excel
ให้แสดงข้อมูลที่อยู่ใน column F ที่ listbox

จาก code ที่เขียนอยู่ตอนนี้พยายามจะเอาข้อมูลที่อยู่ใน column F ขึ้นมาโชว์ทั้งหมดก่อน เมื่อทำการเลือก Phase แต่ก็ติด Complie Error เลยไม่แน่ใจว่า แนวทางที่เขียนมาแบบนี้ถูกต้องไหม

และถ้าต้องการใส่เงื่อนไขตามที่ต้องการ รูปแบบต้องเป็นแบบไหนคะ

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

Code: Select all

   Private Sub cbPhase_Change()
    Dim myCell As Range
    Dim rngItems As Range
    Set rngItems = Sheet6.ListObjects("tbAllChecklist").ListColumns(6).DataBodyRange.Value
    Me.lbInitializeLeft.Clear
    Me.lbInitializeRightClear
    
    With Me.lbInitializeLeft
        .LinkedCell = ""
        .ListFillRange = ""
        For Each myCell In rngItems.Cells
            If Trim(myCell) <> "" Then
                .AddItem myCell.Value
            End If
        Next myCell
    End With

    Me.lbInitializeLeft.MultiSelect = fmMultiSelectMulti
    Me.lbInitializeRight.MultiSelect = fmMultiSelectMulti
End Sub

[snasui]

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

Code: Select all

'Other code
Dim processCode As String
Set rngItems = Sheet6.ListObjects("tbAllChecklist").ListColumns(5).DataBodyRange
Me.lbInitializeRight.Clear
Me.lbInitializeLeft.Clear
With Me.lbInitializeLeft
'        .LinkedCell = ""
'        .ListFillRange = ""
    For Each myCell In rngItems.Cells
        processCode = Application.WorksheetFunction.VLookup(cbProcess.Value, _
        Sheet7.ListObjects("tbProcessName").Range, 2, False)
        If Trim(myCell.Value) <> "" Then
            If myCell.Offset(0, -4).Value = processCode And _
                myCell.Offset(0, -2).Text = Me.cbPhase.Text Then
                .AddItem myCell.Value
            End If
        End If
    Next myCell
End With
'Other code

[kittiwatw]

_/\_ ขอบคุณมากเลยค่ะ ตอนนี้เอา code มาปรับเพิ่มนิดหน่อยสามารถใช้งานได้แล้วค่ะ