การเลือกcomboboxโชว์ในtextboxหลายอัน

[Cs.Hwan]

เรียนอาจารย์ทุกท่าน ดิฉันต้องการทราบว่าเราสามารถใช้comboboxเพียงอันเดียวเลือกข้อมูล(select model)ให้โชว์ในTextbox
เงื่อนไขคือ
- อยากให้เลือก select model ครั้งที่1 แล้วโชว์ข้อมูลในtextboxแถวที่1ทั้งหมด
select model ครั้งที่2 แล้วโชว์ข้อมูลในtextboxแถวที่2ทั้งหมด
select model ครั้งที่3 แล้วโชว์ข้อมูลในtextboxแถวที่3ทั้งหมด
select model ครั้งที่4 แล้วโชว์ข้อมูลในtextboxแถวที่1ทั้งหมด... วนลูปไปเรื่อยๆคะ
โดยใช้ combobox เพียงอันเดียวคะ
ตอนนี้ดิฉันใช้combobox3อันในการเลือกคะ....มีไฟล์แนบคะ

[snasui]

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

Code: Select all

Dim cbClickCount As Long

Private Sub ComboBox1_Change()
    On Error Resume Next
    cbClickCount = cbClickCount + 1
    With Worksheets("sheet2")
        Select Case cbClickCount Mod 3
            Case 1
                txtmodel.Value = Application.VLookup(Me.ComboBox1, .range("A3:IV46"), 2, False)
                txttarget.Value = Application.VLookup(Me.ComboBox1, .range("A3:IV46"), 3, False)
                txtoutput.Value = Application.VLookup(Me.ComboBox1, .range("A3:IV46"), 4, False)
                txtremain.Value = Application.VLookup(Me.ComboBox1, .range("A3:IV46"), 5, False)
            Case 2
                TextBox10.Value = Application.VLookup(Me.ComboBox1, .range("A3:IV46"), 2, False)
                TextBox5.Value = Application.VLookup(Me.ComboBox1, .range("A3:IV46"), 3, False)
                TextBox4.Value = Application.VLookup(Me.ComboBox1, .range("A3:IV46"), 4, False)
                TextBox3.Value = Application.VLookup(Me.ComboBox1, .range("A3:IV46"), 5, False)
            Case 0
                TextBox9.Value = Application.VLookup(Me.ComboBox1, .range("A3:IV46"), 2, False)
                TextBox8.Value = Application.VLookup(Me.ComboBox1, .range("A3:IV46"), 3, False)
                TextBox7.Value = Application.VLookup(Me.ComboBox1, .range("A3:IV46"), 4, False)
                TextBox6.Value = Application.VLookup(Me.ComboBox1, .range("A3:IV46"), 5, False)
        End Select
    End With
End Sub

[Cs.Hwan]

ได้แล้วคะอาจารย์ ขอบคุณมากๆคะ

[Cs.Hwan]

อาจารย์คะมีปัญหาเพิ่มเติมคะ เมื่อมีข้อมูลเข้า(ยิงบาร์โคีด)ผลที่ textbox มันเลื่อนคะทำอย่างไรดีคะ
(ข้อมูลที่เข้า เช่น PAL1010E5UTA0085name_AL101.mllay)

[snasui]

ไม่เข้าใจครับ

การยิง Barcode เกี่ยวอะไรกับ TextBox อธิบายขั้นตอนการทำงานมาด้วยครับ

[Cs.Hwan]

ขั้นตอนการทำงาน
1.เปิดuserformแล้ว เลือก select model
2.ยิง barcode (หรือพิมพ์codeเช่นPAL1010E5UTA0085name_AL101.mllayแล้วenter)เข้าตรงช่อง serail number มี 2ช่อง
3.ข้อมูลจะเข้าไปยังชีทและทำการสรุปผลด้วยpivot table จากนั้นดึงข้อมูลไปshowใน textbox ที่Userformขณะนั้นเลยคะ
ขั้นตอนประมาณนี้คะ
มีไฟล์แนบที่แก้ไขcode ตามอาจารย์คะ

[snasui]

ให้ลบบรรทัด cbClickCount = cbClickCount + 1 ที่ TextBox1_Exit และ TextBox2_Exit ทิ้งไป ใช้ที่ ComboBox1_Change เท่านั้น ไม่ใช้ในทุก Control ครับ

[Cs.Hwan]

ขอบคุณคะอาจารย์

[belmont]