อธิบาย Code

[jinjin]

เมื่อคลิกเลือกตัวชื่อ ในส่วนของปี จะปรากฎปีที่มีข้อมูลใน Cell เท่านั่น
ส่วน Cell ไหนที่มีช่องว่างจะไม่ปรากฎปีนั่นให้เห็น รายละเอียดได้แนบในไฟล์เรียบร้อยแล้วค่ะ
ขอบคุณมากค่ะ

[snasui]

ควรจะอธิบายมาให้ละเอียดว่าคลิกชื่อใน Control ตัวไหน คลิกเลือกตัวเลือกไหน ค่าที่ถูกต้องจะแสดงที่ใด ด้วยค่าใด เช่นนี้จึงจะเข้าถึงปัญหาได้โดยไว

ด้านล่างเป็นตัวอย่าง Code สำหรับการคลิกเลือกค่าใน ListBox2 แล้วแสดงค่าปีใน ListBox4 โดยนำค่าใน ListBox2 ที่คลิกเลือกไปตรวจสอบกับคอลัมน์ B ของชีต IMTGT จากนั้นตรวจสอบค่าในคอลัมน์ C:H ว่ามีข้อมูลหรือไม่ หากมีให้ Add ปีซึ่งอยู่ที่ C1:H1 ไว้ใน ListBox4

Code: Select all

Dim i As Integer, j As Long
Dim r As Range
j = Application.Match(ListBox2.Text, Sheets(1).Range("b:b"), 0)
For i = ListBox4.ListCount - 1 To 0 Step -1
    ListBox4.RemoveItem i
Next i
With Sheets(1)
   For Each r In .Cells(j, 3).Resize(1, 6)
        If r.Value <> "" Then
            ListBox4.AddItem .Cells(1, r.Column).Value
        End If
   Next r
End With

[jinjin]

คลิกตรงในส่วนของ listbox Country แล้วให้ในส่วนของ listbox Project propose แสดงข้อมูลออกมาตามเงื่อนไข Select Case และตรง Year ก็ให้แสดงข้อมูลปี ตามเงื่อนไขใน Select Case เหมือนกัน แต่ถ้าไม่มีของมูล ก็ไม่ต้องให้แสดง ปี พ.ศ นั้นออกมา ค่ะ

[snasui]

คลิกตรงในส่วนของ listbox Country แล้วให้ในส่วนของ listbox Project propose แสดงข้อมูลออกมาตามเงื่อนไข Select Case และตรง Year ก็ให้แสดงข้อมูลปี ตามเงื่อนไขใน Select Case เหมือนกัน แต่ถ้าไม่มีของมูล ก็ไม่ต้องให้แสดง ปี พ.ศ นั้นออกมา ค่ะ

ทั้งหมดนี้ผมเขียนตัวอย่าง Code ให้แล้วตามโพสต์ด้านบน ควรทดสอบแล้วถามในส่วนที่ยังเป็นปัญหาครับ

[jinjin]

ขอโทษค่ะ ตาลายไปหน่อย
ขอบคุณนะค่ะ สำหรับข้อมูลตอนนี้เสร็จเรียบร้อยแล้วค่ะ
ต้องขอบคุณเว็บดีๆ ที่มีไว้ให้ค่อยปรึกษาแนะนำนะค่ะ