ถามเรื่องการให้แสดงข้อมูลในฟอร์ม

[yodpao.b]

ถามเรื่องการให้แสดงข้อมูลในฟอร์ม
เรียนอาจารย์ครับช่วยแก้ไขให้ด้วยครับ

clear1x1.gif

จากฟอร์ด้านบน
ComboBox111 ใช้เรียกหัวข้อของข้อมูล Ok
ComboBox112 แสดงข้อมูลของหัวข้อที่ 1 โดยไม่ซ้ำกัน Ok (โดยอ้างอิงจาก ComboBox111)
ComboBox113 แสดงข้อมูลของหัวข้อที่ 1 โดยไม่ซ้ำกัน Ok (โดยอ้างอิงจาก ComboBox111)
ข้อมูลที่ถูกต้องจะมีลักษณะดังนี้

ใน ช่อง ComboBox111 จะได้ดังนี้

ComboBox111
เครื่องมือช่างเทคนิค


ใน ComboBox112 จะได้ดังนี้
เครื่องมือตรวจวัดด้านของไหล น้ำ/ลม/อุณหภูมิ/ความชื้น
เครื่องมือตรวจวัดด้านความสว่าง
เครื่องมือตรวจวัดด้านพลังงานความร้อน
เครื่องมือตรวจวัดด้านไฟฟ้า
เครื่องมือที่ใช้ในการสื่อสาร
เครื่องมือวัดค่าสารละลาย
เครื่องมือวัดเสียง
เครื่องมืออื่น
เครื่องวัดความเร็วรอบ

ใน ComboBox113 จะได้ดังนี้
ComboBox113
PEN CHECK (เครื่องมือวัดอุณหภูมิ)
TEMPERATURE,DIGITAL TEMPERATURE & HUMIDITY METER ( วัดอุณหภูมิและความชื้น)
เครื่องมือวัดและบันทึกอัตราการไหลและอุณหภูมิของเหลวในท่อ
เครื่องมือวัดอุณหภูมิความชื้นสัมพัทธ์
เครื่องวัด&บันทึกอุณหภูมิ, ความชื้นความเร็วลม CO2
เครื่องวัดความเร็วลม
เครื่องวัดอุณหภูมิความชื้น
เครื่องวัดความเข้มแสง
เครื่องวัดประสิทธิภาพการเผาไหม้
AC FLEXIBLE CURRENT CLAMP AMPFLEX CURRENT PROBE
ANALYZER,DIGITAL POWER ANALYZER OR AC LOW POWER WATT AND WATTHOUR METER
ANEMOMETER FOR AIR VELOCITIES
CLAMP METER FOR A.C.MEASUREMENTS CURRENT PROBE 3000/1A.
CLAMP ON,DIGITAL CLAMP-ON METER OR TESTER
DIGITAL CLAMP ON METER
DIGITAL INSULATION TESTER 3-1/2
ENERGY METER TESTER 10 MA-5A
GRAPHIC MULTIMETER
MULTIMETER, DIGITAL MULTIMETER
SCOPE METER
เครื่องตรวจสอบการใช้ไฟฟ้า ENERGY ANALYZER
เครื่องตรวจสอบและบันทึกแรงดัน แบบดิจิตอล
เครื่องมือบันทึกข้อมูล DATA Logger
เครื่องมือวัดกำลังไฟฟ้าและพลังงาน
เครื่องมือวัดพลังงานไฟฟ้า
เครื่องมือวัดพลังงานไฟฟ้า 3 เฟส ระบบ UNBALANCE
เครื่องมือวัดพลังงานไฟฟ้าแบบบันทึกค่าได้ 1 Phase
เครื่องมือวัดพลังงานไฟฟ้าแบบบันทึกค่าได้ 3 Phase
เครื่องมือวัดและวิเคราะห์คุณภาพไฟฟ้า 3 เฟส
เครื่องวัดพลังงานไฟฟ้าแบบ CLAMP ON 400AMP
เครื่องวัดและบันทึกการใช้พลังงานไฟฟ้า 3 เฟส
เครื่องวัดและบันทึกพลังไฟฟ้าพร้อม AC FLEXIBLE CURRENT CLAMP
เครื่องวัดและอุปกรณ์บันทึกการใช้พลังงาน 200 Amp.
เครื่องวัดและอุปกรณ์บันทึกการใช้พลังงาน 500 Amp.
เครื่อมือและอุปกรณ์บันทึก 200 AMP
เครื่อมือและอุปกรณ์บันทึก 500 AMP
อุปกรณ์ควบคุมและส่งข้อมูลมิเตอร์(RTU)
WALKIE TALKIE(วิทยุสื่อสารแบบมือถือ)
METER,PH.METER
เครื่องวัดความเป็นกรด-ด่าง-กลาง ของสารละลาย
เครื่องวัดเสียง แบบแยกความถี่
COMPUTER, ELECTRONIC FIELD BOOK
COMPUTER,WIRELESS LAN ACCESS POINT
COMPUTER,อุปกรณ์เชื่อมต่อระบบเครือข่ายสื่อสารข้อมูล และหรือ MAIN ETHERNET SWITCH
DIGITAL TACHOMETER SOKKIMOD
DRILL,ELECTRIC ROTARY HAMMER DRILL CAP.1/2-1 IN.(1 3-25 ตค)
TOOL,MECHANIC TOOL
เครื่องมือวัดก๊าซไวไฟ และอื่นๆ
เครื่องมือวัดฝุ่น
เครื่องสำรองไฟ (UPS)
มิเตอร์พร้อมตู้
สว่านโรตารี่
เครื่องวัดความเร็วรอบ


จาหโคดที่เขียน

Code: Select all

Private Sub ComboBox111_Change()
ComboBox112.Clear
ComboBox113.Clear
Sheets("HistoryDurable").Select
Range("B7").Select
    Do While Selection <> ""
        If ComboBox111 = ActiveCell And ActiveCell.Offset(0, 1) <> ActiveCell.Offset(-1, 1) Then
            ComboBox112.AddItem ActiveCell.Offset(0, 1).Value
        End If
        ActiveCell.Offset(1, 0).Select
    Loop

Range("B7").Select
    Do While Selection <> ""
        If ComboBox111 = ActiveCell And ActiveCell.Offset(0, 1) <> ActiveCell.Offset(-1, 1) Then
            ComboBox113.AddItem ActiveCell.Offset(0, 2).Value
        End If
        ActiveCell.Offset(1, 0).Select
    Loop
End Sub

จากโคดจะเห็นว่า ComboBox113 ไม่ตรงความต้องการ
เพราะข้อมูลที่ได้นั้นมาไม่กี่บรรทัด

ทั้งนี้ใด้แนบไฟลมาให้

[snasui]

ไฟล์ที่แนบมาไม่สามารถทดสอบได้ครับ เนื่องจากไม่มี Code สำหรับการ Show Userform และเมื่อ Show ได้แล้วหากต้องดึงข้อมูลจากชีทใดมาแสดงก็ควรจะคงชีทนั้น ๆ ไว้ด้วยไม่ควรลบออกไปเพื่อจะได้ช่วยทดสอบได้ครับ

[yodpao.b]

ขอโทษครับให้ไฟล์ผิด
แนบมาใหม่ครับ

[snasui]

ลองปรับ Code เป็นตามด้านล่างครับ

Code: Select all

Private Sub ComboBox111_Change()
ComboBox112.Clear
ComboBox113.Clear
Sheets("HistoryDurable").Select
Range("B7").Select
    Do While Selection <> ""
        If ComboBox111 = ActiveCell And ActiveCell.Offset(0, 1) <> ActiveCell.Offset(-1, 1) Then
            ComboBox112.AddItem ActiveCell.Offset(0, 1).Value
        End If
        If ComboBox111 = ActiveCell And ActiveCell.Offset(0, 2) <> ActiveCell.Offset(-1, 2) Then
            ComboBox113.AddItem ActiveCell.Offset(0, 2).Value
        End If
        ActiveCell.Offset(1, 0).Select
    Loop
End Sub

[yodpao.b]

ครับเดี๋ยวจะลองทำตามดู